用DAO Dim cnnNewDB As Database
'創建Access2000
Set cnnNewDB = CreateDatabase("c:\Newsletter.mdb", dbLangGeneral, dbVersion40)
'創建Access97
Set cnnNewDB = CreateDatabase("c:\Newsletter.mdb", dbLangGeneral, dbVersion30)
'創建Access2000
Set cnnNewDB = CreateDatabase("c:\Newsletter.mdb", dbLangGeneral, dbVersion40)
'創建Access97
Set cnnNewDB = CreateDatabase("c:\Newsletter.mdb", dbLangGeneral, dbVersion30)
给分啦.......
Private Sub Command1_Click()
Dim catalog1 As New ADOX.Catalog
catalog1.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\new.mdb"
End Sub
引用 ms ado3.51 object library