我用的是VB6.0,妳可以引用這兩個,用來創建數據庫和操作數據庫,具體操作參考ADO幫助
類似如下:
Dim dbName As String
Dim xStr As String
Dim mdbPassword As String
Dim I As Long
Dim cadx As New ADOX.Catalog
Dim ccn As ADODB.Connection
Dim lTb As ADODB.Recordset
'檢查文件是否存在,存在是否可以覆蓋,代碼省略
xStr = "Provider=Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Engine Type=6;Data source=" & dbName & ";"
cadx.Create xStr
Set cadx = Nothing
xStr =? "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbFileName & ";Persist Security Info=False"
Set ccn = New ADODB.Connection
ccn.ConnectionString = xStr
ccn.CommandTimeout = 30
ccn.Mode = conMode
ccn.Open
xStr = "CREATE TABLE TAB1(FD1 LONG,FD2 TEXT(10),FD3 TEXT(12),FD4 LONG)"
ccn.Execute xStr
Set lTb=New ADODB.Recordset
lTb.Open "TAB1", ccn, adOpenKeyset, adLockPessimistic, adCmdTable
For I = 1 To J
lTB.AddNew
lTB.Fields("FD1") = ...
lTB.Fields("FD2") = ...
lTB.Fields("FD3") = ...
lTB.Fields("FD4") = ...
lTB.Update
Next
lTb.Close
set lTb=nothing
ccn.close
set ccn=nothing