Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.52/21: Рейтинг темы: голосов - 21, средняя оценка - 4.52
0 / 0 / 1
Регистрация: 13.11.2014
Сообщений: 8

Присвоить переменной результат запроса SQL

13.11.2014, 00:58. Показов 4342. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброй ночи всем! Помогите с таким вопросом.

MS SQL 2008, туда импортирован справочник БИК. На форме несколько DBEdit, 1 заполняется руками - именно сам БИК, остальные должны заполняться по выборке по уникальному значению БИКа.

Представляю это в виде такого:

Delphi
1
2
3
4
5
var bik: string;
begin
DBEit1.Text:=bik;
DBEit2.Text:=Form.ADOQuery.SQL.Text:='select Наименование from bankspr where БИК:=bik';
end;
Получаю ошибку несоответствия типов, но думаю не только в этом проблема. Как правильно составить запрос и сделать присвоение?
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
13.11.2014, 00:58
Ответы с готовыми решениями:

Результат запроса присвоить в отдельную ячейку dbgrid
как результат запроса присвоить в отдельную ячейку dbgrid

Присвоить переменной значение запроса
Требуется присвоить переменной значение запроса: ADOQuery1.SQL.Text:='select count(*) from tProduct'; ADOQuery1.Active:=true; ...

Результат запроса SQL в переменную
Помогите пожалуйста Есть таблица в access (Sloti) в ней несколько столбцов, один из них числительные (ObiomSlota), другой столбец с...

3
Модератор
 Аватар для FIL
3492 / 2614 / 742
Регистрация: 19.09.2012
Сообщений: 7,977
13.11.2014, 08:29
Лучший ответ Сообщение было отмечено tretalek как решение

Решение

Возьми обычный Едит, введи туда свой БИК.
DBEdit1 свяжи с нужным полем из таблицы.
На кнопку пропиши код:
Delphi
1
2
3
4
begin
  ADOQuery.SQL.Text := 'select Íàèìåíîâàíèå from bankspr where ÁÈÊ=' + Edit1.Text;
  ADOQuery.Open;
end;
1
0 / 0 / 1
Регистрация: 13.11.2014
Сообщений: 8
13.11.2014, 11:23  [ТС]
Пробовал

Delphi
1
2
3
4
5
procedure Tschetspr_edit.sSpeedButton1Click(Sender: TObject);
begin
schetspr.QuerySchetspr.SQL.Text := 'select Банк,Город,БИК from bankspr where БИК=' + sEdit1.Text;
schetspr.QuerySchetspr.Open;
end;
получаю ошибку на боксе - DBLookupComboBox1:Field 'Организация' not found. Каким боком то комбобокс туда прилипает?
0
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
13.11.2014, 12:30
разные запросы(Adoquery) должны быть для выбора реквизитов банка и организации

Добавлено через 47 секунд
т.е. к одному Adoquery привязаны реквизиты организации и ее счета, а к другому справочник банков и работа с ним
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.11.2014, 12:30
Помогаю со студенческими работами здесь

Неполный результат запроса SQL делфи
Доброго времени суток! Помогите пжст. Есть таблица с данными, в одном из ее полей (msg) есть номер, но перед каждым номером стоит...

Как получить результат SQL запроса?
простейший запрос select * from Table where name='Андрей'т.е. вообще существует такая запись.

Результат sql - запроса в стлобец dbgrid
На форме находится dbgrid в его первом столбце вводятся данные из таблицы БД. Мне необходимо в пустые столбцы вывести результат sql -...

Как вывести результат запроса SQL в Label?
Добрый день. Я хочу подсчитать количество записей в таблице Subscribers и результат вывести в label. В Query в свойстве SQL пишу - SELECT...

Результат работы SQL-запроса записать в файл
подскажите как результат sql запроса записать в файл через делфи


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru