怎样用vb检测，系统安装了没有access

jet_li

怎样用vb检测，系统安装了没有access

qlm

这个问题，应该问会VB的程序员。

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

jet_li

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

qlm

原来如此,最近我也在考虑这个问题,

我目前的想法是,用其它编程工具(如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

在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

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

jet_li

是不是读注册表可以，不知道有没有这方面的成功例程

qlm

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

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

Grant

检测文件类型关联...

高处不胜寒

在VB向导关于窗体摸班中有个关于窗体，改改就能差不多把。

SOFTWARE\CURRENTVERSION\APP PATHS\MSACCESS.EXE\

PATH

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