ADOX在vb6.0中就有,并且可以用ADOX创建Access 2000数据库,如下:
'引用Microsoft ADO Ext. 2.7 for DDL and Security
Dim oCatalog As New ADOX.Catalog
oCatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\tempA.MDB"
Public Function createmydb()
Dim mydatabase As Database
Set mydatabase = Workspaces(0).CreateDatabase("D:\管理系统\258.mdb", dbLangGeneral, dbversion70)
Dim mytableddef As TableDef
Set mytabledef = mydatabase.CreateTableDef("考勤库")
Dim myfield As Field
Set myfield = mytabledef.CreateField("学号", dbInteger)
mytabledef.Fields.Append myfield
Set myfield = mytabledef.CreateField("姓名", dbText, 10)
mytabledef.Fields.Append myfield
Set myfield = mytabledef.CreateField("性别", dbText, 4)
mytabledef.Fields.Append myfield
Set myfield = mytabledef.CreateField("年龄", dbByte)
mytabledef.Fields.Append myfield
Set myfield = mytabledef.CreateField("班级", dbText, 20)
mytabledef.Fields.Append myfield
mydatabase.TableDefs.Append mytabledef
Dim myindex As Index
Set myindex = mytabledef.CreateIndex("学号索引")
myindex.Primary = True
Set myfield = myindex.CreateField("学号")
myindex.Fields.Append myfield
mytabledef.Indexes.Append myindex
End Function
Public Function password()
Dim mydatabase As Database
Set mydatabase = Workspaces(0).CreateDatabase("D:\管理系统\pl.mdb", dbLangGeneral, dbversion70)
Dim mytableddef As TableDef
Set mytabledef = mydatabase.CreateTableDef("密码库")
Dim myfield As Field
Set myfield = mytabledef.CreateField("用户名", dbText, 10)
mytabledef.Fields.Append myfield
Set myfield = mytabledef.CreateField("密码", dbText, 16)
mytabledef.Fields.Append myfield
mydatabase.TableDefs.Append mytabledef
Dim myindex As Index
Set myindex = mytabledef.CreateIndex("用户名索引")
myindex.Primary = True
Set myfield = myindex.CreateField("用户名")
myindex.Fields.Append myfield
mytabledef.Indexes.Append myindex
End Function
Public Function onew()
Dim mydatabase As Database
Set mydatabase = Workspaces(0).CreateDatabase("D:\管理系统\00.mdb", dbLangGeneral, dbversion70)
End Function
在主窗口中加一个commond控件
在click下加入
Private Sub Command1_Click()
createmydb
End Sub