Показать сообщение отдельно
  #4  
Старый 28.06.2010, 11:47
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Пишем запрос :
Цитата:
Select *
from Таблица
where Поле1=r1
and Поле2=r2

пихаем его в Query.
далее пробегаем по стринггриду в цикле и в теле цикла выполняем Query
Например так:
Цитата:
for i:=0 to кол-во строк в стринг гриде-1 do
begin
query1.active:=false;
query1.parametrs.parambyname('pr1').Value:= Поле1стринггрида;
query1.parametrs.parambyname('pr2').Value:= Поле2стринггрида;
query1.active:=true;
if query1.isEmpty = false then Запись есть;
end;

адаптируйте под свои нужды, сами.
Ответить с цитированием