ADO连接Access问题....急急急 ( 积分: 50 )

ADO连接一个用OpenDialog打开的Access文件，设置ConnectionString := 'Provider =

MicroSoft.jet.OLEDB.4.0; Data Source='+OpenDialog.FileName+';Persist Security

Info = False;Jet OLEDBatabase Password=123;';老是谈出密码无效。。。。

如果不用OpenDialog获取文件名而直接设置ConnectionString := 'Provider =

MicroSoft.jet.OLEDB.4.0; Data Source=D:/123.mdb;Persist Security Info =

False;Jet OLEDBatabase Password=123;';就连接成功，谁知道这是为什么啊？

Data Source='+OpenDialog.FileName+' 格式对么？

procedure TForm1.Button1Click(Sender: TObject);
var
strl,WPath:string;
begin
if opendialog1.Execute then begin
WPath:= OpenDialog1.FileName;
strl := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=';
strl := strl + WPath + ';Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";';
strl := strl + 'Jet OLEDB:Registry Path="";Jet OLEDBatabase Password=cmsyu;Jet OLEDB:Engine Type=5;';
strl := strl + 'Jet OLEDBatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;';
strl := strl + 'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";';
strl := strl + 'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;';
strl := strl + 'Jet OLEDBon'''+'t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;';
strl := strl + 'Jet OLEDB:SFP=False';
with adoconnection1 do
begin
ConnectionString :=strl;
connected:=true;
end;
end;
end;
测试通过！

对字符串变量的使用
...+''''+sVar+''''+...

....+quotedStr(sVar)+....
我刚开始学delphi也一样，老不会用，
啊哈哈

我这边还是不行啊，只要运行OpenDialog并打开Access文件就没办法连接
问题是这个OpenDialog。。。。。