Подключение через ADOConnection1.ConnectionString

[xsaroo]

Пытаюсь изменить путь к подключаемой бд через edit но вылетает ошибка


путь к бд пользователь задает в edite
вот код

procedure TForm1.Button4Click(Sender: TObject);
var s: string;
begin
s:='';
s:=s+'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=%s;';
s:=s+'Mode=Share Deny None;Extended Properties=dBase 5.0;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";';
s:=s+'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;';
s:=s+'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

ADOConnection1.Connected:= False;
ADOConnection1.ConnectionString:=Format(s,[edit4.text]);
ADOConnection1.Connected:= True;
end;

[Serge_Bliznykov]

во-первых, попробуйте обойтись без функции Format:

s:='';
s:=s+'Provider=Microsoft.Jet.OLEDB. 4.0;User ID=Admin;Data Source='+edit4.Text+';';
...
ADOConnection1.Connected := False;
ADOConnection1.ConnectionString := s;
ADOConnection1.Connected := True;

во-вторых, перед тем как сделать Conneted := True; сохраните куда-нибудь ConnectionString - посмотрите, что там творится. попробуйте непосредственно с полученной строкой подключиться.

в-третьих, может быть путь в edit4 задан действительно коряво или неполно?

[Аватар]

И зачем вообще путь через эдит задавать? Потенциальное место для кучи ошибок. OpenDialog и OpenDialog.FileName

ADD

Кстати судя по ошибке в edit4.text не путь, а строка 'Edit4' торчит

[xsaroo]

Все спасибо через диалог и в правду легче
вот только теперь другой вопрос
после закрытия проги путь не сохраняется приходится заново открывать
так вот как сделать чтоб путь сохранялся