vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 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
Re: Ahhhrg - DB 
Autor: cromec
Datum: 04.04.02 20:12
Ich will eine neue DB anlegen:
Dim Db As Database
Dim dbFile As String

dbFile = App.Path & "
clizenzen.mdb"
Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, dbEncrypt + dbVersion30)

Dim Tabelle As New TableDef
Dim Feld As New Field

Tabelle.Name = "Lizenzen"

'Datenfeld1
Feld.Name = "Vorname"
FeldType = dbText
Feld.Size = 50
Feld.AllowZeroLength = True
Tabelle.Fields.Append Feld
Set Feld = Nothing


'Datenfeld2
Feld.Name = "Nachname"
FeldType = dbText
Feld.Size = 50
Feld.AllowZeroLength = True
Tabelle.Fields.Append Feld
Set Feld = Nothing

'Datenfeld3
Feld.Name = "Firma"
FeldType = dbText
Feld.Size = 75
Feld.AllowZeroLength = True
Tabelle.Fields.Append Feld
Set Feld = Nothing

'Datenfeld4
Feld.Name = "Strasse"
FeldType = dbText
Feld.Size = 50
Feld.AllowZeroLength = True
Tabelle.Fields.Append Feld
Set Feld = Nothing

'Datenfeld5
Feld.Name = "PLZ"
FeldType = dbText
Feld.Size = 5
Feld.AllowZeroLength = True
Tabelle.Fields.Append Feld
Set Feld = Nothing

'Datenfeld6
Feld.Name = "Ort"
FeldType = dbText
Feld.Size = 50
'Feld.AllowZeroLength = True
Tabelle.Fields.Append Feld
Set Feld = Nothing

'Datenfeld7
Feld.Name = "Lizenzen"
FeldType = dbText
Feld.Size = 50
Feld.AllowZeroLength = True
Tabelle.Fields.Append Feld
Set Feld = Nothing

'Datenfeld8
Feld.Name = "Lizenz-ID"
FeldType = dbText
Feld.Size = 0
Feld.AllowZeroLength = True
Tabelle.Fields.Append Feld
Set Feld = Nothing


Db.TableDefs.Append Tabelle
Db.Close
Set Tabelle = Nothing
Set Db = Nothing
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datenbank80cromec04.04.02 15:51
Re: Datenbank231ModeratorDieter04.04.02 17:14
Re: Datenbank40cromec04.04.02 17:36
Ahhhrg - DB47cromec04.04.02 19:42
Re: Ahhhrg - DB261ModeratorDieter04.04.02 19:54
Re: Ahhhrg - DB40cromec04.04.02 19:57
Re: Ahhhrg - DB236ModeratorDieter04.04.02 20:02
Re: Ahhhrg - DB39cromec04.04.02 20:12
Re: Ahhhrg - DB232ModeratorDieter04.04.02 20:18
oops83cromec04.04.02 20:37

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