Hej, enklast är följande: Tack för det, men hur "splittar jag alla sökord i en array"???? det beror på hur du tar in dom, om du tex har en textbox och någon skriver in: Ord1 Ord2 Ord3 så kan du använda föjande:Enkel sökmotor
Jag har en mycket enkel sökmotor, sql:en ser ut så här:
sql = "select * from TABELLNAMN where ORDET like '%" & sokord & "%'"
Detta fungerar bra om man bara skriver ett ord i formuläret.
Men hur skriver jag för att söka på alla ord som man fyller i formuläret? Skriver jag två ord med mellanslag imellan, så får jag ingen träff nu..
Tack på förhand!!!!!
/JockeSv: Enkel sökmotor
splitta alla sökord in i en array och använd följande kod:
for i = lbound(array) to ubound(array)
if bSearchOnAllWords then 'Sök på alla ord
sql = sql & " and ORDET like '%" & array(i) & "%'"
else 'Sök på vilka ord som helst
sql = sql & " or ORDET like '%" & array(i) & "%'"
endif
next i
sql = "select * from TABELLNAMN where " & mid(sql,4)Sv: Enkel sökmotor
Har du mer kod???
/JockeSv: Enkel sökmotor
dim Array() as string
Array=split(textbox.text," ")
då blir det så här
Array(1) = "Ord1"
Array(2) = "Ord2"
Array(3) = "Ord3"
eller om du vill använda semikolon som avgränsare och någon skriver in: Ord1 Ord2;Ord3:
dim Array() as string
Array=split(textbox.text,";")
Array(1) = "Ord1 Ord2"
Array(2) = "Ord3"