Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

刷新联接表的函数

时 间:2008-05-31 08:29:40
作 者:OFFICE中国   ID:16  城市:江阴
摘 要:刷新联接表的函数
正 文:

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交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助