安装盘该怎么制作(150分)

  • 主题发起人 主题发起人 zhch1100
  • 开始时间 开始时间
Z

zhch1100

Unregistered / Unconfirmed
GUEST, unregistred user!
我在桌面建立了文件夹,所有的文件和数据库都在这个文件夹里,现在我要制作安装盘,
怎么使得可以安装到任意目录都可以运行。我的程序是ADO+ACCESS+D5。如果不在桌面上,
程序就无法找到数据库文件,我该怎么办?请详细告知使用DELPHI自带的安装程序来制作
安装盘。
 
用ADO连接数据库时用相对路径就可以了,即改动ADOConnection1的ConnectionString的
DataSource值.
 
解决程序和数据库位置问题,采用相对路径就可以解决。
比如,你的DATA和应用程序在一个目录里,那么连接时你可以简单写./就代表和你程序是在一起。
如果在其他目录,就写./data什么的。保险的做法,是提取应用程序的位置,然后再指向数据库位置。
利用ExtractFilePath函数来得到EXE文件的位置,然后利用此位置生成数据库的位置。
利用本身带的INSTALLSHIELD的安装,在打包安装分类里,你能找到答案。是很简单的。
建议初学,利用D6以下的版本。D6以上带的,太烦琐。
希望你成功。
 
给你个例子:
G_AppDirect:=ExtractFilePath(Application.ExeName);//取当前应用程序目录
//设定连接数据库为应用程序目录下的数据库manage.Mdb
ss:=G_AppDirect+'Manage.mdb';
ConnectString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ss+';Persist Security Info=False';
Connect.Connected:=false;
Connect.ConnectionString :=ConnectString;
//连接数据库
try
Connect.Connected :=true;
except
Application.MessageBox('连接系统库中的数据库位置错误,请确定本系统安装目录下的manager.mdb文件是否存在!','提示信息',0);
exit;
end;

G_AppDirect、ss、ConnectString均为String变量,Connect为AdoConnection控件。
 
后退
顶部