Slm arkadaslar,
odevim geregi VB ile mysql server'a baglanmam gerekiyor. Baglaniyorum ve tablodaki kayitlari DBGrid nesnesi ile gosteriyorum FAKAT asil sorun bi kayit arayip bulunursa ona konumlanmak. Bookmark ve AbsolutePosition denedim ama basaramadim. Ayrica Sorgulamayi SQL ile yapiyorum cunku "FindFirst" yok ve kayit bulunamadigi zaman da yazdigim hata mesaji cikmiyor. Yardimci olabilir misiniz? Kod:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim rslocation As Variant
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
sql = "SELECT * FROM tstudent WHERE Name LIKE '" & xSearch & "%'"
rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True Then
rs.Close
Set rs = Nothing
Exit Function
End If
If IsNull(rs!Name) = True Then
msg = MsgBox("Searched record couldn't be found.")
NameSearch = False
Else
rslocation=rs.AbsolutePosition
rs.Move rslocation
NameSearch = True
End If
rs.Close
Set rs = Nothing
__________________
ADODB ve Arama
Programlama0 Mesaj
●25 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- ADODB ve Arama