Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

SQL Datenbank
Autor: Chris
Datum: 13.01.02 10:26
Hi ! ! ! Lordchen hat mir gestern folgenden Quellcode für die suche in einer Datenbank gegeben, doch nun funktioniert der Code bei mir nicht??? Private Sub FindDS(Byval SQL As String) 'Datenbank öffnen Dim Db As Database Dim Tabelle As Recordset Dim dbFile As String dbFile = App.Path + "Daten.MDB" 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(!Name) Then N = !Name 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 Was kann das sein??? Es kommt folgender Fehler in der Zeile Set Tabelle = Db.OpenRecordset(SQL, dbOpenDynaset) FehlerNr. 3078 "Das Microsoft Jet-Datenbankmodul findet die Eingangstabelle oder Abfrage nicht. Stellen sic sicher, dass sie existiert und der Name richtig eingegeben wurde." Danke MfG Chris

SQL Datenbank	70	Chris	13.01.02 10:26
Re: SQL Datenbank	221	Dieter	13.01.02 11:12
Re: SQL Datenbank	69	Chris	13.01.02 16:09
Mein Quellcode	58	Chris	13.01.02 17:28
Re: Mein Quellcode	208	unbekannt	13.01.02 17:32
Daten in TextBos laden	38	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