Показать сообщение отдельно
  #2  
Старый 24.05.2010, 00:06
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Напиши заброс, типа:
Код:
Query1.Sql.Text:='select * from z1.db where vopros = :x1'
Query1.ParamByName('x1').AsString := x1;
Query1.Open;
If Query1.RecordCount>0 then // если нашелся Х1 то берем из таблицы Х2
 x2:=Query1.FieldByName('otvet').Asstring;
Ответить с цитированием