经典的东西，请斑竹帮忙改改！！

chuanzhang

经典的东西，大家分享，同时也希望斑竹帮忙改改！！

我的问题是，我想同时连接好几个数据库，请问斑竹怎样设定每个表来自
不同的数据库！！！
比如：表1连接的是mymdb ，表2 连接的是MYMDB2！！
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                   刷新表链接                                 '
'                                                              '
'    这个模块包含用于刷新到后台数据库表的链接的函数，如果那    '
'    些表可用的话。改写自罗斯文商贸数据库！这可是宝库！        '
'                                                              '
'    这个程序适用于后台数据库与前台数据库在固定的相对位置。    '                                                          '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit           ' 要求变量在使用以前明确声明
Option Compare Database   ' 字符串比较使用数据库次序
'=======================================================================
'设定部分：
Private Const CheckTableName = "表1"
'"培训项目"表是我的实例数据库中的表，你应该改成你自己后台数据库的链接表名。
Private Const TablePassword = "123"
'"12345"是我的后台数据库打开的密码，你应该改成你自己后台数据库的打开密码。
Private Const conAppTitle = "mymdb"
Private Const conBackAppTitle = "dao.mdb"

'"前台数据库"是本数据库的名称，不用加“.mdb”
'"后台数据库.mdb"是链接的后台数据库的名称，必须有".mdb"
Private Const conBackAppRelPath = ""
'conBackAppRelPath是默认得后台数据库的相对路径
'如果后台数据库与前台数据库在同一目录，可以设 conBackAppRelPath=""
'
'=======================================================================
'
'引用部分在“启动”窗体的Form_Open事件代码中
'
'=======================================================================
'以下不用改
'=======================================================================

Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
    "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Boolean
Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _
    "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Boolean

Type MSA_OPENFILENAME
    ' 用于打开文件对话框过滤器的过滤字符串。
    ' 使用 MSA_CreateFilterString() 来创建它。
    ' 默认(Default) = 所有文件, *.*
    strFilter As String
    ' 用于显示的初始过滤器。
    ' 默认(Default) = 1
    lngFilterIndex As Long
    ' 对话框所作用的初始目录。
    ' 默认(Default) = 当前工作目录。
    strInitialDir As String
    ' 初始文件名。
    ' 默认(Default) = ""
    strInitialFile As String
    strDialogTitle As String
    ' 默认的文件扩展名，如果用户没有指定一个的话，将使用它。
    ' 默认(Default) = 系统值 (打开文件， 保存文件)。
    strDefaultExtension As String
    ' 所使用的标志 (参看“常量”(Const) 列表)
    ' 默认(Default) = 无标志。
    lngFlags As Long
    ' 所选取文件的完整路径。在打开文件(OpenFile)时，如果用户点取了
    ' 一个不存在的文件，将只返回 "File Name"(文件名)框中的文本。
    strFullPathReturned As String
    ' 所选取文件的文件名。
    strFileNameReturned As String
    ' 文件名(strFileNameReturned)开始位置在完整路径中的偏移。
    intFileOffset As Integer
    '文件扩展名开始位置在完整路径(strFullPathReturned)中的偏移。
    intFileExtension As Integer
End Type

Const ALLFILES = "所有文件"

Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As Long
    nMaxCustrFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustrData As Long
    lpfnHook As Long
    lpTemplateName As Long
End Type

Const OFN_ALLOWMULTISELECT = &H200
Const OFN_CREATEPROMPT = &H2000
Const OFN_EXPLORER = &H80000
Const OFN_FILEMUSTEXIST = &H1000
Const OFN_HIDEREADONLY = &H4
Const OFN_NOCHANGEDIR = &H8
Const OFN_NODEREFERENCELINKS = &H100000
Const OFN_NONETWOR

竹笛

很少的代码就可以了，例子在：
http://www.accessoft.com/cgi-bin/dispbbs.asp?boardID=46&ID=681