关于链接带密码的表的问题

daxin1 · 发表于 2011-9-22 22:03:27

那位同志能告诉我怎么才能链接带有密码的表，代码怎么写啊？

roych · 发表于 2011-9-23 00:39:38

这是一段比较简单的代码，贴到

Private Sub Command0_Click()
Dim dbs As DAO.Database
'打开后台数据库，把相应的属性改为你的后台数据库路径和密码。
Set dbs = OpenDatabase(CurrentProject.Path & "\后台.mdb", False, False, ";PWD=123")
For Each Tdf In dbs.TableDefs
'系统表不链接。
If Tdf.Attributes = 0 Then
DoCmd.TransferDatabase acLink, "Microsoft Access", CurrentProject.Path & "\后台.mdb", acTable, Tdf.Name, Tdf.Name, False
End If
Next Tdf
'关闭后台数据库。
dbs.Close
End Sub

复制代码

daxin1 · 发表于 2011-9-23 21:20:57

谢谢 roych

daxin1 · 发表于 2011-9-27 07:12:06

roych 你好
我想在打开前台同时就打开带有密码的数据库能告诉我这代码贴在什么地方比较好啊？{:soso_e181:}

daxin1 · 发表于 2011-9-27 07:15:00

roych 你好

我想在打开前台的同时也打开带有密码的数据库这样的代码贴到什么地方比较好啊？窗体？模块？

Henry D. Sy · 发表于 2011-9-27 15:20:17

把代码写在主面板加载事件中

yanghua1900363 · 发表于 2011-10-1 07:57:45

【源码】Access通用系统源码(2009-7-10更新)
http://www.office-cn.net/forum.p ... &fromuid=158746

帐号		自动登录	找回密码
密码			注册

[加解密/安全] 关于链接带密码的表的问题

群介绍
主题无相 (随机显示版	同地区群块其他地区)