[求助]如何用代码创建/删除链接表？

aslxt

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

一点通

如果能自动链接后台表,关闭时删除链接是多余的动作,关于链接,可用"后台","链接"等关键字搜索一下旧贴

bpchan

能否做个例子，可以在窗体上订制/修改链接的SQL数据库及密码，同时每次自动更新链接表??谢谢！！！

bpchan

例子，难！

鱼儿游游

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