Office中国论坛/Access中国论坛

标题: 怎样用vb检测，系统安装了没有access [打印本页]

作者: jet_li 时间: 2006-9-13 01:46
标题: 怎样用vb检测，系统安装了没有access
怎样用vb检测，系统安装了没有access

作者: qlm 时间: 2006-9-13 07:10
这个问题，应该问会VB的程序员。

如果是ACCESS的VBA的话，这一步是没有必要的，只要ACCESS数据库能启动，就表示系统安装了ACCESS。不能启动就是没安装ACCESS。

作者: jet_li 时间: 2006-9-13 17:45
是的要发布最终的用户程序,考虑到安全问题,必须使用安全机制.所以的用vb或其他的程序做一个简易的外壳.来连接数据库和用户组文件

作者: qlm 时间: 2006-9-14 21:11
原来如此,最近我也在考虑这个问题,

我目前的想法是,用其它编程工具(如DELPHI或VB),编一个程序AA.exe,然后用Access设计一个数据库BB.mde.两者功能如下:

AA.exe:打开bb.mde文件

BB.mde:在C盘根目录生成一个文件,如ok.bin

然后发布的程序安装前,先执行AA,AA自动打开bb.mde,如果打开成功,则在C盘

根目录下会有一个ok.bin文件.

安装程序检测C盘看有没有这个文件,就知道电脑里装了ACCESS没有了。

然后如果装了ACCESS，就不用安装那个ACCESS运行库了。是也不是？

大家看这方法能行吗？

我目前想在DELPHI中启动BB.mdb,但是还没找到方法。

谁知道这个方法？可以告诉我吗？用C/VB/DELphi,随便一种语言都可以。

作者: qlm 时间: 2006-9-14 21:16

在Delphi中操作Excel　

作者：未知来源：未知

热    ★★★★  阅读9414人次,更新于2002-3-13  【字体：小大】

在数据库应用软件的开发过程中，经常需要把数据转换成Excel文件，让用户作进一步的数据处理。而BorlandDelphi是开发数据库应用系统的常用工具，如何在Delphi中操作Excel呢？
   我们知道，在MicrosoftOffice软件中有一种内嵌的编程语言，即VBA，它是一种宏语言、VB的子集。利用它，你可以编写出功能强大的代码，如打开文件、修改数据、保存数据、设置字体等。另一方面，MicrosoftOffice软件中的宏能以VBA代码的形式记录下你的操作过程。因此借助宏操作，可以很轻松地实现某一功能，并把这些代码稍作修改嵌入到你的软件中。但是VBA的一个缺点是，它必需有MicrosoftOffice作平台，在哪里编写，必须在哪里执行。例如在Excel下编写的一段VBA代码，则它只有在Excel下才能运行。
   关于Excel中的VBA编程方法、Excel对象属性、方法说明可以在Office的安装（完全安装）目录下的VBAXL8.hlp帮助文件中找到。
   因此，只有把VBA代码嵌入到BorlandDelphi中，才能实现用Delphi操作Excel。
   下面，以Delphi为例，说明这种调用方法。
   Unit excel;
   interface
   uses
   Windows, Messages, SysUtils, Classes,
   Graphics, Controls, Forms, Dialogs,StdCtrls,ComObj;
   {ComObj是操作OLE对象的函数集}type TForm1 =
   class(Tform)
   Button1: Tbutton;
   procedure Button1Click(Sender: Tobject);
   private
   { Private declarations }
   public
   { Public declarations }
   end;

   var
   Form1: TForm1;

   implementation

   {＄R＊.DFM}

   procedure TForm1.Button1Click(Sender: Tobject);
   var
   eclApp,WorkBook:Variant;
   {声明为OLE Automation对象 }
   xlsFileName:string;begin
   xlsFileName:='ex.xls';
   try
   {创建OLE对象：Excel Application与 WorkBook}
   eclApp:=CreateOleObject('Excel.Application');
   WorkBook:=CreateOleobject('Excel.Sheet');
   except
   ShowMessage('您的机器里未安装Microsoft Excel.');
   Exit;
   end;

   try
   ShowMessage('下面演示：
   新建一个XLS文件，并写入数据，最后
   关闭它');
   workBook:=eclApp.workBooks.Add;
   eclApp.Cells(1 , 1):='字符型';
   eclApp.Cells(2 , 1):='Excel文件';
   eclApp.Cells(1 , 2):='Money型';
   eclApp.Cells(2 , 2):=10.01;
   eclApp.Cells(1 , 3):='日期型'
   ;eclApp.Cells(2 , 3):=Date;

   WorkBook.saveas(xlsFileName);
   WorkBook.close;

   ShowMessage('下面演示：打开刚创建的XLS文件，
   并修改其中的内容，然后，由用户决定是否保存。');
   　　WorkBook:=eclApp.workBooks.Open(xlsFileName);
   eclApp.Cells(2 , 1):='Excel文件类型';
   if MessageDlg(xlsFileName＋'文件已被修改，
   是否保存？',mtConfirmation,
   [mbYes, mbNo], 0) = mrYes then
   WorkBook.save
   else
   workBook.Saved := True; {放弃修改}
   WorkBook.Close;

   eclApp.Quit; //退出Excel Application
   {释放VARIANT变量}
   eclApp:=Unassigned;
   except
   　　 ShowMessage('不能正确操作Excel文件。
   可能是该文件已被其他程序打开，或系统错误');
   WorkBook.close;
   eclApp.Quit;
   {释放VARIANT变量}
   eclApp:=Unassigned;
   end;
   end;
   end.
   了解上述操作过程后，我们可以很容易地将数据库中的数据转换成Excel文件了。pp.Cells(1 , 1):='字符型';
   eclApp.Cells(2 , 1):='Excel文件';
   eclApp.Cells(1 , 2):='Money型';
   eclApp.Cells(2 , 2):=10.01;
   eclApp.Cells(1 , 3):='日期型'
   ;eclApp.Cells(2 , 3):=Date;

   WorkBook.saveas(xlsFile

作者: jet_li 时间: 2006-9-14 23:47
我想用vb2005，界面也好看，相对熟悉点。关键的原因是1、想检测有没有安装accsee以及版本判断，版本太低运行肯定不稳定。2、是要用到安全机制（组和权限），数据库密码形同虚设，只能这样否则别人可利用连接轻松读写数据。用vb连接一个安全组文件和数据库文件。

作者: jet_li 时间: 2006-9-14 23:48
是不是读注册表可以，不知道有没有这方面的成功例程

作者: qlm 时间: 2006-9-20 20:51

以下是引用jet_li在2006-9-14 15:48:00的发言：
是不是读注册表可以，不知道有没有这方面的成功例程

应该可以,因为文件与应用程序关联,肯定会在注册表留下记号。

作者: Grant 时间: 2006-9-21 00:54
检测文件类型关联...

作者: 高处不胜寒 时间: 2006-9-28 00:14
在VB向导关于窗体摸班中有个关于窗体，改改就能差不多把。

SOFTWARE\CURRENTVERSION\APP PATHS\MSACCESS.EXE\

PATH

可能是这个键.看是否安装ACCESS

作者: yuanyyf 时间: 2010-11-27 14:31
有没有实例

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