Office中国论坛/Access中国论坛

标题: 高手请进，关于后台数据库链接的难题？ [打印本页]

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

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

作者: Eric666 时间: 2003-11-17 20:51
语句不会写，请指教!

作者: xingzhihao 时间: 2003-11-17 21:31
密码破了怎么办？

作者: Eric666 时间: 2003-11-18 00:54
破了那就没办法，但是启用禁用的Shift工具很多，所以很容易破解，后来想到这个办法，但是又不会写代码。

作者: guoya 时间: 2003-11-18 04:38
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

作者: 大頭 时间: 2003-11-18 07:41
http://www.erpbus.net/access/topic.asp?topic_id=9648&forum_id=84

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

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