27. august 2002 - 15:00Der er
13 kommentarer og 1 løsning
AND søgning!!!!
Jeg har lige denne lille søgning her: ------------------------------------------------------- Private Sub cmdSearch_Click() List1.Clear strKeyword = txtSearch.Text And strKeyword = txtSearch2.Text objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb" strSQL = "SELECT SFdwg, Type, logstormat FROM logstor WHERE" strSQL = strSQL & " (SFdwg LIKE '%" & strKeyword & "%')" strSQL = strSQL & " OR (logstormat LIKE '%" & strKeyword & "%')" strSQL = strSQL & " OR (Type LIKE '%" & strKeyword & "%')" Set objRs = objConn.Execute(strSQL) While Not objRs.EOF List1.AddItem "" & objRs("SFdwg") & "" objRs.MoveNext Wend Set objRs = Nothing objConn.Close End Sub ------------------------------------------------------- Meningen er at den skal søge efter alt hvad der står i: txtSearch.Text OG txtSearch2.Text
OG KUN vise det der passer med beggé.... det gør den så ikke.. den tager ALT hvad der passer med det der står ikke Textboksene.... HVORFOR??
Dit problem er at din SQL-sætning er forkert opbygget i forhold til hvad du vil. Måden du opbygger din liste på er helt fin. Jeg prøvede bare at få dig til at forstå hvordan SQL egentlig virker og hvordan du kan sikre at der bliver søgt korrekt selv om der ikke er udfyldt noget i den en af dine textbox'e.
Jeg vil jo bare gerne have det sådan at den skal gå ind i tre ComboBOXE og se efter hvad man har valgt... og liste alle de emner det passer ind i søgningen... og hvis man ikke udfylde det skal den tage det som om at det er ligemeget...!!!
Hvad nu hvis jeg bruger DAO og allerede har denne kode: --------------------------------------------------------------------------- Private Sub cmdSearch_Click() List1.Clear
Dim soegenavn As String soegenavn = txtSearch recRecordset.MoveFirst If Not recRecordset.EOF Then UpdateFelter Do While recRecordset.EOF = False If recRecordset("Navn") = soegenavn Then List1.AddItem "" & recRecordset("navn") & "" Exit Sub End If recRecordset.MoveNext Loop MsgBox "Søgeord ikke fundet" End If End Sub ---------------------------------------------------------------------------
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.
