数据库打包的问题，谢谢！

Question

请教：
我用的是 ADO  假设数据库 是 ACCESS  或者 PARADOX  
当我打好包以后，当程序到别的计算机安装，那么路径就变了，各位大哥，假设数据库在;c:\myfiles\aa.db那么在打包时数据库路径怎么设置啊？谢谢！

Answer 1

wenjianyao  大哥
                 您好！
      我的 ADO 是通过  build 建立的，
那么他的路径就不是 相对的，是吗？谢谢！

Answer 2

可以通过代码写！
var
  CnnStr:String;
begin
  CnnStr:=' Provider=Microsoft.Jet.OLEDB.4.0; ';
  CnnStr:=CnnStr+' User ID=Admin;Data Source= ';
  CnnStr:=CnnStr+ExtractFilePath(Application.ExeName);
  CnnStr:=CnnStr+'数据库\数据库.MDB;';
。
ExtractFilePath(Application.ExeName)用这个取你的可执行文件路径，接着找相对的数据库路径.....

Answer 3

MudLib 大哥：
我通过 build 得到的 ADOConnection1.ConnectionString 如下：（我要打的是 paradox 数据库）
Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="CollatingSequence=ASCII;DefaultDir=C:\Documents and Settings\Administrator\桌面\刘权\DATA;Driver={Driver do Microsoft Paradox (*.db )};DriverId=538;FIL=Paradox 5.X;FILEDSN=C:\Documents and Settings\Administrator\桌面\刘权\DATA\IMSCJ.DB.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=600;ParadoxNetPath=C:\WINNT\system32;ParadoxNetStyle=4.x;ParadoxUserName=admin;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
可是我用   ExtractFilePath(Application.ExeName)  就是有错误
DATA  文件夹是和可执行文件是放在同一个目录下的  DATA  文件夹有 文件 IMSCJ.DB  MudLib 大哥 ，您给我写一下好吗？
谢谢！

Answer 4

用这个　path：＝Extractfilepath(paramstr(0))
path　是应用程序所在目录　然后在加上数据库目录即可

Answer 5

怎么能用绝对路径呢?
用ExtractfilePath取相对路径什么都搞定

Answer 6

hhbbyy2000 大哥
我应是这么用的，可是写了好几次都写错了hhbbyy2000 大哥，您给我写完全，好吗？谢谢！

Answer 7

我通过 build 得到的 ADOConnection1.ConnectionString 如下Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="CollatingSequence=ASCII;DefaultDir=C:\Documents and Settings\Administrator\桌面\刘权\DATA;Driver={Driver do Microsoft Paradox (*.db )};DriverId=538;FIL=Paradox 5.X;FILEDSN=C:\Documents and Settings\Administrator\桌面\刘权\DATA\IMSCJ.DB.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=600;ParadoxNetPath=C:\WINNT\system32;ParadoxNetStyle=4.x;ParadoxUserName=admin;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"可是我用 Extractfilepath(paramstr(0)) 来写就是有错误var
filename1:string;
filename2:string;
beginfilename2:=ExtractFilePath(paramstr(0))+'刘权\DATA' ;
filename1:=ExtractFilePath(paramstr(0))+'刘权\DATA\IMSCJ.DB.dsn';ADOConnection1.ConnectionString :='Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="CollatingSequence=ASCII;DefaultDir='+filename2+';Driver={Driver do Microsoft Paradox (*.db )};DriverId=538;FIL=Paradox 5.X;FILEDSN='+filename1+';MaxBufferSize=2048;MaxScanRows=8;PageTimeout=600;ParadoxNetPath=C:\WINNT\system32;ParadoxNetStyle=4.x;ParadoxUserName=admin;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"';
可是写了好几次都写错了请各位大哥给我验证一下！谢谢！

Answer 8

C:\Documents and Settings\Administrator\桌面\刘权\DATA
绝对呀