Office中国论坛/Access中国论坛

标题: [求助]请各位高手帮我看看，连接有密码的数据库 [打印本页]

作者: 二二二222 时间: 2006-6-23 00:32
标题: [求助]请各位高手帮我看看，连接有密码的数据库
数据库密码123456，这段源码也是来自论坛，为什么密码没有得到修改。
分离数据库时没有密码，密码是后加的。

我用的是win xp
office2003

急盼解答。

谢谢
[attach]18668[/attach]

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

作者: fan0217 时间: 2006-6-23 04:59
什么都没有怎么解答呢？

作者: 二二二222 时间: 2006-6-23 17:38
抱歉，我以为文件传上去了，现在有了。

作者: andymark 时间: 2006-6-23 19:07
把原来的删除,重新连接表,就会提示你输入数库密码

作者: 二二二222 时间: 2006-6-24 00:47
删掉什么，我要用程序控制，而不用用户去链接，不然写这一大堆代码干吗

作者: 二二二222 时间: 2006-6-26 04:29
就没人知道吗

作者: fan0217 时间: 2006-6-26 04:54
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编辑过]

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