答案是肯定的,当然可以 Set dbsNew = wrkDefault.CreateDatabase("d:\12.mdb",dbLangGeneral & ";pwd=1234;", dbEncrypt) 楼上的连接不错,但需要引用dao3.*
去看visdata,如果是用dao操作access,没有比visdata写的更详细的例子了!!!
标准sql语句不能建立ACCESS数据库。 可引用ADOX建立Private Sub Command1_Click() '引用ADOX(Microsoft ADO Ext. 2.8 for DDL and Security) Dim cat As New ADOX.Catalog cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb;Jet OLEDB:Database Password=1234"
这是个建立acess 数据库的例子
http://www.vbgold.com/vb-projects/locked-access-database.shtml
Set dbsNew = wrkDefault.CreateDatabase("d:\12.mdb",dbLangGeneral & ";pwd=1234;", dbEncrypt)
楼上的连接不错,但需要引用dao3.*
可引用ADOX建立Private Sub Command1_Click()
'引用ADOX(Microsoft ADO Ext. 2.8 for DDL and Security)
Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb;Jet OLEDB:Database Password=1234"
End Sub