PDA

Vollständige Version anzeigen : Neue Datenbank aus bestehender erstellen


Raller
19.02.2003, 08:10
Moin Leute,

kann ich aus einer bestehenden Datenbank eine neue, leere Datenbank auf der Festplatte anlegen (z.B.: mit Button auf Form)?

Gruß
Raller

jmc
19.02.2003, 08:16
Hallo

aus der Online-Hilfe (A97) - CreateDatabase Methode:Sub NewDatabase()
Dim wspDefault As Workspace, dbs As Database
Dim tdf As TableDef, fld1 As Field, fld2 As Field
Dim idx As Index, fldIndex As Field

Set wspDefault = DBEngine.Workspaces(0)
' Create new, encrypted database.
Set dbs = wspDefault.CreateDatabase("Newdb.mdb", _
dbLangGeneral, dbEncrypt)
' Create new table with two fields.
Set tdf = dbs.CreateTableDef("Contacts")
Set fld1 = tdf.CreateField("ContactID", dbLong)
fld1.Attributes = fld1.Attributes + dbAutoIncrField

Set fld2 = tdf.CreateField("ContactName", dbText, 50)
' Append fields.
tdf.Fields.Append fld1
tdf.Fields.Append fld2
' Create primary key index.
Set idx = tdf.CreateIndex("PrimaryKey")
Set fldIndex = idx.CreateField("ContactID", dbLong)
' Append index fields.
idx.Fields.Append fldIndex
' Set Primary property.
idx.Primary = True
' Append index.
tdf.Indexes.Append idx
' Append TableDef object.
dbs.TableDefs.Append tdf
dbs.TableDefs.Refresh

Set dbs = Nothing
End Sub

Raller
19.02.2003, 08:29
Hups, hab' ich nicht gefunden.
Vielen Dank.

Ich werd's gleich mal versuchen.
Gruß
Raller