相对路径连接数据库

Question

存钱管理程序，使用相对路径连接数据库。主界面中
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getcurrentdir+
              '\db.mdb;Persist Security Info=False;Jet OLEDB:Database Password=False';
ADOQuery1.SQL.Text:='select * from 存钱';
ADOQuery1.Open;
可是DBGrid1中没有任何数据，没有联接上！而之前的登陆界面中使用ADOTable1.FeildName:=('密码')；（db.mdb中包含‘存钱’和‘密码’两个数据表）就可以同数据库连接。

Answer 1

getcurrentdir -> ExtractFilePath(Application.ExeName)

Answer 2

当你确定路径等正确后
你还应该把ADOQuery的conection设置啊
也就是
ADOQuery1.Connnection := ADOConnnection1;