title image


Smiley Re: Suchfunktion in VB6
Du mußt hier eine SQL Anweisung schreiben!Schau mal in der Online-Doku nach oder probier folgendes:Private Sub Command1_Click()On Error Resume Next Dim RstQuery As Recordset Dim strSQL As String DataBaseFile = "C:\DeineDatenbank.mdb" Set db = OpenDatabase(DataBaseFile) strSQL = "SELECT * FROM [DeinRecordset] WHERE " & _ "[Nachname] LIKE '*" & txtSuche.Text & "*'" Set RstQuery = db.OpenRecordset(strSQL) If Not (RstQuery.BOF And RstQuery.EOF) Then For i = 0 To AnzahlDatensätze List1.AddItem RstQuery.Fields("Nachnahme").Value & _ RstQuery.Fields("Vorname").Value RstQuery.MoveNext NextEnd IfRstQuery.CloseEnd SubIn List1 werden dann Nachnahme, Vorname von allen Datensätzen eingetragen, deren Nachname den Suchstringenthält.Andererseits könntest Du z.B., wenn die Datenbank nicht allzu groß ist, alle Nachnamen in einer Liste eintragen unddann den Suchbegriff mit der InStr-Funktion suchen. Bei recht kleinen Datenbanken ist das übersichtlicher.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: