[求助]请各位高手帮我看看，连接有密码的数据库

二二二222

数据库密码123456，这段源码也是来自论坛，为什么密码没有得到修改。
分离数据库时没有密码，密码是后加的。

我用的是win xp
office2003

急盼解答。

谢谢

[此贴子已经被作者于2006-6-23 9:36:41编辑过]

fan0217

什么都没有怎么解答呢？

二二二222

抱歉，我以为文件传上去了，现在有了。

andymark

把原来的删除,重新连接表,就会提示你输入数库密码

二二二222

删掉什么，我要用程序控制，而不用用户去链接，不然写这一大堆代码干吗

二二二222

就没人知道吗

fan0217

Public Function ReLink(ByVal strName As String, ByVal strPath As String, ByVal strPWD, ByVal id As Integer) As Boolean
    Dim dbs As Database
    Dim tdf As TableDef, i As Variant

  On Error GoTo ErrorHandler

    ReLink = False
    Set dbs = CurrentDb
   
   
    For Each i In Application.CurrentData.AllTables  '历遍的有表
    If DCount("*", "MSysObjects", "[Name]='" & i.Name & "' And [Type]=6") > 0 Then
                       '判断只有链接表才运行以下代码
      strName = i.Name
    Set tdf = dbs.TableDefs(strName)
    tdf.Connect = "WD=" & strPWD & ";database=" & strPath
    tdf.RefreshLink

    End If
    Next i
   
    ReLink = True
    Exit Function
   
ErrorHandler:    ' 错误处理程序。
   

    MsgBox "刷新失败!" & vbCr & vbCr & "失败原因 :" & vbCr & vbCr & _
        "错误代码 : " & Err.Number & vbCr & _
        "错误描述 : " & Err.Description, _
        vbCritical
End Function

[此贴子已经被作者于2006-6-25 20:54:08编辑过]