如何用VB创建一个ACCESS文件

Question

adox = CreateObject('ADOX.Catalog')
adox.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\aaa.mdb;Persist Security Info=False'
数据库建好后再创建一个ADODB.Connection的对表并连接，然后就可以传SQL语句过去建表。

Answer 1

用ADO来扩展建数据库
首先要引用：Microsoft ADO Ext.27 for DLL and securiy 
Dim strDB As New ADOX.Catalog
Dim strTab01 As New ADOX.Table
dim DBPATH_Name as string 
DBPath_Name = App.Path & "\" & Num_Dig_J & ".mdb"
strDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath_Name
strTab01.Name = "yh" '表名
strTab01.Columns.Append "YHXM", adVarWChar, 14 '字段名
strTab01.Columns.Append "YHDH", adVarWChar, 14 '同上
strDB.Tables.Append strTab01
Mircosoft.jet.oledb.4.0代表office 2000
Mircosoft.jet.oledb.3.51代表office 97 

Answer 2

Private Sub Command1_Click()
    Dim cat As New ADOX.Catalog
    Dim strTab01 As New ADOX.Table
    cat.Create "provider=microsoft.jet.oledb.4.0;User ID='admin';data source=c:\xj.mdb"
    strTab01.Name = "name" '表名
    strTab01.Columns.Append "first name", adVarWChar, 14 '字段名
    strTab01.Columns.Append "last name", adVarWChar, 14 '同上
    'strTab01.Columns.Append "年龄", adInteger, 14 '同上
    cat.Tables.Append strTab01End Sub

Answer 3

在你硬盘上搜索Ado210.chm好好看看

Answer 4

dim cat as adox.catalog=new adox.catalog
cat.create("provider=mcrosoftJet.OLEDB.4.0;datasource=d:\tt.mdb;Jet OLEDB: database password=test")
cat=nothing