这段odbc的刷新代码怎样用，谢谢！

zwu009

Function relink()

    Dim db As Database

    Dim tbl As TableDef

    Dim a As String

    Dim b As String

    Dim d As String

   

    a = "sa"'数据库用户

    b = "abc"'数据库口令

    d = "abcde"'数据库名称

    Set db = CurrentDb







    For Each tbl In db.TableDefs

        If tbl.Attributes = 536870912 Then

            tbl.Connect = "FILEDSN=d:\demo\steel.dsn;UID=" & a & "WD=" & b & ";WSID=;DATABASE=" & d & ";Network=DBMSSOCN"

'

            tbl.Attributes = dbAttachSavePWD

            tbl.RefreshLink

        End If

    Next





End Function

[此贴子已经被作者于2005-8-22 10:08:15编辑过]

secowu

Call