Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mein Quellcode
Autor: Chris
Datum: 13.01.02 17:28
Hi ! ! ! Hier mal mein Quellcode: ' Private Sub cmbSuchen_Click() '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 Tabelle Where Nachname Like 'A*'" 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 & " " & V & ", " & G Loop Else 'kein Datensatz vorhanden MsgBox "Kein entsprechender Datensatz gespeichert." End If End Sub ' Ich weis nicht, warum es nicht funktioniert??? Danke MfG Chris

SQL Datenbank	71	Chris	13.01.02 10:26
Re: SQL Datenbank	222	Dieter	13.01.02 11:12
Re: SQL Datenbank	70	Chris	13.01.02 16:09
Mein Quellcode	59	Chris	13.01.02 17:28
Re: Mein Quellcode	209	unbekannt	13.01.02 17:32
Daten in TextBos laden	39	Chris	13.01.02 18:17

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