Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suchergebnisse in Grid anzeigen
Autor: Chris
Datum: 14.01.02 14:57
Hi ! ! ! Ich möchte die Suchergebnisse(von einer Datenbank) in einem Grid anzeigen lassen, welches Grid würde sich da gut eigene, und wie funktioniert das??? Beispiel-Code würde mich sehr freuen. Hier mal meine Such-routine: 'Datenbank öffnen Dim SQL As String Dim Db As Database Dim Tabelle As Recordset Dim dbFile As String dbFile = App.Path + "Daten.MDB" SQL = "SELECT * FROM Kunden Where Nachname Like '" & Me.txtNachname.Text & "*' And Vorname Like '" & Me.txtVorname.Text & "*' And GebDatum Like '" & Me.txtGebDatum.Text & "*'" Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) Set Tabelle = Db.OpenRecordset(SQL, dbOpenDynaset) 'Prüfen, ob Suche erfolgreich If Not Tabelle.EOF Then List1.Clear Do While Not Tabelle.EOF N = "": V = "": G = "" With Tabelle If Not IsNull(!Nachname) Then N = !Nachname If Not IsNull(!Vorname) Then V = !Vorname If Not IsNull(!GebDatum) Then G = !GebDatum If Not IsNull(!Ort) Then O = !Ort If Not IsNull(!Strasse) Then S = !Strasse .MoveNext Anzeige in Grid End With Loop Else 'kein Datensatz vorhanden MsgBox "Kein entsprechender Kunde gespeichert." End If Danke MfG Chris

Suchergebnisse in Grid anzeigen

46

Chris

14.01.02 14:57

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