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

  • Автор темы S1at
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

S1at

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

Barmutik

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

S1at

Гость
#3
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 OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database 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 OLEDB:Don'+''''+'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;
 
B

Barmutik

Гость
#4
Что-то мне подсказывает что в тот момент когда Вы обращаетесь к admin_form -она ещё не создана .. отсюда и ошибка доступа...
 
Статус
Закрыто для дальнейших ответов.