Avatar billede eqvaliser Nybegynder
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
Avatar billede helmet Nybegynder
21. januar 2004 - 23:43 #1
Avatar billede eqvaliser Nybegynder
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
Avatar billede eqvaliser Nybegynder
21. januar 2004 - 23:52 #3
har også kigget på http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdamth03_12.asp

også deres eksempel, men det gir ik mening at skulle lave et array, for at søge.
Avatar billede eqvaliser Nybegynder
22. januar 2004 - 00:00 #4
hmm fandt noget her
Avatar billede eqvaliser Nybegynder
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
Avatar billede eqvaliser Nybegynder
22. januar 2004 - 00:16 #7
men det er jo desværre ikke  "like"  funk. 

men det virker da..
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester