Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Suchroutine erstellen
Autor: mille20
Datum: 30.01.03 17:23
Hallo Dieter, vielen dank für die schnelle antwort !! Leider bringt er als ergebnis immer "Kein Treffer" obwohl das nicht sein kann !!!! Unten mal die ganze Prozedur !! Was ist falsch ??? Textfeld in VB= Suchnamen //Hier wird der Name eingegeben den ich suchen will Tabelle in DB=Adressen Spalte in Tab=Namen   Private Sub Suchen_Click() Dim DB As New ADODB.Connection Dim Person As New ADODB.Recordset Dim DBPfad As String DBPfad = "A:\db2.mdb" With DB .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; DataSource=" _ & DBPfad .Open App.Path & "\db2.mdb" End With With Person .ActiveConnection = DB .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open "SELECT Namen FROM Adressen WHERE Namen LIKE '" & Suchnamen & "%'" If .RecordCount = 0 Then MsgBox "Kein Treffer!" ElseIf .RecordCount = 1 Then MsgBox "1 Treffer: " & .Fields("Namen").Value Else MsgBox CStr(.RecordCount) & " Treffer!" ' Jetzt Recordset durchlaufen Do While Not .EOF Debug.Print .Fields("Namen").Value .MoveNext Loop End If .Close End With End Sub

Suchroutine erstellen	587	mille20	30.01.03 17:02
Re: Suchroutine erstellen	315	Dieter	30.01.03 17:13
Re: Suchroutine erstellen	323	mille20	30.01.03 17:23
Re: Suchroutine erstellen	306	Dieter	30.01.03 17:27
Re: Suchroutine erstellen	298	mille20	30.01.03 17:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen