Kontakt
DSVGO
SQL = "select Vorname,Nachname from tPerson " & _ "where Nachname like 'sch%'" Set rs = db.OpenRecordset(SQL)im Allgemeinen alle Personen zurück, deren Nachname genau mit "sch" beginnen, jedoch nicht "Schmidt", "SCHMIDT" oder "ScHmIdT".
Function LikeString(ByVal Text As String) As String Dim i As Long Dim Char As String For i = 1 To Len(Text) Char = LCase$(Mid$(Text, i, 1)) Select Case Char Case "a" To "z", "ä", "ö", "ü" Char = "[" & Char & UCase$(Char) & "]" Case "'" Char = "''" End Select LikeString = LikeString & Char Next i LikeString = "'" & LikeString & "'" End FunctionDas obige Beispiel würde man also so kodieren, um unabhängig von der Groß-/Kleinschreibung zu suchen:
SQL = "select Vorname,Nachname from tPerson " & _ "where Nachname like " & LikeString("sch%") Set rs = db.OpenRecordset(SQL)
© Jost Schwider, 17.07.2000-17.07.2000 - http://vb-tec.de/likestri.htm