excel vb access baglanti hatasi (ekte)

[serkankiyak]

Ekli dosyayı görüntüle personel.mdb

Ekli dosyayı görüntüle PERSONEL%20B%C4%B0LG%C4%B0.xlsm
Arkadaslar merhaba,
Ekteki formu biryerden kopya cektim. Ama bende calismadi. Kontrol ettim kod ayni. Sadece isimleri degistirdim. Yardimci olabillecek varsa cok sevinirim.

 

[serkankiyak]

Yok mu bı yardımcı olacak hayırsever...

 

[Levent Menteşoğlu]

Dosyanızdaki kaydet butonuna bağlı kodlardaki persone1.mdb dosya adını personel.mdb olarak düzeltin.

 

[serkankiyak]

Levent Bey, personel.mdb olarak duzelttıgımde yınede calısmıyor.

 

[Levent Menteşoğlu]

Birde alan adında hata var. Aşağıdaki satırdaki "kan_idrar" yerine "kanidrar" yazın.

rs("kan_idrar") = TextBox7.Text

 

[serkankiyak]

Levent Bey,
Her iki alandaki hatali kodu duzelttim. ( Persone1.mdb yi personel.mdb olarak , kan_idrar kanidrar olarak. Yine hata veriyor.
Private Sub CommandButton1_Click()
Set baglan = CreateObject("Adodb.connection")
baglan.provider = ("microsoft.jet.oledb.4.0")
baglan.Open "D:\vb\personel.mdb"
CommandButton1.Caption = "bağlantı kuruldu"
strSql = "select * from kayit"
Set rs = baglan.Execute(strSql)
TextBox1.Text = rs("sicil")
TextBox2.Text = rs("adi")
TextBox3.Text = rs("soyadi")
TextBox4.Text = rs("bolumu")
TextBox5.Text = rs("ekg")
TextBox6.Text = rs("solunum")
TextBox7.Text = rs("kanidrar")
TextBox8.Text = rs("akciger")
TextBox9.Text = rs("isitme")
TextBox10.Text = rs("tansiyon")
TextBox11.Text = rs("goz")
TextBox12.Text = rs("aciklama")
baglan.Close
End Sub
Private Sub CommandButton2_Click()
Set baglan = CreateObject("Adodb.connection")
baglan.provider = ("microsoft.jet.oledb.4.0")
baglan.Open "D:\vb\personel.mdb"
strSql = "select * from kayit"
Set rs = CreateObject("adodb.recordset")
rs.Open strSql, baglan, 1, 3
rs.addnew
rs("sicil") = TextBox1.Text
rs("adi") = TextBox2.Text
rs("soyadi") = TextBox3.Text
rs("bolumu") = TextBox4.Text
rs("ekg") = TextBox5.Text
rs("solunum") = TextBox6.Text
rs("kanidrar") = TextBox7.Text
rs("akciger") = TextBox8.Text
rs("isitme") = TextBox9.Text
rs("tansiyon") = TextBox10.Text
rs("goz") = TextBox11.Text
rs("aciklama") = TextBox12.Text
rs.Update
rs.Close
Label14.Caption = "kayıt yapıldı"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
baglan.Close
End Sub

Son durum bu sekilde