Динамическая Connectionstring

[S1at]

Какие есть способы для динамического создания ConnectionString
мне в принципе там только путь к базе изменять и все, однако при тех способах, что я используюЮ выдается ошибка Access Violation

 

[Barmutik]

Должно всё работать... покажите код...

 

[S1at]

procedure TPasswordDlg.FormCreate(Sender: TObject);
var
s, s1, s2:string;
begin
path:=ExtractFilePath(paramstr(0));
s:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+path+'Test.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";';
s1:='Jet OLEDBatabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDBatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;';
admin_form.loc_cnct.ConnectionString :=s+s1+'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon'+''''+'t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
admin_form.loc_cnct.Connected:=true;
admin_form.Log_Qr.Active := true;
end;

 

[Barmutik]

Что-то мне подсказывает что в тот момент когда Вы обращаетесь к admin_form -она ещё не создана .. отсюда и ошибка доступа...