设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1948|回复: 6

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

[复制链接]
发表于 2011-9-22 22:03:27 | 显示全部楼层 |阅读模式
那位同志能告诉我怎么才能链接带有密码的表 , 代码怎么写啊 ?
发表于 2011-9-23 00:39:38 | 显示全部楼层
这是一段比较简单的代码,贴到
  1. Private Sub Command0_Click()
  2. Dim dbs As DAO.Database
  3. '打开后台数据库,把相应的属性改为你的后台数据库路径和密码。
  4. Set dbs = OpenDatabase(CurrentProject.Path & "\后台.mdb", False, False, ";PWD=123")
  5. For Each Tdf In dbs.TableDefs
  6. '系统表不链接。
  7.     If Tdf.Attributes = 0 Then
  8.     DoCmd.TransferDatabase acLink, "Microsoft Access", CurrentProject.Path & "\后台.mdb", acTable, Tdf.Name, Tdf.Name, False
  9.     End If
  10. Next Tdf
  11. '关闭后台数据库。
  12. dbs.Close
  13. End Sub
复制代码
 楼主| 发表于 2011-9-23 21:20:57 | 显示全部楼层
谢谢 roych
 楼主| 发表于 2011-9-27 07:12:06 | 显示全部楼层
roych 你好
我想在打开前台同时就打开带有密码的数据库 能告诉我这代码贴在什么地方比较好啊?{:soso_e181:}
 楼主| 发表于 2011-9-27 07:15:00 | 显示全部楼层
roych 你好

我想在打开前台的同时也打开带有密码的数据库 这样的代码贴到什么地方比较好啊?窗体?模块?
发表于 2011-9-27 15:20:17 | 显示全部楼层
把代码写在主面板加载事件中
发表于 2011-10-1 07:57:45 | 显示全部楼层
【源码】Access通用系统源码(2009-7-10更新)
http://www.office-cn.net/forum.p ... &fromuid=158746
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 07:55 , Processed in 0.103056 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表