'unter Projekt/Verweise
'  Microsoft ActiveX Data Objects 6.1 Library
'  Microsoft ADO Ext. 6.0 for DDL and Security
'oder ähnlich hinzufügen
 
Option Explicit
 
Dim oCat As ADOX.Catalog
Dim oTbl As ADOX.Table
Dim oCol As ADOX.Column
Public oCon As ADODB.Connection
Public oRs As ADODB.Recordset
Public Pfad As String
 
Private Sub Command1_Click()
   DatenbankAnlegen ("C:\Test.mdb")
End Sub
 
Sub DatenbankAnlegen(Pfad As String)
   Set oCat = New ADOX.Catalog
   oCat.Create "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Pfad
 
   addTabelle "Klient"
   oTbl.Columns.Append "Klient", adVarWChar, 255
 
   addTabelle "Mitarbeiter"
   oTbl.Columns.Append "Mitarbeiter", adVarWChar, 255
 
   Set oCat = Nothing
   Set oTbl = Nothing
   Set oCol = Nothing
End Sub
 
Sub addTabelle(s As String)
   Set oTbl = CreateObject("ADOX.Table")
   Set oCol = New ADOX.Column
   Set oCol.ParentCatalog = oCat
   oTbl.Name = s
   oCat.Tables.Append oTbl
End Sub