Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.05.2010, 23:51
taurusxxx taurusxxx вне форума
Прохожий
 
Регистрация: 23.05.2010
Сообщения: 9
Репутация: 10
По умолчанию записать в переменную результат запроса

Записываю из переменных значение в ранее созданную таблицу db.
Код:
Query1.Close;
      Query1.Sql.Clear;
      Query1.Sql.Text:='Insert into z1.db (vopros,otvet) values (:x1,:x2)';
      Query1.ParamByName('x1').AsString := x1;
      Query1.ParamByName('x2').AsString := x2;
      Query1.ExecSql;
      Query1.Close;
Замечательно записывается. Теперь хотелось бы разобраться в реализации следующей задумки.

Нужно чтобы:
при попытке записать в таблицу существующей там x1 , выдавалось соответствующее ему x2. При этом запись x1 в таблицу не производилась. Предпалагаю сделать это при помощи запроса, но чтобы выдавалось x2 нужно ее записать в переменную которую не знаю где объявлять и как ей присваивать x2 из таблицы?
Буду очень признателен за помощь или мысль в нужном направлении.
Ответить с цитированием
  #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;
Ответить с цитированием
  #3  
Старый 24.05.2010, 00:35
taurusxxx taurusxxx вне форума
Прохожий
 
Регистрация: 23.05.2010
Сообщения: 9
Репутация: 10
По умолчанию

Спасибо огромное. Никогда не думал что смогу довести до логического завершения подобные задачи. Дали поверить в себя )))
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:55.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025