第一次用ADO和ACCESS，有问题，谁帮一下！！！！先谢谢了！！！我没可用分了！！！

Question

我第一次用ADO连接ACCESS，ADOConnection、adoqueryobject 、DataSource都已经设置好，可我在Form1的Oncreate里加入如下代码就出错了：
procedure TForm2.FormCreate(Sender: TObject);
var
  s: string;
begin
   s:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
   s:=s+GetNowPath+'\db1.mdb;';     //显示在这有错误，好象是说GetNowPath
                                       有错，不知该如何改正啊？？
   s:=s+'Persist Security Info=False';
   ADOConnection1.Connected:=false;
   ADOConnection1.ConnectionString:=s;
   adoconnection1.connected:=true;
   adoquery1.Active:=true;
end;我试过，GetCurrentDir还有错，
如果谁有好的着方面的例子ADO,ACCESS，发给我或留下网址连接！！！
E-mail: [email protected]

Answer 1

你的getnowpath是否为当前编译文件的路径，如果是直接用函数
extractfilepath(application.exename);

Answer 2

TO shangxuesong(幻影) ：什么意思啊？？？不懂，说明白点把？？？？
如果谁有好的着方面的例子ADO,ACCESS，发给我或留下网址连接！！！
E-mail: [email protected]

Answer 3

同意
   s:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
   s:=s+extractfilepath(application.exename)+'\db1.mdb;';     //显示在这有错误，好象是说GetNowPath
                                       有错，不知该如何改正啊？？
   s:=s+'Persist Security Info=False';

Answer 4

好像是
   s:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
   s:=s+extractfilepath(application.exename)+'db1.mdb;';     //显示在这有错误，好象是说GetNowPath
                                       有错，不知该如何改正啊？？
   s:=s+'Persist Security Info=False';你showmessage(s)看一下。

Answer 5

还是显示：系统找不到D:\aaaa\db1.mdb