当前位置: 首页 > 图文教程 > 数据库 > Access > 以指定工作组文件启动MDB文件

Access
如何给ODBC连接打开连接池
Access数据库与SQLserver2000的数据互导
如何在退出整个系统前提示用户
通过查询返回数据库对象的名称
Delphi中的Access技巧集
ACCESS中如何插入超级链接?
怎样用代码隐藏、最大化、最小化ACCESS的主窗口
操作系统环境 Environ 函数
ACCESS2000升迁向导“溢出”错误处理方法
如何在ACCESS中压缩当前数据库
在VB中用代码打印ACCESS报表
以指定工作组文件启动MDB文件
长期使用中型Access数据库的一点经验
显示数据库窗口的捷径
取得磁碟机之Volumn及Serial Number
ACCESS默认保存路径的修改方法
数据库设计范式
Access无需DSN文件快速连接SQL Server方法
用Access 2000进行班级管理
启动命令行选项

Access 中的 以指定工作组文件启动MDB文件


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-17   浏览: 39 ::
收藏到网摘: n/a

程序完成交给用户后,要求每次启动时均用指定的工作组文件,途径大致如下几种:

1、用快捷方式,在其中加上启动参数指定工作组文件;

2、用ACCESS内置工作组管理员指定工作组。

3、也可以直接修改注册表。

4、用VB之类的东东做个外壳启动带参数启动ACCESS。

第一种方式用户在使用中容易造成丢失。

第二第三种其实是一样的,但设置后用户在本机操作所有的数据库都要求登陆。

敝人推荐用第四种

其实用ACCESS本身也可以做个外壳,达到同样效果:

以下为引用的内容:
Set fs = Application.FileSearch ''查找文件
With fs
  .LookIn = "C:\Program Files\Microsoft Office\" ''查找路径
  .SearchSubFolders = True ''包含子文件夹
  .FileName = "msACCESS.exe" ''查找字串
  
  If .Execute() > 0 Then
   p = .FoundFiles(1)  ''ACCESS主程序完整路径
   Shell p & " " & CurrentProject.Path & "\123.mdb /wrkgrp " & CurrentProject.Path & "\system.mdw", 3  ''带参数启动程序
  Else
   MsgBox "C:\Program Files\Microsoft Office\ 下没找到MSACCESS的程序文件,系统无法运行."
  End If
End With
docmd.quit  ''退出外壳

将外壳做成MDE交付用户便万事大吉啦。

带参数启动程序语句可更改为以下代码

Shell SysCmd(acSysCmdAccessDir) & " msACCESS.exe" & CurrentProject.Path & "\123.mdb /wrkgrp " & CurrentProject.Path & "\system.mdw", 3

注意,如果要将密码和用户名写在mde中,请先加密,否则用写字板就可看见密码及用户名