请大家帮帮忙，关于打开数据库。

paradisewait

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

按F1呀

paradisewait

回：Benjamin_luk按F1呀 不行啊！有哪位能够帮忙吗？

zhengjialon

安全工作组密码： 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 OLEDBink Datasource") = _

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

        .Properties("Jet OLEDBink Provider String") = _

               "MS AccessWD=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"