vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Datenbank Tabellen 
Autor: MT Arens
Datum: 21.05.03 17:15
Halle Leute,

ich möchte gerne mehrere Tabellen in einer Datenbank erstellen, und mache das nach dem Prinzip aus dem Workshop. Dann hat man mir hier im Forum gesagt, um eine 2, 3, ... Tabelle zu erstellen sollte ich einfach das gleiche nochmal machen.
Also habe ich das gemacht, hier ist der Code dazu: 
Private Sub Form_Load()
Dim Db As Database
Dim dbFile As String
Dim TabDef As New TableDef
Dim Feld As New Field
 
dbFile = App.Path + "\ADRESS.MDB"
Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _
  dbEncrypt + dbVersion30)
 
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
 
'zweite Tabelle
TabDef.Name = "ABC"
 
'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
 
End Sub
Aber es wird nur eine Tabelle erstellt. Kann mir einer sagen, was ich falsch mache?

Thanks 4 Help Wer Rechtschreibfehler findet darf Sie behalten!!

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datenbank Tabellen725MT Arens21.05.03 17:15
Re: Datenbank Tabellen444ModeratorDieter21.05.03 17:20
Re: Datenbank Tabellen523unbekannt21.05.03 17:32
Re: Datenbank Tabellen425MT Arens23.05.03 17:53
Re: Datenbank Tabellen441MT Arens21.05.03 17:49
Re: Datenbank Tabellen402unbekannt21.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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel