| 刷新链接表的函数 |
|
| 作者：harsonli… 文章来源：第十空间 点击数： 本日：{$DayHits} 更新时间：2003-12-20 23:05:21 |
Function RefreshLinks(strFileName As String) As Boolean
On Error GoTo Exit_ERR
Dim tdf As TableDef
RefreshLinks = False
For Each tdf In CurrentDb.TableDefs
If tdf.Connect <> "" Then
tdf.Connect = ";DATABASE=" & strFileName & ""
tdf.RefreshLink
End If
Next tdf
RefreshLinks = True
Exit Function
Exit_ERR:
Select Case Err
Case 3011
MsgBox "指定数据库中没有所需数据.....", vbExclamation
Case 3031
MsgBox "指定数据库需要输入密码.....", vbExclamation
End Select
Exit Function
End Function
|
| 文章录入：tmtony 责任编辑：tmtony |
|
上一篇文章： 运行操作查询词句更好的方法
下一篇文章： sqlserver2000数据库规格 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
