ADO-DAO Veri çekmede hata?

[iaydin20]

'***********************************************************************************
  '*  Kapalı bir Excel dosyasına UserForm uzerinden verilerin ADO ile girilmesi ve   *
  '*  bu dosyadan DAO ile kapalı dosyadan alınan   verilerin  alfabetik  olarak      *
  '*  sıralanarak, yine UserForm uzerindeki ListBox nesnesinde goruntulenmesi       *
  '*  ile ilgili bir calismadir.                                                     *
  '*                                                                                 *
  '*  Not:                                                                           *
  '*  Kodların yer aldıgi projeye
  '*              - Microsoft DAO 3.6 Object Library                                 *
  '*              - Microsoft ActiveX  Data Objects 2.5 Library                      *
  '*              - Microsoft ADO Ext. 2.5 for DDL and Security                      *
  '*                                                                                 *
  '*                      Burasi Excel Vadisi ...                                    *
  '*                                                                                 *
  '*                            Haluk ®                                              *
  '*                          25/01/2006                                             *
  '*                                                                                 *
  '*   Revizyon-1: Kayıt ekleme ve arama opsiyonu ilave edildi (ALPEN - 25/01/2006)  *
  '*   Revizyon-2: Kayıt silme opsiyonu ilave edildi (Haluk - 26/01/2006)            *
  '***********************************************************************************

Merhaba;

Yukarıda İsmi geçen Hocalarımın Yaptığı Bir uygulamadan yola cıkarak basit bir personel takip proğramı yapmaya çalışıyorum ancak kapalı dosyaya kayıt yaparken problem yok, ama verileri görüntüleyemiyorum "çok az parametre 1 bekleniyor" diye bir hata veriyor bilgileri görünteleyemiyor ekli dosyayı inceleyince ne demek istediğim daha iyi anlaşılacak yardımcı olabilirseniz çok memnun olurum...

 

[iaydin20]

arkadaşlar yardımlarınızı bekliyorum...

 

[Recep İpek]

GetData makrosundaki Isim kelimesini isimsoyad olarak değiştirin.

 

[iaydin20]

hocam teşekkür ederim birde değiştirme ve silme kodlarına bakabilirmisiniz

 

[iaydin20]

kodları ekledim bakmanız mümkünmü teşekkürler...

Private Sub CommandButton3_Click()  ' DEĞİŞTİR
On Error Resume Next
   Dim conn As New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & DBpath _
           & ";Extended Properties=Excel 8.0;"
   conn.Execute "update " & ShName & _
              " set isimsoyad ='" & TextBox1 & "', tckimlikno ='" & TextBox2 & _
              " , sskno ='" & TextBox4 & " , babaadi ='" & TextBox5 & " , cinsiyeti ='" & TextBox6 & _
              " , dogumyeri ='" & TextBox7 & " , dogumtarihi ='" & TextBox8 & _
              " , adres ='" & TextBox11 & " , telev ='" & TextBox9 & " , telcep ='" & TextBox10 & _
              "' where isimsoyad='" & ListBox1.Column(0) & _
              "' AND tckimlikno = '" & ListBox1.Column(1) & _
              "' AND sskno = '" & ListBox1.Column(2) & _
              "' AND babaadi = '" & ListBox1.Column(3) & _
              "' AND cinsiyeti = '" & ListBox1.Column(4) & _
              "' AND dogumyeri = '" & ListBox1.Column(5) & _
              "' AND dogumtarihi = '" & ListBox1.Column(6) & _
              "' AND adres = '" & ListBox1.Column(7) & _
              "' AND telev = '" & ListBox1.Column(8) & _
              "' AND telcep = '" & ListBox1.Column(9) & "'"
   'Isim_soyad  tckimlikno  sskno   babaadı cinsiyeti   doğumyeri   doğumtarihi adres   telev   telcep
   conn.Close
   Call GetData
   TextBox1 = ""
   TextBox2 = ""
   TextBox4 = ""
   TextBox5 = ""
   TextBox6 = ""
   TextBox7 = ""
   TextBox8 = ""
   TextBox9 = ""
   TextBox10 = ""
   TextBox11 = ""
 
  End Sub
Private Sub CommandButton4_Click() ' SİL
   Dim conn As New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & DBpath _
           & ";Extended Properties=Excel 8.0;"
   conn.Execute "update " & ShName & _
                "' set isimsoyad ='" & _
                "' where isimsoyad='" & ListBox1.Column(0) & ""
   conn.Close
   Call GetData
   TextBox1 = ""
   TextBox2 = ""
   TextBox4 = ""
   TextBox5 = ""
   TextBox6 = ""
   TextBox7 = ""
   TextBox8 = ""
   TextBox9 = ""
   TextBox10 = ""
   TextBox11 = ""
   End Sub

 

[iaydin20]

arkadşlar yardımlarınızı bekliyorum