Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Database
Autor: raymond
Datum: 19.02.02 20:43
Hallo Leute. Ich habe aus dem Workshop das Tutorial über die Datenbank Programmierung ausprobiert. Jetzt kommt mein Problem: Ich bekomme immer in der Zeile db.TableDefs.Append login einen Laufzeitfehler 3001: Invalid Argument Hier ist der gesamte Quelltext: Option Explicit Private Sub Form_Load() Dim db As Database Dim dbfile As String dbfile = App.Path + "login1.mdb" Set db = Workspaces(0).CreateDatabase(dbfile, dbLangGeneral) Dim login As New TableDef Dim feld As New Field login.Name = "login1" feld.Name = "PersNr" feld.Type = dbInteger feld.Attributes = dbAutoIncrField login.Fields.Append feld Set feld = Nothing feld.Name = "Name" feld.Type = dbText feld.Size = 50 feld.AllowZeroLength = True login.Fields.Append feld Set feld = Nothing feld.Name = "Kürzel" feld.Type = dbText feld.Size = 10 feld.AllowZeroLength = True login.Fields.Append feld Set feld = Nothing feld.Name = "passwort" feld.Type = dbText feld.Size = 8 feld.AllowZeroLength = True login.Fields.Append feld Set feld = Nothing db.TableDefs.Append login db.Close Set login = Nothing Set db = Nothing End Sub Könnte mir bitte jemand sagen, was ich falsch mache. Vielen Dank schon mal Ray.

Database	57	raymond	19.02.02 20:43
Re: Database	221	Dieter	19.02.02 21:54
Re: Database	36	raymond	19.02.02 22:12

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