AdoTable

@ArkTonus · Регистрация: 30.03.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте. У меня такая проблема, на главной форме есть дбгрид(отображает клиентов из access ч/з adotable), при 2-ом щелчке на нем открывается новая форма с заполнеными дбедитами выбранного клиента(для редактирования собственно этих данных о клиентах), на этой же форме есть дбгрид. Вопрос собственно в следующий как сделать так чтобы при 2-ом щелчке дбгрида на главной форме отображались данные(туры в которых участвует клиент) во 2-ом дбгриде, т.е как получить текущюю запись для условия отбора из adotable на главной форме? Надеюсь обьяснил понятно) Если что спрашивайте). Надеюсь на вашу помощь, вот)))

@Андрей Борисови · 04.05.2010, 13:09

в 1 ДБгриде у вас 1 столбец ID (или код - короче ключевое поле).
Вот по нему и делайте либо SQL-запрос либо ADOTable1.Locate(что-то тут);

@ArkTonus · 04.05.2010, 13:24 **[ТС]**

Андрей Борисови, я составил следующий запрос, помогите плз, с условием. за ранее блогадарю)
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.Parameters.Clear;
ADOQuery1.SQL.Add('SELECT c.№Тура, c.ДатаЗаключения договора, c.ДатаНачалаТура,');
ADOQuery1.SQL.Add('c.ДатаОкончанияТура, c.Страна');
ADOQuery1.SQL.Add('FROM клиенты AS a, ТурыКлиентов AS b, туры AS c');
ADOQuery1.SQL.Add('WHERE id_client='+IntToStr(??????????????????? )+'');
ADOQuery1.ExecSQL;

@Андрей Борисови · 04.05.2010, 13:29

не вижу чем помочь надо. все верно.
вот сюда IntToStr(ADOTable['Client_ID'])

@ArkTonus · 04.05.2010, 13:37 **[ТС]**

выдает ошибку поле 'Client_ID' не найдено, я думаю потому что в adotable на главной форме выбрана таблица Клиенты, а как вы можете увидеть на схеме в таблице клиентов нет поля 'Client_ID'.

@Андрей Борисови · 04.05.2010, 13:48

сформируйте запрос в Аксцессе (у меня нет вашей базы) и задействуйте все 3 талицы в запросе.
как пробник создайте запрос по конкретному ID из талицы Клиенты

Добавлено через 37 секунд
или выложите базу

@ArkTonus · 04.05.2010, 13:58 **[ТС]**

Вот база.

@Андрей Борисови · 04.05.2010, 14:43

SQL
1
2
3
SELECT Клиенты.id_client, Клиенты.Фамилия, Туры.№тура
FROM Клиенты INNER JOIN Туры ON Клиенты.id_client = Туры.ClientID
WHERE (((Клиенты.id_client)=1));

сделал:
1.

2. Добавил (для теста) еще 1 тур для Клиента с ID 1 но с др. датой
3. вот краткий запрос (смотри выше)
4. В Дельфи вместо 1 надо поставить IntToStr(ADOTable1['ID клиента'])

@Андрей Борисови · 04.05.2010, 14:44

поля вывода можете взять по своему желанию)

@ArkTonus · 04.05.2010, 16:05 **[ТС]**

Сообщение от Андрей Борисови

SQL
1
2
3
SELECT Клиенты.id_client, Клиенты.Фамилия, Туры.№тура
FROM Клиенты INNER JOIN Туры ON Клиенты.id_client = Туры.ClientID
WHERE (((Клиенты.id_client)=1));

сделал:
1.Вложение 28813
2. Добавил (для теста) еще 1 тур для Клиента с ID 1 но с др. датой
3. вот краткий запрос (смотри выше)
4. В Дельфи вместо 1 надо поставить IntToStr(ADOTable1['ID клиента'])

не понял, в 4-ом пункте: ['ID клиента'] это поле из таблицы Клиенты или конкретное число?

@Андрей Борисови · 04.05.2010, 17:21

результат поля из таблицы Клиенты, т.е. IntToStr(ADOTable1['DI_Client'])

@ArkTonus · 04.05.2010, 18:50 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.Parameters.Clear;
  ADOQuery1.SQL.Add('SELECT Туры.№Тура, Туры.ДатаЗаключенияДоговора, Туры.ДатаНачалаТура,');
  ADOQuery1.SQL.Add('Туры.ДатаОкончанияТура, Туры.Страна');
  ADOQuery1.SQL.Add('FROM Клиенты INNER JOIN Туры ON Клиенты.id_client= Туры.ClientID');
  ADOQuery1.SQL.Add('WHERE (((Клиенты.id_client)='+IntToStr(Form1.ADOTable1['[B]?????[/B]'])+'))');
  ADOQuery1.ExecSQL;

@ArkTonus · 04.05.2010, 18:57 **[ТС]**

Сообщение от Андрей Борисови

результат поля из таблицы Клиенты, т.е. IntToStr(ADOTable1['ID_Client'])

так не работает, т.е он выводит все имеюшиеся туры, а не туры выбранного клиента(. Вот результат выборки:

@Андрей Борисови · 04.05.2010, 19:28

скрин 1 таблицы покажите пож-ста

@ArkTonus · 04.05.2010, 19:51 **[ТС]**

Скрин 1-й таблицы:

@Андрей Борисови · 04.05.2010, 20:06

1 таблица ассоциирована с ADOTable1?

@ArkTonus · 04.05.2010, 20:24 **[ТС]**

Да, 1-я с AdoTable1.

Новые блоги и статьи Все статьи Все блоги /
Философия технологии 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(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .

@ArkTonus 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 28

	AdoTable 04.05.2010, 12:57. Показов 2177. Ответов 16 Метки нет (Все метки) Здравствуйте. У меня такая проблема, на главной форме есть дбгрид(отображает клиентов из access ч/з adotable), при 2-ом щелчке на нем открывается новая форма с заполнеными дбедитами выбранного клиента(для редактирования собственно этих данных о клиентах), на этой же форме есть дбгрид. Вопрос собственно в следующий как сделать так чтобы при 2-ом щелчке дбгрида на главной форме отображались данные(туры в которых участвует клиент) во 2-ом дбгриде, т.е как получить текущюю запись для условия отбора из adotable на главной форме? Надеюсь обьяснил понятно) Если что спрашивайте). Надеюсь на вашу помощь, вот))) 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	04.05.2010, 13:09
	в 1 ДБгриде у вас 1 столбец ID (или код - короче ключевое поле). Вот по нему и делайте либо SQL-запрос либо ADOTable1.Locate(что-то тут); 0

@ArkTonus 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 28
	04.05.2010, 13:24 [ТС]
	Андрей Борисови, я составил следующий запрос, помогите плз, с условием. за ранее блогадарю) ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.Parameters.Clear; ADOQuery1.SQL.Add('SELECT c.№Тура, c.ДатаЗаключения договора, c.ДатаНачалаТура,'); ADOQuery1.SQL.Add('c.ДатаОкончанияТура, c.Страна'); ADOQuery1.SQL.Add('FROM клиенты AS a, ТурыКлиентов AS b, туры AS c'); ADOQuery1.SQL.Add('WHERE id_client='+IntToStr(??????????????????? )+''); ADOQuery1.ExecSQL; Миниатюры 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	04.05.2010, 13:29
	не вижу чем помочь надо. все верно. вот сюда IntToStr(ADOTable['Client_ID']) 0

@ArkTonus 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 28
	04.05.2010, 13:37 [ТС]
	выдает ошибку поле 'Client_ID' не найдено, я думаю потому что в adotable на главной форме выбрана таблица Клиенты, а как вы можете увидеть на схеме в таблице клиентов нет поля 'Client_ID'. 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	04.05.2010, 13:48
	сформируйте запрос в Аксцессе (у меня нет вашей базы) и задействуйте все 3 талицы в запросе. как пробник создайте запрос по конкретному ID из талицы Клиенты Добавлено через 37 секунд или выложите базу 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	04.05.2010, 14:44
	поля вывода можете взять по своему желанию) 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	04.05.2010, 17:21
	результат поля из таблицы Клиенты, т.е. IntToStr(ADOTable1['DI_Client']) 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	04.05.2010, 19:28
	скрин 1 таблицы покажите пож-ста 0

@ArkTonus 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 28
	04.05.2010, 19:51 [ТС]
	Скрин 1-й таблицы: Миниатюры 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	04.05.2010, 20:06
	1 таблица ассоциирована с ADOTable1? 0

@ArkTonus 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 28
	04.05.2010, 20:24 [ТС]
	Да, 1-я с AdoTable1. 0