| 刷新联接表的函数 |
|
| 作者：想不通 文章来源：ACCESS设计在线 点击数： 本日：{$DayHits} 更新时间：2006-11-24 23:58:45 |
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
|
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： 让标题栏文字置中
下一篇文章： 没有了 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
