刷新联接表的函数
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
0条评论