KODLAR
If adi.Text = "" Then
MsgBox "Boş Arama Gerçekleştirilemez"
Else
Dim conn As Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=microsoft.jet.oledb.4.0"
conn.Open App.Path & "\db.mdb"
Set ac = New ADODB.Recordset
SQL = "select * from Tablo1 where adi ='" & CStr(adi.Text) & "' and soyadi ='" & CStr(soyadi.Text) & "' "
ac.Open SQL, conn, 1, 3
tckimlikno.Text = ac("tckimlikno")
kayittarihi.Text = ac("kayittarihi")
dogumtarihi.Text = ac("dogumtarihi")
adres.Text = ac("adres")
tedavi.Text = ac("tedavi")
telefonno.Text = ac("telefonno")
ac.Update
ac.Close
End If
BOF yada EOF Hatası
Bu Konudaki Yorumlar |
BOF yada EOF Hatası - Yazar: ceforce - 24/11/2013, 17:57
Cvp: BOF yada EOF Hatası - Yazar: alpeki99 - 24/11/2013, 21:53
Cvp: BOF yada EOF Hatası - Yazar: ceforce - 24/11/2013, 22:45
Cvp: BOF yada EOF Hatası - Yazar: ceforce - 25/11/2013, 09:45
|
Konuyu Okuyanlar: 1 Ziyaretçi