Søgning i flere felter

fx.

SELECT * FROM tabel WHERE navn LIKE ('jens'%)

så finder den alle de records der har noget med jens at gøre.. fx. Jens Hansen eller Jens bundgaard...

//>Rune

Fx. kan du bruge denne SQL query...

strSQL = "SELECT ID, Navn, Adresse, Bynavn, Beskrivelse FROM Kunder WHERE"
strSQL = strSQL & " (Navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Adresse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Bynavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Beskrivelse LIKE '%" & strKeyword & "%')"

Den undersøger alle dine felter.. og alt hvad der har med dit "Keyword" at gøre..

//>Rune

Hvad nu hvis der er en der hedder Hans Jensen???

Finder den så osse ham???

Skal jeg bare sætte det ind som en click event på en Commandbutton???

Jeg har jo ikke en SQL database.... men en Access database...

Ja den finder oxo Hans Jensen.. hvis du ikke ønsker det, kan du bare fjerne procenttegnet foran strKeyword ved navn!

-prøv lige at lad mig se din connection til din Access database..!

//>Rune

Jeg har bare sat en "data" controler ind... sat den til at hente data fra en database.. indsat en textboks, og sat dem til at gå ind og vise en bestemt data fra en den tabel der er i databasen.....

Hmm.. okay, well, det er ik' så godt, i dette tilfælde.. Men okay, nu ved jeg ikke hvor meget du brænder efter at lære Visual Basic, men hvis du bare kan en smugle SQL så kan du med denne simple kode gøre det let!:

'** Betingelser:
'** Reference: Microsoft ActiveX Data Objects 2.5 Library

    Dim objConn As New Connection
    Dim objRs As Recordset
    Dim strSQL As String
   
  Function Connection()
      Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\DB.mdb"
  End Function

og så er det bare at skrive:

strSQL = "SELECT ID, Navn, Adresse, Bynavn, Beskrivelse FROM Kunder WHERE"
strSQL = strSQL & " (Navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Adresse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Bynavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Beskrivelse LIKE '%" & strKeyword & "%')"
Set objRs = objConn.Execute(strSQL)

-Prøv at leg lidt med det... -det her er lidt sjovere end datakontroler!

//>Rune

Undskyld, jeg manglede at rette et objekt til.. brug denne koden:

'** Betingelser:
'** Reference: Microsoft ActiveX Data Objects 2.5 Library

    Dim objConn As New Connection
    Dim objRs As Recordset
    Dim strSQL As String
   
  Function Connection()
      objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\DB.mdb"
  End Function

og så er det bare at skrive:

strSQL = "SELECT ID, Navn, Adresse, Bynavn, Beskrivelse FROM Kunder WHERE"
strSQL = strSQL & " (Navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Adresse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Bynavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Beskrivelse LIKE '%" & strKeyword & "%')"
Set objRs = objConn.Execute(strSQL)

//>Rune

Hvor skal det stå henne af????

Well, det kunne fx. være i toppen af dit dokument... Du jo så selvfølgelige lige rette scriptet til først, fx. du skal lave en sti til din database og skrive det rigtige navn på din database... -hmm hvis du sender en din database og dit program til mig kan jeg lave det for dig... rune@medions.dk

//>Rune

Er sendt....

ok... -har du oxo ICQ, eller MSN, for så kan jeg jo lige forhøre mig om forskellige ting der...

//>Rune

Ok, jeg har modtaget den... -jeg er desvære nødt til at smutte nu.. -kommer igen i morgen... -læg lige dit ICQ eller MSN id her, så adder jeg dig i aften eller i morgen...

//>Rune

jeg har desværre ikke tid før engang søndag måske.....

Men gider du lige kigge lidt på det??

Yep, skal jeg nok.. Men du er lige nødt til at give mig dit ICQ nr eller Messenger ID, så jeg lige kan kontakte dig...!

//>Rune

du kan bare lige få min email: domino@tdcadsl.dk

ok, her har du det så...:

Option Explicit

Dim objConn As New Connection
Dim objRs As Recordset
Dim strSQL As String
Dim strKeyword As String

Private Sub cmdSearch_Click()
    List1.Clear
    strKeyword = txtSearch.Text
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb"
            strSQL = "SELECT adresse, by, postnummer, land, kontaktperson, telefon, fax, email FROM kunde WHERE"
            strSQL = strSQL & " (adresse LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (by LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (postnummer LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (land LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (kontaktperson LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (telefon LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (fax LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (email LIKE '%" & strKeyword & "%')"
        Set objRs = objConn.Execute(strSQL)
           
            While Not objRs.EOF
                List1.AddItem "" & objRs("telefon") & ""
            objRs.MoveNext
            Wend
        Set objRs = Nothing
    objConn.Close
End Sub

Private Sub Form_Load()
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb"
        strSQL = "SELECT * FROM kunde"
        Set objRs = objConn.Execute(strSQL)
   
            adresse.Text = objRs("adresse")
            'adresse2.Text = objRs("adresse2") 'fjern mellemrumet i databasen, ved adresse 2!
            by.Text = objRs("by")
            postnummer.Text = objRs("postnummer")
            land.Text = objRs("land")
            person.Text = objRs("kontaktperson")
            telefon.Text = objRs("telefon")
            fax.Text = objRs("fax")
            email.Text = objRs("email")
        Set objRs = Nothing
    objConn.Close
End Sub

-jeg har send det hele pakket til dig på mail...!
//>Rune

Den er bare ivinkel!!!!!!

TAKKER

Var så lidt ;o)
Thx 4 Poinz

//>Rune