delphi中用adod动态连接excel 作为数据源
我准备用ado连接excel文件作为数据源
用ado手动连接数据库就可以运行

但是我想要用代码动态连接excel作为数据库，我写的代码如下：、

procedure Tmainform.FormCreate(Sender: TObject);
var
apppath,str1,str:string;
begin
appPath := ExtractFilePath(Application.ExeName);
str1:=apppath+'小票.xls ';
str:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+str1+';Extended Properties=excel 8.0;Persist Security Info=False';


dm.adocon_test.ConnectionString:=str;
try
dm.adoDS_test.Active:=true;
except
showmessage('连接失败');
end;

end;



但是每次运行到 dm.adocon_test.ConnectionString:=str; 这一步的时候就会出错


project testprint.exe raised exception class EAccess vicolation with message 'Access violation at address 006Ac1eb in module'textprint.exe',read of address 00000060' process stoppen .use step or run to




求问我出错在哪里？请教学习


[解决办法]
你的dm是一个TDataModule吧，可能的原因是它没有创建。
在
dm.adocon_test.ConnectionString:=str;
加
dm := tdm.Create(self);
就应该可以了

[解决办法]