Текущий архив: 2002.10.31;
Скачать: CL | DM;

Вниз

Delphi+ADO   Найти похожие ветки 

← →
Саша К.   (2002-10-12 04:59) [0]

Подскажите как реализовать запрос к базе данных в процедуре, используя локальную переменную TADOQuery?
Иными словами нужно что-то вроде этого:

procedure SomeProcedure();
var
ADOQuery1 : TADOQuery;
begin
with ADOQuery1 do
begin
Connection := Con;
with SQL do begin
Clear;
Add("SELECT * FROM SomeTable");
end;
Open;
end;

end;

При запуске программы и выполнении этой процедуры вылетает эксепшн при первом обращении к объекту ADOQuery1. Тоже самое происходит при использовании TADODataSet вместо TADOQuery.
P.S.: Con в тексте программы - это глобальная переменная типа TADOConnection (с ней все нормально).

---

← →
sniknik ©   (2002-10-12 09:06) [1]

добавь
ADOQuery1:= TADOQuery.Create(Self);
with ADOQuery1 do
....
ADOQuery1.Free;

можно и так, без обьявления переменной
with TADOQuery.Create(Self) do
begin
....
Free;
end;

---

← →
AngeL B.   (2002-10-12 23:22) [2]

Все таки еще более правильно
with TADOQuery.Create do
try
...
finally
Free;
end;

---

← →
Саша К.   (2002-10-12 23:35) [3]

О! Спасибо вам. Я уж и не надеялся. :)

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.31;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c