Office中国论坛/Access中国论坛

标题: [求助]如何用代码创建/删除链接表？ [打印本页]

作者: aslxt 时间: 2007-7-5 17:12
标题: [求助]如何用代码创建/删除链接表？
在前台数据库A.mde中，使用自己的登陆窗体（Loginform）登陆，该窗体一直要保持打开状态（隐藏），直到退出系统。请问如何在Loginform的加载事件中用代码创建我想要的链接表？例如：链接到有密码保护的后台数据库B.mdb的表Tab1，在Loginform关闭时还要把该链接删除？

作者: 一点通 时间: 2007-7-5 17:58
如果能自动链接后台表,关闭时删除链接是多余的动作,关于链接,可用"后台","链接"等关键字搜索一下旧贴

作者: bpchan 时间: 2011-11-26 17:40
例子，难！

作者: 鱼儿游游 时间: 2011-11-27 10:50
本帖最后由鱼儿游游于 2011-11-27 11:20 编辑

bpchan 发表于 2011-11-26 17:40
例子，难！

写一个函数给你，调用就行了。{:soso_e113:}

' 参数说明：
'       IsCreateLinkTable ....  是否创建链接表： True_创建链接表、False_删除链接
'       strSourceTableName ...  数据表的名称
'       strLocalTableName ....  链接表的名称
'
Public Function LinkTable(IsCreateLinkTable As Boolean, strSourceTableName As String, strLocalTableName As String) As Boolean
On Error GoTo Err_Handler

Dim blnResult As Boolean
Dim dbs    As Object
Dim tdf    As Object

'删除原来的链接表
For Each tdf In dbs.TableDefs
   If tdf.Name = strLocalTableName Then
         dbs.TableDefs.Delete strLocalTableName
   End If
Next

'重新创建链接表
If IsCreateLinkTable Then
   Set tdf = dbs.CreateTableDef(strLocalTableName)
   tdf.Connect =<变量名：数据库链接对象>                      '自己填上后台数据库链接对象的变量名就能用了。
   tdf.SourceTableName = strSourceTableName
   dbs.TableDefs.Append tdf
End If
blnResult = True

Exitr_Handler:
LinkTable = blnResult
Set dbs =Nothing
Set tdf =Nothing
Exit Function

Err_Handler:
blnResult = False
Resume Exitr_Handler

End Function

作者: bpchan 时间: 2011-11-28 12:04
能否做个例子，可以在窗体上订制/修改链接的SQL数据库及密码，同时每次自动更新链接表??谢谢！！！

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