Проблема такая. Я хочу при удалении главной записи (из таблицы 1 Query1) проверять не привязанны ли к ней в другой таблице данные. Для этого пишу запрос на проверку, но че то не работает. Мне нужно проверку осуществить именно через запрос, а не через стандартную привязку в BDE. База данных Paradox.

DM.Query2.Close;
DM.Query2.SQL.Text :='SELECT FID FROM BOB1 WHERE FID= :ID';
DM.Query2.ParamByName('ID').Value :=DM.Query1ID.Value;
DM.Query2.ExecSQL;
DM.Query2.Open;

if DM.Query2.RecordCount > 0 then
ShowMessage('Параметр')
else
begin
DM.Query1.Close;
DM.Query1.ParamByName('ID').Value :=DM.Query1ID.Value;
DM.Query1.ExecSQL;
DM.Query1.Close;
DM.Query1.Open;
end;

Если можно подскажите.

Цитата(User @ 23.12.2004, 15:00)

DM.Query2.ExecSQL; DM.Query2.Open;

Убери DM.Query2.ExecSQL;


ExecSQL используется только тогда, когда запрос не должен возвращать значение. Но он ТОЖЕ выполняет запрос. У тебя получается два раза выполняется. Фигня какая-то.

Спасибо, все вышло.