刷新联接表的函数-钱玉炜
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


刷新联接表的函数

发表时间:2008/5/31 8:29:40 评论(1) 浏览(6419)  评论 | 加入收藏 | 复制
   
摘 要:刷新联接表的函数
正 文:
Public Sub Tablsx(Strtext As String) '刷新联连表,参数为联接表的址及文件名,USYS_Tabl是存放联接表名的表。
Dim hdk As String
Dim cat As ADOX.Catalog
Dim tdf As ADOX.Table

hdk = Strtext
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection
Dim db As ADODB.Connection
  
Dim rs As Recordset
Dim BIAO As String
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.Open "USYS_Tabl", , adOpenKeyset, adLockOptimistic, adCmdTable
  rs.MoveFirst
   Do Until rs.EOF
   BIAO = rs!id
   Set tdf = cat.Tables(BIAO)
   tdf.Properties("jet oledb:link datasource") = hdk
   rs.MoveNext
   Loop
   rs.Close
DoCmd.Close
End Sub



**************************
全部表都是联接表时用
Public Sub Ffff(strtext As String)

Dim cat As ADOX.Catalog
Dim tdf As ADOX.Table

Set cat = New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection
For I = 6 To cat.Tables.count
Set tdf = cat.Tables(I)
tdf.Properties("jet oledb:link datasource") = strtext

Next I


End Sub


Access软件网交流QQ群(群号:198465573)
 
 相关文章
access中何时使用导入或联接表  【Accessoft整理  2007/12/8】
access 2007联接表和查询  【Microsoft  2008/4/1】
常见问答
技术分类
相关资源
文章搜索
关于作者

钱玉炜

文章分类

文章存档

友情链接