Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datenbank Tabellen
Autor: unbekannt
Datum: 21.05.03 17:32
Private Sub Form_Load() Dim Db As Database Dim dbFile As String Dim TabDef As TableDef Dim Feld As Field dbFile = App.Path + "\ADRESS.MDB" Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _ dbEncrypt + dbVersion30) Set TabDef = Db.CreateTableDef("Adressen") With TabDef .Fields.Append .CreateField("AdressNr",dbLong) .Fields("AddresNr").Attributes = dbAutoIncrField .Fields.Append .CreateField("Anrede",dbText,20) .Fields.Append .CreateField("Name",dbText,50) .Fields.Append .CreateField("Strasse,dbText,35) .Fields.Append .CreateField("PLZ",dbText,8) .Fields.Append .CreateField("Ort,dbText, 40) .Fields.Append. CreateField("Telefon",dbText ,25) .Fields.Append. CreateField("EMail",dbText, 50) End With For Each Feld in Tabdef.Fields If Feld.Name <> "AdressNr" Then Feld.Allowzerolenght = True End If Nexct Db.TableDefs.Append TabDef 'zweite Tabelle Set TabDef = DB.CreateTableDef("ZweiteTabelle") With TabDef .Fields.Append .CreateField("AdressNr",dbLong) .Fields("AddresNr").Attributes = dbAutoIncrField .Fields.Append .CreateField("Anrede",dbText,20) .Fields.Append .CreateField("Name",dbText,50) .Fields.Append .CreateField("Strasse,dbText,35) .Fields.Append .CreateField("PLZ",dbText,8) .Fields.Append .CreateField("Ort,dbText, 40) .Fields.Append. CreateField("Telefon",dbText ,25) .Fields.Append. CreateField("EMail",dbText, 50) End With For Each Feld in Tabdef.Fields If Feld.Name <> "AdressNr" Then Feld.Allowzerolenght = True End If Nexct Db.TableDefs.Append TabDef Db.Close Set DB=Nothing End Sub 0

Datenbank Tabellen	728	MT Arens	21.05.03 17:15
Re: Datenbank Tabellen	445	Dieter	21.05.03 17:20
Re: Datenbank Tabellen	525	unbekannt	21.05.03 17:32
Re: Datenbank Tabellen	426	MT Arens	23.05.03 17:53
Re: Datenbank Tabellen	443	MT Arens	21.05.03 17:49
Re: Datenbank Tabellen	404	unbekannt	21.05.03 18:56

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