[已解决]连接表刷新问题讨论见21楼

zyz218

确定更新这个按钮怎样实现的？在下没搞出！！
file:///D:/000.jpg

[ 本帖最后由 zyz218 于 2007-9-14 20:02 编辑 ]

fan0217

用“链接表刷新”作关键字，到百度搜索一下，可多了。

andymark

论坛已有完善的解决方案

zyz218

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.C & 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

Private Sub RefreshLnk_Click()
    ReLink()括号里的参数不知为什么写不对，应该二个就行了，一个数据库路径，一个密码。
End Sub

[ 本帖最后由 zyz218 于 2007-9-14 12:00 编辑 ]

zyz218

Private Sub RefreshLnk_Click()
    relink(me.strfilename ,me.strfilepwd)
End Sub
我这样使用那个函数为什么relink(me.strfilename ,me.strfilepwd)这个行代码出错？
file:///d:/000.jpg

zyz218

Private Sub RefreshLnk_Click()
Dim dbs As Database
Dim tdf As TableDef
Dim i As Variant
Dim strName As String
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)
            Debug.Print strName
            tdf.C & Me.strfilepwd & ";DATABASE=" & Me.strfilename
            tdf.RefreshLink
        End If
    Next i
        ReLink = True
        Exit Sub
   
ErrorHandler:    ' 错误处理程序。
    MsgBox "刷新失败!" & vbCr & vbCr & "失败原因 :" & vbCr & vbCr & _
        "错误代码 : " & Err.Number & vbCr & _
        "错误描述 : " & Err.Description, _
        vbCritical
End Sub
提示：

file:///d:/001.jpg

[ 本帖最后由 zyz218 于 2007-9-14 14:13 编辑 ]

zyz218

我做了个例子，谁帮我斧正一下，多谢了！！

zyz218

我再看看，不好意思！！？？

[ 本帖最后由 zyz218 于 2007-9-14 15:12 编辑 ]

zyz218

我把后台设了密码也可以了！！！！我再去看看以前的那个行不行，应该是可以的，谢谢兄弟了。

zyz218

后台密码设的太复杂就不行了？？？？？？！！！

这个例子的密码：qwofikdfmcs1964sdfqsf

try it please,thanks!