 |
|
|
 
|
|
вывод данных SQL запроса в MEMO 
| Kuznecov_A_M |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 14.2.2007 Репутация: нет Всего: нет |
В IBQuery прописан запрос SELECT OP_KAT FROM KAT WHERE KAT=:OPParam; как вывести значение OP_KAT после нажатия ОК в поле MEMO и еще вопрос В IBQuery прописан запрос SELECT D_O, D_V, ...и т.д. FROM REC WHERE NOM_REC=:RECParam; как вывести значение D_O в EDIT1 , D_V В Edit2 ,.....и т.д. |
|||
|
||||
Загрузка ...
| DimW |
|
|||
 Эксперт  Профиль Группа: Завсегдатай Сообщений: 1330 Регистрация: 24.2.2005 Где: Орёл Репутация: 5 Всего: 44 |
так в мемо
var i:integer; ---------------- i:=0 IBQuery.first; while not IBQuery.eof do begin meno1.lines[i]:= IBQuery.fieldbyname('OP_KAT').asstring; i:=i+1; IBQuery.next; end; ---------------- так в эдит EDIT1.text:=IBQuery.fieldbyname('D_O').asstring; --------------- эта тема на форуме обсуждалось 10237 раз, search тебе поможет. |
|||
|
||||
| Vas |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 830 Регистрация: 29.6.2005 Где: Stavropol region Репутация: 23 Всего: 28 |
DimW, а случаем ошибка на этой строке
meno1.lines[i]:= IBQuery.fieldbyname('OP_KAT').asstring; не вывалится?
-------------------- И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин) |
|||
|
||||
| Kuznecov_A_M |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 14.2.2007 Репутация: нет Всего: нет |
IBQuery2.Close;
IBQuery2.ParamByName('N_KAT').Value:=Edit1.Text; IBQuery2.Open; Memo1.Text:=IBQuery2.Fields[0].AsString; IBQuery2.Close; спасибо сам докумекал |
|||
|
||||
| Vas |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 830 Регистрация: 29.6.2005 Где: Stavropol region Репутация: 23 Всего: 28 |
А если запрос вернет не одну строку а 100, то ваш код выведет только одну строку (текущую) и все  Добавлено @ 07:56 А для вашего решения выводить текст из поля текущий строки в Memo проще использовать DBMemo. -------------------- И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин) |
|||
|
||||
|
|
| Правила форума "Delphi: Базы данных и репортинг" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами Обязательно указание: 1. Базы данных (Paradox, Oracle и т.п.) 2. Способа доступа (ADO, BDE и т.д.)
FAQ раздела лежит здесь! Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема » |
[ Время генерации скрипта: 0.0443 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |