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

Тема в разделе "Delphi - Базы данных", создана пользователем S1at, 20 мар 2007.

Статус темы:
Закрыта.
  1. S1at

    S1at Гость

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

    Barmutik Гость

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

    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 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;
     
  4. Barmutik

    Barmutik Гость

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

Поделиться этой страницей