21. januar 2004 - 23:33
Der er
6 kommentarer og
1 løsning
søge i accesDB vha et søgefelt.
Har en tabel der hedder kunder
m. flg. felter
ID(autonr), Fornavn, Efternavn, Afdresse, Afdresse2, PostNr, By, Tlf, Info, Data
Og vil lave en søge funktion, som søger i alle felterne.
i stil med at søge i SQL, "LIKE" har kigget lidt på
SQL fatter minus af det.. :-(
Og kan ikke få kundedb.recordset.seek("",,,) til at virke.. :-(
hjææælp
21. januar 2004 - 23:50
#2
igen,, fatter minus af sql, for trykker jeg det i VB, fpr jeg fejl me det samme.
jeg har igen forsøgt at lege med ADO..
Private Sub cmd_soeg_Click()
kundedb.Recordset.Seek , txtbx_soeg.Text
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
hmm virker heller ike
22. januar 2004 - 00:14
#6
Jeps jeps dette virker :
If kundedb.Recordset.BOF = False Then
kundedb.Recordset.MoveFirst
End If
Dim strBookmark As String
If kundedb.Recordset.Index <> "KundeTlf" Then
kundedb.Recordset.Index = "KundeTlf"
End If
strBookmark = kundedb.Recordset.Bookmark
kundedb.Recordset.Seek "=", txtbx_soeg.Text 'Put your field name here instead of PhoneNo
' or for partial match
kundedb.Recordset.Seek ">=", txtbx_soeg.Text 'Put your field name here instead of PhoneNo
If kundedb.Recordset.NoMatch Then
MsgBox "Not found"
'return to previous record
' kundedb.Recordset.Bookmark = strBookmark
Else
MsgBox "Phone No " & txtbx_soeg.Text & " belongs to " & kundedb.Recordset!KundeNavn 'substitute !Name for your field name.
End If
If kundedb.Recordset.BOF = False Then
kundedb.Recordset.MoveFirst
End If