Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Составить запрос Access+Delphi, Помочь составить запрос 
V
    Опции темы
JamesQ
Дата 6.8.2010, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
есть три объекта TEdit, знаем ID записи (таблице в Access), в записи есть ID и 3 поля, нужно по запросу из этих 3-х полей, поместить данные в TEdit'ы. данные текстовые. помогите составить такой запрос с присвоением, если не в TEdit, то хотя бы в какие-нибудь переменные. спс 
PM MAIL   Вверх
Данкинг
Дата 6.8.2010, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

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

AdoQuery.Sql.Add('select pole1,pole2,pole3 from TABLE');
AdoQuery.Open;
Edit1.Text:=AdoQuery.FieldValues['pole1'];
Edit2.Text:=AdoQuery.FieldValues['pole2'];
Edit3.Text:=AdoQuery.FieldValues['pole3'];



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Frees
Дата 6.8.2010, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
немного добавлю
Код

AdoQuery.Sql.Add('select pole1,pole2,pole3 from TABLE where id = :id');
AdoQuery.paramByName('id').Value := <значение id>;
AdoQuery.Open;
Edit1.Text:=AdoQuery.FieldValues['pole1'];
Edit2.Text:=AdoQuery.FieldValues['pole2'];
Edit3.Text:=AdoQuery.FieldValues['pole3'];


можно еще TDBEdit использовать


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
JamesQ
Дата 7.8.2010, 06:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

with Form2.ADOQuery1 do
  begin
    Active:=False;
    SQL.Clear;
    SQL.Text:='SELECT Груз FROM train where Номер=:par1';
    Parameters.ParamByName('par1').Value:=i;
    ExecSQL;
    Form1.LOAD.Text:=Form2.AdoQuery1.FieldValues['Груз'];
  end;


Выдает ошибку 'ADOQuery1: Field 'Груз' not found'
PM MAIL   Вверх
Vas
Дата 7.8.2010, 08:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28
Внимательнее смотри что тебе Данкинг и Frees писали
AdoQuery.Open;, а ты что пишешь  ExecSQL, вопрос нафига здесь ExecSQL???


--------------------
И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)
PM MAIL   Вверх
JamesQ
Дата 7.8.2010, 10:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Данкинг, Frees, Vas большое спасибо парни заработало.  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

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

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0719 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.