Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Find a record with ADO??
- Thread starter toto2000
- Start date
Private myConn As New ADODB.Connection
Private myRS As New ADODB.Recordset
myConn .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\Test.mdb"
myRS.Open "SELECT * From myTable", myConn, adOpenStatic, adLockPessimistic
myRS.Requery
Dim Question as String
Question = Inputbox("Give a name",vbQuestion+vbOKOnly)
With MyRS
.MoveFirst
.Find "Name='" & Question & "'"
If .EOF Then
MsgBox "Name " & Question & " not found.", vbOKOnly + vbExclamation
Else
MsgBox "Record found"
End If
End With
Hope this helps
Good luck
Private myRS As New ADODB.Recordset
myConn .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\Test.mdb"
myRS.Open "SELECT * From myTable", myConn, adOpenStatic, adLockPessimistic
myRS.Requery
Dim Question as String
Question = Inputbox("Give a name",vbQuestion+vbOKOnly)
With MyRS
.MoveFirst
.Find "Name='" & Question & "'"
If .EOF Then
MsgBox "Name " & Question & " not found.", vbOKOnly + vbExclamation
Else
MsgBox "Record found"
End If
End With
Hope this helps
Good luck
- Status
