SQL Запрос результате получить Edit

@xxbesoxx · Регистрация: 13.02.2009

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

Добрый день ребята, нужно ваши помощь !

Ест база Access подключение на Delphi Form1 при помощи ADOConnection1, ADOTable1, DataSource1, DBGrid1 . в таблица есть 3 поля

ID. Код. Должности
------------------------
1 FR6 водитель
2 PG7 ПОВАР
3 AD5 АДМИНИСТРАТОР

на форму кидаю Edit1 и Edit2 мне надо что через Edit1 писать SQL запрс на пример если на Edit1 набрали текст FR6 что Edit2 показал водитель, если
PG7 то показал ПОВАР . пишу так и не магу до конца дописать

form1.FindQuery.Active :=False;
form1.FindQuery.SQL.Clear;
form1.FindQuery.SQL.Add('SELECT*');
form1.FindQuery.SQL.Add('FROM test1');
FIndQuery.SQL.Add('WHERE Код LIKE '''+Edit1.Text+'''');
как продолжат что Edit2 показал из поля Должности ?

@zremas · 09.02.2012, 04:37

бросить на форму ADOCommand

Delphi
1
2
3
4
5
6
7
 with adcMyCommand do
   begin
     CommandText :=   'тут формировать строку запроса ';
     Prepared := True;
    //    Execute; // - заблокировано для отладки  
      memo1.Lines.Add(CommandText);  // - тут ее отлаживать, прежде чем запускать 
  end;

копировать из memo1 то, что получается, и проверять на стороне сервера или аксеса

@xxbesoxx · 09.02.2012, 04:50 **[ТС]**

Сообщение от zremas

бросить на форму ADOCommand

Delphi
1
2
3
4
5
6
7
 with adcMyCommand do
   begin
     CommandText :=   'тут формировать строку запроса ';
     Prepared := True;
    //    Execute; // - заблокировано для отладки  
      memo1.Lines.Add(CommandText);  // - тут ее отлаживать, прежде чем запускать 
  end;

копировать из memo1 то, что получается, и проверять на стороне сервера или аксеса

Наверно я плохо объяснил щас покажу пример как вы говорите думаю что так не получится

@xxbesoxx · 09.02.2012, 04:59 **[ТС]**

Сообщение от zremas

бросить на форму ADOCommand

Delphi
1
2
3
4
5
6
7
 with adcMyCommand do
   begin
     CommandText :=   'тут формировать строку запроса ';
     Prepared := True;
    //    Execute; // - заблокировано для отладки  
      memo1.Lines.Add(CommandText);  // - тут ее отлаживать, прежде чем запускать 
  end;

копировать из memo1 то, что получается, и проверять на стороне сервера или аксеса

Смотри как выговорите так не пойдет

@zremas · 09.02.2012, 06:10

посмотрим!

Добавлено через 43 минуты
пропиши:

Delphi
1
2
3
4
5
procedure TForm1.Edit1Change(Sender: TObject);
begin
     If AdoTable1.Lookup('Code',Edit1.Text,'Position') <> NULL
       then Edit2.Text:=AdoTable1.FieldValues['Position'];
end;

имена полей не рекомендую на русском создавать.

P.S. А это что мода такая пошла писать апсалютна бизграматна па-рюски?

@xxbesoxx · 10.02.2012, 11:31 **[ТС]**

Спасибо работает, можно тема уже закрыть

Добавлено через 16 часов 22 минуты

Сообщение от zremas

посмотрим!

Добавлено через 43 минуты
пропиши:

Delphi
1
2
3
4
5
procedure TForm1.Edit1Change(Sender: TObject);
begin
     If AdoTable1.Lookup('Code',Edit1.Text,'Position') <> NULL
       then Edit2.Text:=AdoTable1.FieldValues['Position'];
end;

имена полей не рекомендую на русском создавать.

P.S. А это что мода такая пошла писать апсалютна бизграматна па-рюски?

сегодня тестировал и не работает видираеть только первы стройку на все коду. темя еще актуальное помогите пожалуйста

Добавлено через 1 минуту

Сообщение от zremas

посмотрим!

Добавлено через 43 минуты
пропиши:

Delphi
1
2
3
4
5
procedure TForm1.Edit1Change(Sender: TObject);
begin
     If AdoTable1.Lookup('Code',Edit1.Text,'Position') <> NULL
       then Edit2.Text:=AdoTable1.FieldValues['Position'];
end;

имена полей не рекомендую на русском создавать.

P.S. А это что мода такая пошла писать апсалютна бизграматна па-рюски?

сегодня тестировал и не работает видираеть только первы стройку на все коду. темя еще актуальное помогите пожалуйста

Добавлено через 8 часов 29 минут

Сообщение от zremas

посмотрим!

Добавлено через 43 минуты
пропиши:

Delphi
1
2
3
4
5
procedure TForm1.Edit1Change(Sender: TObject);
begin
     If AdoTable1.Lookup('Code',Edit1.Text,'Position') <> NULL
       then Edit2.Text:=AdoTable1.FieldValues['Position'];
end;

имена полей не рекомендую на русском создавать.

P.S. А это что мода такая пошла писать апсалютна бизграматна па-рюски?

Не работает нормально на все коде показывает только нервы стройку

@zremas · 10.02.2012, 12:03

сорри, вот уточнение

Delphi
1
2
3
     If AdoTable1.Lookup('Code',Edit1.Text,'Position') <> NULL
//       then Edit2.Text:=AdoTable1.FieldValues['Position'];   // тут я немного оплошал
         then Edit2.Text:=AdoTable1.Lookup('Code',Edit1.Text,'Position');

@xxbesoxx · 10.02.2012, 17:35 **[ТС]**

Сообщение от zremas

сорри, вот уточнение

Delphi
1
2
3
     If AdoTable1.Lookup('Code',Edit1.Text,'Position') <> NULL
//       then Edit2.Text:=AdoTable1.FieldValues['Position'];   // тут я немного оплошал
         then Edit2.Text:=AdoTable1.Lookup('Code',Edit1.Text,'Position');

-------------------------------------------------------------------------------------------
procedure TForm2.Edit3Change(Sender: TObject);
begin
If form1.AdoTable1.Lookup('Код',Edit3.Text, 'Должност') <> NULL
then Edit4.Text:=Form1.AdoTable1.Lookup('Код' ,Edit3.Text,'Должност');
end;

end.
огромное вам спасибо

Добавлено через 1 минуту
Можно тема закрыт ... СПАСИБО ВАМ zremas

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	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 Использованы. . .

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,600

	SQL Запрос результате получить Edit 09.02.2012, 04:01. Показов 1894. Ответов 7 Метки нет (Все метки) Добрый день ребята, нужно ваши помощь ! Ест база Access подключение на Delphi Form1 при помощи ADOConnection1, ADOTable1, DataSource1, DBGrid1 . в таблица есть 3 поля ID. Код. Должности ------------------------ 1 FR6 водитель 2 PG7 ПОВАР 3 AD5 АДМИНИСТРАТОР на форму кидаю Edit1 и Edit2 мне надо что через Edit1 писать SQL запрс на пример если на Edit1 набрали текст FR6 что Edit2 показал водитель, если PG7 то показал ПОВАР . пишу так и не магу до конца дописать form1.FindQuery.Active :=False; form1.FindQuery.SQL.Clear; form1.FindQuery.SQL.Add('SELECT*'); form1.FindQuery.SQL.Add('FROM test1'); FIndQuery.SQL.Add('WHERE Код LIKE '''+Edit1.Text+''''); как продолжат что Edit2 показал из поля Должности ? 0