Reference: Microsoft ADO Ext.2.1(或以上)for DDL and Security
Sub CreateDatabase() Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"End SubSub CreateTable() Dim tbl As New Table
Dim cat As New ADOX.Catalog ' 打开目录。
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\new.mdb;" tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tblEnd Sub
Sub CreateDatabase() Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"End SubSub CreateTable() Dim tbl As New Table
Dim cat As New ADOX.Catalog ' 打开目录。
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\new.mdb;" tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tblEnd Sub
Dim fldForeName As Field
Dim fldSurname As Field
Dim fldDOB As Field
Dim fldFurtherDetails As Field
Dim dbDatabase As Database
Dim sNewDBPathAndName As String
sNewDBPathAndName = App.Path & "\NewDB" & Right$(Time, 2) & ".mdb"
Set dbDatabase = CreateDatabase(sNewDBPathAndName, dbLangGeneral, dbEncrypt)
Set tdExample = dbDatabase.CreateTableDef("Example") Set fldForeName = tdExample.CreateField("Fore_Name", dbText, 20)
Set fldSurname = tdExample.CreateField("Surname", dbText, 20)
Set fldDOB = tdExample.CreateField("DOB", dbDate)
Set fldFurtherDetails = tdExample.CreateField("Further_Details", dbMemo)
tdExample.Fields.Append fldForeName
tdExample.Fields.Append fldSurname
tdExample.Fields.Append fldDOB
tdExample.Fields.Append fldFurtherDetails
dbDatabase.TableDefs.Append tdExample
MsgBox "New .MDB Created - '" & sNewDBPathAndName & "'", vbInformation
Set cat = CreateObject("ADOX.catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:\new1.mdb"Dim tbl As Object
Set tbl = CreateObject("adox.table")
Set cat.ActiveConnection = Nothing
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=d:\new1.mdb"
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl
(同时加上密码)
http://www.csdn.net/expert/topic/294/294914.shtm
Set cat = CreateObject("ADOX.catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:\new1.mdb"Dim tbl As Object
Set tbl = CreateObject("adox.table")
Set cat.ActiveConnection = Nothing
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=d:\new1.mdb"
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl