Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 05.11.2014
Сообщений: 42
MS Access

Выборка из базы данных Access по условию

09.12.2016, 22:44. Показов 2231. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите, пожалуйста поправить код...
Задача: Есть база данных. В ней две связанных между собой таблицы.
На форме расположено два ComboBox. Первый запросом к БД я заполняю значениями из первой таблицы.Второй должен заполниться запросом к базе данных после того, как я выберу значение в первом ComboBox (причем второй ComboBox должен заполниться только значениями, соответствующими выбранному в первом ComboBox).

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.ComboBox1Change(Sender: TObject);
 
begin
 ComboBox2.Items.Clear;
// присваиваю переменной значение из ComboBox1
perem:= ComboBox1.Items[ComboBox1.ItemIndex];
 
label22.Caption:=perem;
 
combobox2.Enabled:=true;
//Выполняем запрос на выборку данных из второй таблицы
  ADODataSet2.CommandText := 'SELECT Запрос на выборку данных;     
 
 ADODataSet2.Active := True;
 
//а далее мне нужно заполнить ComboBox2 полученными значениями. И здесь что-то не получается 
 for i := 1 to ADODataSet2.RecordCount do                 
 begin
   if ADODataSet2.FieldByName('значение из табл 2').AsString <> '' then
  begin
     ComboBox2.Items.Add(ADODataSet2.FieldByName('значение из табл 2').AsString);
     ADODataSet2.Next;
   end;
 
end;
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.12.2016, 22:44
Ответы с готовыми решениями:

Выборка из базы данных Access по условию
Всем доброго здоровичка! VB2008 FW=3.5 Пересмотрел форум, всё равно не понял как делать (мозг закипел)... Есть простенькая БД в...

Выборка строк по условию из базы Access
Подскажите пожалуйста как такое сделать: есть база access в ней таблица cars. Как мне из этой таблицы записать в массив/список все model у...

Выборка из базы данных по условию
Всем привет, помогите разобраться с запросами. Есть аццесовская база данных: id название учебника название главы номер главы ...

4
5966 / 4542 / 1094
Регистрация: 29.08.2013
Сообщений: 28,151
Записей в блоге: 3
10.12.2016, 18:21
100500 раз пишу

Delphi
1
2
3
4
5
6
7
8
query.sql.test:='select a,b,c from T';
query.active:=true;
 
while not query.eof do
begin 
  query.fields[0].Value; // тут наше значение. можно с ним работать
  query.next;
end;
далее тот же самый код, только запрос другой

1. вариант запроса (обычный текст)
Delphi
1
query.sql.test:='select a,b,c from T where COLUMN1 = '+ quotedSTR(Edit.Text);
подходит для простых запросов.
отлаживать запрос можно через
Delphi
1
Showmessage(query.sql.text);
2. вариант (с параметрами)
Delphi
1
2
query.sql.test:='select a,b,c from T where COLUMN1 = :s';
query.Params[0].asString=Edit.Text;
подходит для сложных запросов, очень удобен для UPDATE и INSERT
через Showmessage параметры не отловить
2
0 / 0 / 0
Регистрация: 05.11.2014
Сообщений: 42
13.12.2016, 20:42  [ТС]
Спасибо, qwertehok.

Продолжаю разбираться по приведенному Вами примеру.
Нужно заполнить Combobox результатами выполненного запроса.
Должен получиться целый список вариантов, а вижу в Combobox только ФИО последнего сотрудника из списка...?


Delphi
1
2
3
4
5
6
while not ADOQuery1.eof = false do;
 
 begin
 
  combobox2.items.add((ADOQuery1.FieldByName('FIO_sotrudnik'). asstring));
ADOQuery1.next;
0
Хитрая блондиночка $)
 Аватар для Hikari
1472 / 988 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
13.12.2016, 20:52
Цитата Сообщение от Gashenev_Sergei Посмотреть сообщение
while not ADOQuery1.eof = false do;
Delphi
1
while not ADOQuery1.eof do
и все
0
0 / 0 / 0
Регистрация: 05.11.2014
Сообщений: 42
13.12.2016, 20:58  [ТС]
Спасибо. Не внимательно изучил Ваш пример.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.12.2016, 20:58
Помогаю со студенческими работами здесь

MS Access - выборка данных из базы в listview
Добрый день Задача стоит следующая: форма поиска. Вводится фамилия или ее часть, кликается &quot;найти&quot;. В таблицу людей делается...

Выборка данных по условию.
По идее должен проверить условие если меньше 11000000 тогда выбирает одни данные, если больше, тогда другие, вот только программа виснет...

Выборка данных по условию
День добрый Подскажите, можно ли с помощью формул организовать выборку данных с одного листа на другой. Суть задачи: есть...

Создание базы данных, открытие из под одной базы данных MS Access
Здравствуйте. В общем, C# начал заниматься только вот и сразу была поставлена задача создать базу данных. Идея есть, при открытие программы...

Выборка данных из текста по условию
Всем привет, требуется перенести данные в блокнот в таком порядке как в примере ниже (окрашены в цвет как надо), первый символ это тип...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru