帮我看看为什么执行不了?在线等待,可以执行.马上给分!

Question

ADOTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+MyPath+':\mdb\销售数据统计系统.mdb;Persist Security Info=False';

Answer 1

你的程序好象没有问题。
如果不知道，可以用ShowMessage(ADOTable1.ConnectionString)
来查看一下最终值究竟是什么，我想可能MDB文件不在你所指定的路径下。
此外，你最好不要在FormCreate中就打开表数据。

Answer 2

你的数据库路径是不是当前目录下的MDB下的？
如果是 你的ExtractFilePath(ParamStr(0)); 不对 
ParamStr(0)指的是你程序启动的时候的参数 比如拖放的一个文件的文件名
应该是
MyPath := ExtractFileDir(Application.ExeName);

Answer 3

try
ADOTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;dbq='+MyPath+':\mdb\销售数据统计系统.mdb;';

Answer 4

ADOTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+MyPath+'\mdb\销售数据统计系统.mdb;jet OLEDB:Database Password=123';

Answer 5

其实根本不要要用什么api来读当前路径的。Delphi里提供了很简单的方法。
var strPath: String;
begin
    GetDir(0,strPath);
    ADOTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ strPath + '\mdb\销售数据统计系统.mdb;jet OLEDB:Database Password=123';
end;
就可以了

Answer 6

ADOTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                               MyPath+'\mdb\销售数据统计系统.mdb;Persist Security Info=False';
   ADOTable1.TableName:='查找客户';
在MDB前面加一个\就好了