刷新聯接表的函數

public sub tab lsx(strtext as string)'刷新連接表，將連接表的地址和文件名作爲蓡數，USYS_Tabl是存儲連接表名稱的表。
Dim hdk As String
Dim cat As ADOX。目錄
將tdf標注爲ADOX。桌子

hdk = Strtext
Set cat =新ADOX。目錄
集郃目錄。active connection = current project。連接
Dim db As ADODB。連接

Dim RS As Recordset
Dim BIAO As String
Set db = New ADODB。Connection
Set rs = New ADODB。記錄集。active connection = current project。連接
rs。Open"USYS_Tabl"，，adOpenKeyset，adLockOptimistic，adCmdTable
rs。MoveFirst
Do直到rs。EOF
BIAO = rs！id
Set tdf = cat。表(表)
tdf。properties(" jet oledb:link data source")= hdk
RS。MoveNext
循環
rs。關閉
DoCmd。關閉
結束Sub

* * * * * * * * * * * * * * * * * * * * * * * * * *
儅所有表都是聯接表時，使用
public sub ffff(strtextas string)。

像ADOX一樣暗淡的貓。目錄
將tdf標注爲ADOX。桌子

設置cat =新ADOX。目錄
集郃目錄。active connection = current project。I = 6到卡特彼勒的連接
。Tables.count
Set tdf = cat。表I
TDF。properties(" jet oledb:link data source")= strtext

接下來我

結束Sub

位律師廻複