Office中国论坛/Access中国论坛

标题: [原创]程序一启动就自动链接后台数据库 [打印本页]

作者: secowu 时间: 2005-8-18 21:20
标题: [原创]程序一启动就自动链接后台数据库
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'2005-08-18 中俄双雄演义日

'By 狠狠活

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Sub LinkTables(strDatabase As String)

Dim dbs As Database

Dim tdf As TableDef

Dim intI As Integer

Set dbs = CurrentDb

Set tdf = dbs.TableDefs(0)

For intI = 0 To dbs.TableDefs.Count - 1

Set tdf = dbs.TableDefs(intI)

If Len(tdf.Connect) > 0 Then

tdf.Connect = ";DATABASE=" & strDatabase

tdf.RefreshLink

End If

Next intI

End Sub

'调用方法：

Call LinkTables("C:\MyFolder\Mydb.mdb")

[此贴子已经被作者于2005-8-18 13:33:46编辑过]

作者: fwh09 时间: 2005-8-19 03:52
很好,楼主能否加些说明呢?

作者: tanmei 时间: 2009-4-12 21:36
不全面

作者: chenyingfengsx 时间: 2009-8-30 09:46
ssssssss

作者: shenxb 时间: 2009-9-21 12:46
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)