请大家帮帮忙!!有关与access连接的问题!

Question

小弟用delphi7做了一个小程序,测试神马的都通过了,我是有连接access数据库的.
然后用inno setup,将一个空的access数据库也打进去了.软件打成了安装程序.
然后进行安装,完成.
我就是想让那个安装好的程序是自动连接到安装目下的那个空access数据库的.......
是不是应该设相对路径还是怎么的.....
有没有大哥帮帮忙!!

Answer 1

数据库位置改了，系统必须重新指定数据库位置。或在系统中直接加入指定为系统目录：
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+extractfilepath(application.exename)+'youdate.mdb;.......................'

Answer 2

"Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+extractfilepath(application.exename)+'E:\自制小软件\备忘录\备忘录.mdb;......
根据你的说法我将ADOConnection里的ConnectionString的属性改为上面的了,然后在adoquary打开表的时候出现了错误提示:  指定的初始化字符串不符合OLE DB规定......

Answer 3

把你的ConnectionString完整的贴出来看看！！我用......，你别用.....

Answer 4

extractfilepath(application.exename)这个函数返回的是可运行的EXE文件所在的目录，如果你的EXE
在E:\自制小软件\备忘录
就直接用extractfilepath(application.exename)+'备忘录.mdb'
如果你EXE在E:\自制小软件
就得用extractfilepath(application.exename)+'备忘录\备忘录.mdb'

Answer 5

换句话说，你的EXE文件和MDB文件在同一个目录就直接用：
extractfilepath(application.exename)+'备忘录.mdb'

Answer 6

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=extractfilepath(application.exename)+'备忘录.mdb';Mode=Share Deny None;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 Transactions=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;
EXE和MDB是在同一个目录的- -！  但提示我说找不到文件。是不是哪里引号加错了

Answer 7

我真晕
放在表单的Creat中ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='
+extractfilepath(application.exename)
+'备忘录.mdb;Mode=Share Deny None;Jet OLEDB:System '
+'database="";Jet  OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet '
+'DB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk '
+'Ops=2;Jet OLEDB:Global  Bulk Transactions=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;';

Answer 8

ADOConnection1.Connected :=false;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='
+extractfilepath(application.exename)
+'备忘录.mdb;Mode=Share Deny None;Jet OLEDB:System '
+'database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet '
+'DB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk '
+'Ops=2;Jet OLEDB:Global Bulk Transactions=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;';
ADOConnection1.Connected :=true;
Ado....open;//打开你用的表，这句千万不要照抄，用你自己的表名