Et tilsvarende til Like i VB

Du skal nok bruge funktionen strComp...

Ja og der løber jeg så panden mod muren da min VB lære bog ikke forklare mig noget om dette... Så hvis du gider komme med en lidt mere uddybende forklaring vil jeg være glad
MC

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctcstr.asp

TGodt nok for VBScript, men så vidt jeg husker, er funktionen den samme.

Dette brude virke:
Qstreng = "SELECT * FROM Navn " _
& "WHERE Navn like ('" & søgnavn & "') ORDER by Navn"
Set ss = Db.OpenRecordset(Qstreng)
ss.MoveFirst

Woops, jeg tror jeg misfortos spørgsmålet... :)

Peter>>>Det er ikke SQL jeg skal bruge her men Access

MC

Gå ind i VB, skriv strcomp (ikke strcompare), placer cursoren midt i ordet og tryk F1 :o)

Skal du ikke bare finde records. Hvis ja,hvorfor så ikke bruge sql

Ret mig hvis jeg tager fejl

Men Sql kan ikke bruges mod en access db Korekt ??

Fordi programmet er Udviklet til at køre på en bærbar der flyttes fra sin plads rimelig tit og jeg syntes måske det er lidt overkill at indstalere en Sql Db på en workstaion
MC

> Men Sql kan ikke bruges mod en access db Korekt ??
Forkert

En Acces Db syntes jeg nu er det letteste til denne funktion
MC

Men jeg mener da at man i matematik lære en funktion der betyder "Næsten Lig med" gør man ikke

Den må VB da kunne forstå
MC

Ja, men det kan du ikke bruge, når du skal ind i databasen.. Så skulle du først hive al data ud fra databasen, og så traversere igennem det, og sammenligne alt. Databasen er bygget til at gøre dette for dig.

Der er MASSER af besvarede spørgsmål om hvordan man kikker i en Access-database vha SQL i VB.

Her et (godt:-) eksempl: www.eksperten.dk/spm/252045

Følgende rutine løber en access database igennem for den tekst der er trykket på i en listbox.......og sætter ind i tekstboxe fra de forskellige records der er fundet der matcher....

Refference: Microsoft DAO 3.51 eller 3.6 skal tilføjes.....

Private Sub lstGames_Click()

'Connects to the database

Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\CDDatabase.mdb")
Set rs = db.OpenRecordset("SELECT * FROM games")

'Moves to the firts recordset

If Not rs.EOF Then
    rs.MoveFirst
   
'Loop that makes the program go throug the database
   
    Do While Not rs.EOF

        'When the record is found the textfelts is filled
       
        If lstGames.Text = rs!Title Then
            txtGamesTitle.Text = rs!Title
            txtGamesGenre.Text = rs!genre
            txtGamesPlatform.Text = rs!Platform
            txtGamesCDName.Text = rs!cdname
            txtGamesCDNumber.Text = rs!cdnr
            txtGamesOwner.Text = rs!Owner
            txtGamesBorowed.Text = rs!borowed
            txtGamesFileType.Text = rs!filetype
        Exit Sub
        Else: rs.MoveNext
        End If
    Loop
End If
End Sub

Den skal self skrives lidt om så den passer til dit behov....

/Tubber

Kan f.eks. kombineres med den like.......

Jeg er startet helt forfra på projektet og benytter nu Sql mod en sql db såå jeg lukker her

MC