'创建一个数据库
'
'首先在项目中添加引用->Microsoft ADO Ext. 2.x for DLL and Security
'
'成功创建指定的数据库返回：True, 否则：返回：False
'
Public Function CreateDatabase(strDBPath As String, Optional ByVal strDBPwd As String = "", Optional ByVal IsDisPlayErrMsg As Boolean = False) As Boolean
On Error Resume Next
Dim cat As New ADOX.Catalog
cat.Create "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";Jet OLEDB:database Password=" & strDBPwd
Set cat = Nothing
If Err <> 0 And IsDisPlayErrMsg Then MsgBox Err.Source & "-->" & Err.Description, , "创建数据库失败"
CreateDatabase = Err.Number = 0
End Function
Sub test()
CreateDatabase "c:\test.mdb", "newpassword", true
End Sub 作者: LeeTien 时间: 2010-12-25 09:33
学习了
呵呵作者: asklove 时间: 2010-12-25 10:14
学习作者: lyf898 时间: 2010-12-25 15:45
支持！