Hallo...
Ich habe folgendes Problem:
Ich habe in VB ein Formular, in dem man in einer Access DB suchen kann.
Die Suche erfolgt dann über einen SQL-Befehl. Bei Access habe ich ja die Möglichkeit, mit * um den Suchbegriff auch nach ähnlichen Wörtern zu suchen.
Sobald die * da sind, klappt die Suche nicht mehr.
Hier mal ein Auszug aus meinem Code:
----------
Dim strSuche as String
strSuche = "*" & CStr(txtsuche.Text) & "*"
If cboSuche.ListIndex = 0 Then
Set rsSuche = New Recordset
rsSuche.Open "SELECT Kundennummer, Firma FROM tblKunden WHERE Kundennummer LIKE '" & strSuche & "';", con, AdOpenKeyset, AdLockOptimistic
Set dtaSuche.DataSource = rsSuche
Else
Set rsSuche = New Recordset
rsSuche.Open "SELECT Kundennummer, Firma FROM tblKunden WHERE Firma LIKE '" & strSuche & "';", con, AdOpenKeyset, AdLockOptimistic
Set dtaSuche.DataSource = rsSuche
End If
----------
Wenn ich die * um die Variable strSuche weglasse, dann klappt es.
Es geht dann aber auch nicht, dass ich die * im Suchfeld mit eingebe. Dann wird gar nichts gefunden.
Ich habe allerdings in einem anderen Formular eine ähnliche Lösung und da klappt es mit den * bei der Variable.
Ich hoff mal, ihr könnt mir weiterhelfen.
vlg, Ines
Ich habe folgendes Problem:
Ich habe in VB ein Formular, in dem man in einer Access DB suchen kann.
Die Suche erfolgt dann über einen SQL-Befehl. Bei Access habe ich ja die Möglichkeit, mit * um den Suchbegriff auch nach ähnlichen Wörtern zu suchen.
Sobald die * da sind, klappt die Suche nicht mehr.
Hier mal ein Auszug aus meinem Code:
----------
Dim strSuche as String
strSuche = "*" & CStr(txtsuche.Text) & "*"
If cboSuche.ListIndex = 0 Then
Set rsSuche = New Recordset
rsSuche.Open "SELECT Kundennummer, Firma FROM tblKunden WHERE Kundennummer LIKE '" & strSuche & "';", con, AdOpenKeyset, AdLockOptimistic
Set dtaSuche.DataSource = rsSuche
Else
Set rsSuche = New Recordset
rsSuche.Open "SELECT Kundennummer, Firma FROM tblKunden WHERE Firma LIKE '" & strSuche & "';", con, AdOpenKeyset, AdLockOptimistic
Set dtaSuche.DataSource = rsSuche
End If
----------
Wenn ich die * um die Variable strSuche weglasse, dann klappt es.
Es geht dann aber auch nicht, dass ich die * im Suchfeld mit eingebe. Dann wird gar nichts gefunden.
Ich habe allerdings in einem anderen Formular eine ähnliche Lösung und da klappt es mit den * bei der Variable.
Ich hoff mal, ihr könnt mir weiterhelfen.
vlg, Ines