刷新联接表的函数

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