高手请进，关于后台数据库链接的难题？

Eric666

各位高手：
我的想法是：一个ACCESS数据库文件拆分成前台与后台数据库后，用户输入正确的登陆密码之后，自动执行代码进行链接后台有密码的数据库，将相关的表进行链接，当用户退出数据库时自动执行代码删除后台数据库的链接（真正删除链接，如果非法打开前台程序时，手动进行链接时必须输入后台数据库的密码），请高手不吝赐教，万分感谢！

hunanhu

如果不考虑很高的安全性的话,
建议用ODBC建立一个连接到后台数据库的数据源,再手工或用语句将数据表(链接表)的链接字符串指向该数据源

Eric666

语句不会写，请指教!

xingzhihao

密码破了怎么办？

Eric666

破了那就没办法，但是启用禁用的Shift工具很多，所以很容易破解，后来想到这个办法，但是又不会写代码。

guoya

Function checkRefreshLink()
'Dim DB As Database
li = False
'On Error GoTo RefreshLink_Err
CurrentDb.TableDefs.Refresh

    c = CurrentProject.Path
    If Right(c, 1) <> "\" Then
        c = c & "\"
    Else
        c = c
    End If
    c1 = c & "data_be.mdb"
    If Dir(c1) = "" And Dir(c1, 2) = "" Then
        MsgBox "在" & c & "找不到data_be.mdb文件，请确定文件存在，再使用本系统"
        'Application.Quit
    End If
    Set db = CurrentDb
    db.TableDefs.Refresh
    Set t = CurrentDb.OpenRecordset("LINK_Table")'LINK_Table表中存放连接表名称
    Do Until t.EOF
        On Error Resume Next
        db.TableDefs.Delete t("tbname")
        t.MoveNext
    Loop
    t.MoveFirst
    'Set t1 = CurrentDb.OpenRecordset("select * from LinkOK")
    Set t3 = DBEngine.Workspaces(0).OpenDatabase(c1, False, False, ";pwd=7212763")
    Set t4 = CurrentDb
    Do Until t.EOF
        Set ntb = t4.CreateTableDef(t("tbName"))
        ntb.Connect = ";DATABASE=" & t3.name
        ntb.SourceTableName = t("tbName")
        t4.TableDefs.Append ntb
        ntb.RefreshLink
        t.MoveNext
    Loop
    RefreshLink_Err:
End Function

大頭

http://www.erpbus.net/access/topic.asp?topic_id=9648&forum_id=84

Eric666

感谢guoya和大头的回复。
请问guoya,程序我试过，好象不行，请问如何断开连接及自动连接，可不可以将文件传给我，非常感谢！
大头，也请你帮帮忙解决此类问题由于水平有限，你的程序我要慢慢看才明白，请帮帮忙解决我的这个问题，再次感谢！
我的邮箱是:eric_zyw@126.com