| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Delphi+ADO [D5, Access 2000]

Саша К. ©   (2002-10-12 04:59:00) 

Подскажите как реализовать запрос к базе данных в процедуре, используя локальную переменную 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 (с ней все нормально).

---

Саша К.   (2002-10-12 23:35:00) [1]

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

---

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

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

---

sniknik   (2002-10-12 09:06:00) [3]

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

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

---

Наверх