VPF::Запрос SQL - Форум программистов

jorka

Дата 4.10.2009, 17:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 25.10.2008

Репутация: нет
Всего: нет

MS Access, ADO.
Есть две таблицы(поля):
1) DType ( Key(число), TypeName(строка))
2) DName (Key(число), DetailName(строка), DetailType(число))

DType.Key и DName.DetailType связаны 1кМ

Помогите с запросом: выбрать все DetailName из DName так, чтоб они относились к одному типу.

Код


AdoQuery2.SQL.Text:='Select DetailName from DName where DetailType="'+ IntToStr(AdoQuery1.FieldByName('key').asInteger) +'" ';

Набросал код, но при выполнении ошибка "Несоответствие типов данных в выражении условия отбора"

ЗЫ

AdoQuery1 выглядит так:

Код


AdoQuery1.SQL.Text:='Select * from DType';

Это сообщение отредактировал(а) jorka - 4.10.2009, 17:41

Данкинг

Дата 4.10.2009, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Код


AdoQuery2.SQL.Text:='Select DetailName from DName where DetailType='+ IntToStr(AdoQuery1.FieldByName('key').asInteger)';

Добавлено через 43 секунды

Цитата(jorka @ 4.10.2009, 18:41

)

AdoQuery1 выглядит так:

А к чему здесь AdoQuery1 ?

--------------------

There's nothing left but silent epitaphs.

jorka

Дата 4.10.2009, 19:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 25.10.2008

Репутация: нет
Всего: нет

Цитата(Данкинг @ 4.10.2009, 18:20)

А к чему здесь AdoQuery1 ?

он дает мне список всех названий типов (DType.TypeName)
после чего я делаю While not AdoQuery1.Eof do и заношу в дерево все названия деталей

Это сообщение отредактировал(а) jorka - 4.10.2009, 19:10

Данкинг

Дата 4.10.2009, 19:16 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Главная проблема-то решена?

--------------------

There's nothing left but silent epitaphs.

jorka

Дата 4.10.2009, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 25.10.2008

Репутация: нет
Всего: нет

Цитата(Данкинг @ 4.10.2009, 19:16)

Главная проблема-то решена?

Да, правильный ответ звучи так:

Код


AdoQuery2.SQL.Text:='Select DetailName from DName where DetailType='+ IntToStr(AdoQuery1.FieldByName('key').asInteger) +' ';

Спасибо

Данкинг

Дата 4.10.2009, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Ну да, у меня последняя кавычка лишняя, и пробела в конце никакого тоже не нужно:

Код


AdoQuery2.SQL.Text:='Select DetailName from DName where DetailType='+ IntToStr(AdoQuery1.FieldByName('key').asInteger);

Если вопрос закрыт - отмечай тему решённой. smile

ЗЫ: а вообще зачем столько преобразований-то - вот так же проще:

Код


AdoQuery2.SQL.Text:='Select DetailName from DName where DetailType='+AdoQuery1.FieldByName('key').asString;

Это сообщение отредактировал(а) Данкинг - 4.10.2009, 19:52

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »