Hejsan... Eftersom det är text du söker efter ska det vara ' runtvariabeln, tycker inte att du borde fått detta felmeddelandet då, men om det inte fungerar kan du skriva ner vilken rad felet blir på. Tack för svaret johan men ja har redan testat att köra den koden & då hittar den inget i databasen fast ja söker på sådant ja vet finns där???Sök funktion funkar ej?
Ja försöker söka i en databas med hjälp av denna koden men det går ej... men varför? skriver man inte ut variabler i SQL satsen så här --> "& variable &" ??? för när ja skriver så blir det fel mess att för få parametar angavs. 1 angavs....
<code>
Private Sub Command5_Click()
If Text4 = "" Then
MsgBox "Det fungerar bättre om man söker efter någt !?!", , "Error"
Else
Set Connect = New Connection
Set RecSet = New Recordset
file = "C:\Inetpub\wwwroot\filmer.mdb"
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file
SQL = "SELECT * FROM filmer where namn = " & Text4 & " order by id DESC"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
If RecSet.EOF Then
MsgBox "Din sökning gav inga träffar...", , "Error"
Else
totalt = RecSet.Fields.Count
namn = RecSet("namn")
Temp = MsgBox("Resultat:" & namn & "fans i databasen", , total & "träffar")
RecSet.Close
Set RecSet = Nothing
End If
</code>
MvhSv: Sök funktion funkar ej?
SQL = "SELECT * FROM filmer where namn = '" & Text4 & "' order by id DESC"
/JohanSv: Sök funktion funkar ej?
Har du några andra förslag?
Mvh