Office中国论坛/Access中国论坛

标题: 请大家帮帮忙，关于打开数据库。 [打印本页]

作者: paradisewait 时间: 2004-9-2 23:01
标题: 请大家帮帮忙，关于打开数据库。
dim conn

dim connstr

dim db

db="\test.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

connstr="

rovider=Microsoft.Jet.OLEDB.4.0;Data Source="&(""&db&"")

请问用上面的方法打开数据库的时候，如果有密码，该如何处理？很紧急，谢谢！

作者: Benjamin_luk 时间: 2004-9-2 23:05
按F1呀

作者: paradisewait 时间: 2004-9-3 16:06
回：Benjamin_luk按F1呀不行啊！有哪位能够帮忙吗？

作者: zhengjialon 时间: 2004-9-3 17:05
安全工作组密码： http://www.office-cn.net/forum.php?mod=viewthread&tid=1640数据库密码：Function lj()

Dim catDB As ADOX.Catalog

Dim tblLink As ADOX.Table

Set catDB = New ADOX.Catalog

catDB.ActiveConnection = CurrentProject.Connection

Set tblLink = New ADOX.Table    ' 建立一个新的表对象

With tblLink

      .Name = "订单"                ' 链接表名称

      Set .ParentCatalog = catDB

      .Properties("Jet OLEDB:Create Link") = True

      .Properties("Jet OLEDB

ink Datasource") = _

"C:\Program Files\zhanyexing\123.mdb"

.Properties("Jet OLEDB

ink Provider String") = _

"MS Access

WD=123;" ' 提供者及密码

.Properties("Jet OLEDB:Remote Table Name") = "订单" ' 原数据库中的表

End With

catDB.Tables.Append tblLink ' 添加到库中

Set tblLink = Nothing

End Function

注：在VBA编辑器中引用"Microsoft ADO Ext. 2.5 for DDL and Security"以及"Microsoft ActiveX Data Objects 2.1/2.5/2.6/2.7 Library"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)