怎样新建一个带密码的ACCESS数据库？（昨天没问清楚）三根鸡毛~~~

Question

如果只引用Microsoft ActiveX Data Objects 2.1 Library，如何删除一个ACCESS数据库（不是表）和新建一个带密码的数据库？如何建立像SQL里一样的触发器？

Answer 1

删除简单：用下面语句：
If Dir("D:\NewDB.mdb") <> "" Then Kill "D:\NewDB.mdb"
      '{取当前目录的话去掉路径： If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb")}--------------------------------------------
创建带密码的数据库，只引用ADO 2.1:Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Password=aaa;Data Source=c:\new.mdb;" Dim tbl As New Table
Dim cat As New ADOX.Catalogcat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Password=aaa;Data Source=c:\new.mdb;" 
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl

Answer 2

那为什么不用DAO
参阅我参与的帖子
http://expert.csdn.net/Expert/topic/3003/3004000.xml?temp=.660351

Answer 3

粘贴过来吧
'先引用Mcrsoft DAO 3.6(或2.5或2.51) Object Library和Mcrsoft Access 9.0 Object Library，在Form上加个Command1,粘贴以下代码：Private Sub Command1_Click()
   Dim wrkDefault As Workspace
   Dim dbsNew As Database
   If Dir("D:\NewDB.mdb") <> "" Then Kill "D:\NewDB.mdb"
      '{取当前目录的话去掉路径： If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb")}
   Set wrkDefault = DBEngine.Workspaces(0)
   Set dbsNew = wrkDefault.CreateDatabase("d:\NewDB.mdb", dbLangGeneral, dbEncrypt)
      '{取当前目录的话去掉路径： Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", dbLangGeneral, dbEncrypt)}
    
   dbsNew.NewPassword "", "123" '设置数据库密码为123
   
   
   Set wrkDefault = Nothing
   Set dbsNew = NothingEnd Sub

Answer 4

都不行啊。我想要问的是用ADO，只引用Microsoft ActiveX Data Objects 2.1 Library

Answer 5

用ADO连接带密码的数据库"
dim rs As New ADODB.Recordset
dim cn As New ADODB.Connectioncn.ConnectionString = "provider=microsoft.jet.oledb.4.0;user id=admin;jet oledb:database password=你的密码;data source=数据库"
   cn.Open

Answer 6

ado对象支持新建Access数据库么?
access里有触发器么?

Answer 7

如果只引用Microsoft ActiveX Data Objects 2.1 Library，难道无法新建一个ACCESS数据库吗？