Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datenbank
Autor: Chris
Datum: 13.01.02 20:38
Hi ! ! ! Ich lasse mit folgendem Quellcode einen Kunden in einer Datenbank suchen(mit SQL) und bei erfolgreicher Suche in eine ListBox hinzufügen. Damit hier der gleiche Abstand zwischen den Namen bzw. Daten bleibt benutze ich vbTab. Jetzt möchte ich aber, dass wenn der Benutzer auf diese ListBox Doppel-klickt die Kunden-daten(also Nachname, Vorname, GebDatum, usw.) in einer TextBox erscheinen. Wie mache ich das??? Private Sub cmbSuchen_Click() List1.Clear '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 .MoveNext End With List1.AddItem N & vbTab & vbTab & V & vbTab & vbTab & G Loop Else 'kein Datensatz vorhanden MsgBox "Kein entsprechender Kunde gespeichert." End If End Sub Bitte helft mir Danke MfG Chris

Datenbank	63	Chris	13.01.02 20:38
Re: Datenbank	232	Dieter	13.01.02 20:52
Dnake (oT)	34	Chris	13.01.02 21:03

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