ADO Connection

[Brother Abbat]

ну ни дня без вопроса. Смотрю сегодня хит дня на форуме тема про ADOconnect, вот и у меня вопрос созрел. Имею вот такой код

procedure TFmain.N2Click(Sender: TObject);
var openDL:TOpenDialog;
st:string;
begin
  st:='';
  fDM.con1.Connected:=False;
  openDL:=fdm.dlgOpen1.Create(Self);
  if openDL.Execute then
  begin
    st:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+(openDL.FileName)+';Mode=Share Deny None;Extended Properties="";
Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:';
    st:=st+'Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;
Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=';
    st:=st+'False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'+Chr(39)+'t Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
    fdm.con1.ConnectionString:=st;
    fDM.con1.Connected:=True;
    fdm.ADOQ1.Connection:=fDM.con1;
    fdm.ADOQ1.Active:=True;
  end;
  openDl.Free;
end;

нажатие на кнопочку работает ровно один раз, когда на нее жмакаю второй раз вылазит ошибка:"Access Violation at address ...ну и так далее. Подскажите, не откажите в любезности, где ошипся я?
ps (тока не надо отвечать? что ошипка начать писать в delphi )

[evg_m]

1. переменную openDL:TOpenDialog; убрать
2.убрать строку

  openDL:=fdm.dlgOpen1.Create(Self);

и никогда больше ТАК не создавать объекты.
3. все openDL. заменить на fdm.dlgOpen1.

желательно но необязательное.
перенести код в другой модуль тот в котором который
fDM.con1
fdm.dlgOpen1
fdm.ADOQ1
оформив его либо в виде метода

public
  procedure findDB;

в обработчике кнопки просто

  fdm.FindDB;

либо в виде действия с использованием TactionList
добавить на форму TactionList
добавить действие (Action)
назначить обработчик OnExecute
добавить код обработчика.

и назначив данное действия нашей кнопке.

[Brother Abbat]

спасибо за ответ. Код был честно скопипастен с какого то учебника в сети, так что за переменную openDL не ругайте. За утро попробовал сделать оба способа и через Public и через Taction. Результат все тот же. Первый раз база открывается, если начинаешь открывать вторую базу (ну или второй раз ту же) выскакивает ошибка Аксесс виолатион...

[evg_m]

прикрепите весь проект (как архив во вложении)
без файлов *.exe; *.dcu; *.~*;. Т.к. ошибка где-то в другом месте.

[Brother Abbat]

ок, вотъ..

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

[vovk]

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

openDl.Free;

а не заменили его на

fdm.dlgOpen1.Free;

?

PS
сейчас посмотрю

[evg_m]

procedure TfDM.FindDb;
var
st:string;
begin
  st:='';
  fdm.con1.Connected:=False;
  if fdm.dlgOpen1.Execute then
  begin
...
    fdm.con1.Connected:=True;
    fDM.ADOQ1.Connection:=fDM.con1;
    fDM.ADOQ1.Active:=True;
  end;
  fdm.dlgOpen1.Free;
end;

вот этой (выделенной красным) строчки быть не должно. Ни здесь ни в других местах procedure TFmain.btn4Click(Sender: TObject); . по сути вы удаляете объект, а потом вновь пытаетесь работать с ним. Если вы не создаете объект (xx:=....Create) то Free не нужен.

P.S.аналогичное замечание

procedure TFmain.btn3Click(Sender: TObject);
begin
  FRep.qckrp1.PreviewModal;
  Frep.qckrp1.Free;
end;

повторное нажатие также приведет к Аv.

[Brother Abbat]

спасибо огромаднейшее за объяснение. Все заработало )

[vovk]

Не запускал, есть сторонние компоненты.
Бегло просмотрел, действительно
fdm.dlgOpen1.Free;

И в коде у вас ещё встречается освобожднее компонентов, а вот создание только 1 раз при запуске.
Отчёт 2 раза не пробовали открывать?

[Brother Abbat]

В отчете тоже убрал free. после того как исправил, все работает отлично ) Суть я понял, создал объект один раз и удаляю его много много раз, соотв-но на вторую попытку удаления объекта и идет ошибка. Спасибо большое.