盒子论坛 v2.1

用INSTALLSHIELD EXPRESS对数据库程序进行打包，请问程序安装时是否一定要把程序调用的数据库安装在原开发环境下的位置？？？
如:在TABLE1的DATABASENAME为E:\SJK\DATA\SJK.MDB
那么:数据库一定要安装在E:\SJK\DATA\SJK.MDB吗?

----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/12/22 22:18:03

1楼：

不一定的

resourcestring
adocs2= 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;' +
          'Data Source=%s;Mode=Share Deny None;Extended Properties="";' +
          'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";' +
          'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;' +
          'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;' +
          'Jet OLEDB:Global Bulk Transaction_s=1;Jet OLEDB:New Database Password="";' +
          'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;' +
          'Jet OLEDB:Don't Copy Locale on Compact=False;' +
          'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
procedure TSDIAppForm.OpenAccess(DBName:string);
begin
    ADOTable1.Close ;
    ADOTable2.Close ;
    ADOTable3.Close ;
    ADOTable1.Connection :=nil;
    ADOTable2.Connection :=nil;
    ADOTable3.Connection :=nil;

    ADOConnection1.ConnectionString :=Format(adocs2,[DBName]);
    ADOTable1.Connection :=ADOConnection1;
    ADOTable1.Open ;

    ADOTable2.Connection :=ADOConnection1;
    ADOTable2.Open ;

    ADOTable3.Connection :=ADOConnection1;
    ADOTable3.Open ;
end;

----------------------------------------------

信息

登陆以后才能回复