Private Sub Command1_Click() CreateDatabase "c:\123.mdb" End SubPublic Sub CreateDatabase(ByVal sDatabaseFile As String) Dim cat Set cat = CreateObject("ADOX.Catalog") cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & sDatabaseFile Set cat = Nothing End Sub然后再打开123.mdb,然后create table 建表。然后insert数据
CreateDatabase "c:\123.mdb"
End SubPublic Sub CreateDatabase(ByVal sDatabaseFile As String)
Dim cat
Set cat = CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & sDatabaseFile
Set cat = Nothing
End Sub然后再打开123.mdb,然后create table 建表。然后insert数据