Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

problem mit datenbank
Autor: Zero_CooL
Datum: 23.12.03 19:27
also ich hab versucht ne datenbank zuprogrammieren in vb hier der code: Private Sub cmdsave_Click() Tabelle.AddNew Tabelle("Anrede") = txtherr.Text Tabelle("Name") = txtname.Text Tabelle("Strasse") = txtstrasse.Text Tabelle("PLZ") = txtplz.Text Tabelle("Ort") = txtort.Text Tabelle("Telefon") = txtort.Text Tabelle("Email") = txtemail.Text Tabelle.Update Tabelle.Bookmark = Tabelle.LastModified End Sub Private Sub Form_Load() Dim Db As Database Dim dbFile As String dbFile = App.Path + "test.mdb" Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, dbEncrypt + dbVersion30) Dim TabDef As New TableDef Dim Feld As New Field TabDef.Name = "Adressen" 'Datenfeld #1 Feld.Name = "AdressNr" Feld.Type = dbLong Feld.Attributes = dbAutoIncrField TabDef.Fields.Append Feld Set Feld = Nothing 'Datenfeld #2 Feld.Name = "Anrede" Feld.Type = dbText Feld.Size = 20 Feld.AllowZeroLength = True TabDef.Fields.Append Feld Set Feld = Nothing 'Datenfeld #3 Feld.Name = "Name" Feld.Type = dbText Feld.Size = 50 Feld.AllowZeroLength = True TabDef.Fields.Append Feld Set Feld = Nothing 'Datenfeld #4 Feld.Name = "Strasse" Feld.Type = dbText Feld.Size = 35 Feld.AllowZeroLength = True TabDef.Fields.Append Feld Set Feld = Nothing 'Datenfeld #5 Feld.Name = "PLZ" Feld.Type = dbText Feld.Size = 8 Feld.AllowZeroLength = True TabDef.Fields.Append Feld Set Feld = Nothing 'Datenfeld #6 Feld.Name = "Ort" Feld.Type = dbText Feld.Size = 40 Feld.AllowZeroLength = True TabDef.Fields.Append Feld Set Feld = Nothing 'Datenfeld #7 Feld.Name = "Telefon" Feld.Type = dbText Feld.Size = 25 Feld.AllowZeroLength = True TabDef.Fields.Append Feld Set Feld = Nothing 'Datenfeld #8 Feld.Name = "EMail" Feld.Type = dbText Feld.Size = 50 Feld.AllowZeroLength = True TabDef.Fields.Append Feld Set Feld = Nothing Db.TableDefs.Append TabDef Db.Close Set TabDef = Nothing Set Db = Nothing Dim Tabelle As Recordset dbFile = App.Path + "test.mdb" Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) Set Tabelle = Db.OpenRecordset("ADRESSEN") Tabelle.Close Db.Close Set Tabelle = Nothing Set Db = Nothing End Sub also jedes ma wo ich was in der datenbank speichern will komm die fehlermeldung "objekt erforderlich" und zwar bei Tabelle.AddNew kann mir jemad hefen

problem mit datenbank	811	Zero_CooL	23.12.03 19:27
Re: problem mit datenbank	569	Dieter	23.12.03 19:32
Re: problem mit datenbank	516	Zero_CooL	23.12.03 19:52
Re: problem mit datenbank	547	Ne kölsche Jung	28.12.03 20:22

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