ADOQuery: ввод переменой с клавиатуры в sql запрос

@mrPropre · Регистрация: 19.12.2013

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

Доброго времени суток. По задумке пользователь программы должен ввести в Edit процент на который будут изменены все значения в столбце DBGrid'а (и соответственно в таблице базы данных). Все работает при фиксированном значении (20/100 например), но когда пытаюсь вставить в SQL запрос свою переменную ошибка на ошибке. Пытался объявлять переменную вне запроса, но постоянно выводилась "Ошибка синтаксиса".
За ранние спасибо за любую помощь.
P.S. С компонентами ADO работаю всего несколько дней, в связи с чем прошу снисхождения.

@Valenth · 19.12.2013, 18:15

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

"Ошибка синтаксиса".

Значит ошибка в синтаксисе. Выложите запрос в виде строки и в том виде, где Вы уже переменные вставляете.

А пока что попробую вангануть - проблема может быть в разделителе дробной части.

@mrPropre · 19.12.2013, 19:09 **[ТС]**

Да по большему счету показывать не чего.

SQL
1
   UPDATE материалы SET материалы.[нормативы запасов] = [нормативы запасов]+(10);

Здесь вместо "10" нужно вводимое с Edit'a число. Я не вполне уверен, что это вообще возможно. Поэтому для объявления переменной перебирал все подряд, что находил на форумах. Начинаю думать, что копаю не в том направлении.

@Valenth · 19.12.2013, 19:47

Delphi
1
sql := 'UPDATE материалы SET [нормативы запасов] = [нормативы запасов]*('+FloatToStr(1 + (StrToFloat(Edit1.Text)/100) )+')';

Мейби типа такого?

@mrPropre · 19.12.2013, 21:15 **[ТС]**

Компилятор ругается на несовместимость типов: Incompatible types: 'TStrings' and 'String'.
Вот текст всей кнопки:

Delphi
1
2
3
4
5
6
7
procedure TForm2.BitBtn10Click(Sender: TObject);
begin
ADOQuery3.SQL:='UPDATE ìàòåðèàëû SET [íîðìàòèâû çàïàñîâ] = [íîðìàòèâû çàïàñîâ]*('+FloatToStr(1 + (StrToFloat(Edit1.Text)/100) )+')';
ADOQuery3.Open;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
end;

ADOQuery1 здесь обновляют результаты DBGrid'e.

@Valenth · 19.12.2013, 22:18

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

ADOQuery3.SQL:='UPDATE материалы SET [нормативы запасов] = [нормативы запасов]*('+FloatToStr(1 + (StrToFloat(Edit1.Text)/100) )+')';

Потому что ADOQuery3.SQL имеет тип TStringList. Сделайте так:

Delphi
1
2
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('UPDATE материалы SET [нормативы запасов] = [нормативы запасов]*('+FloatToStr(1 + (StrToFloat(Edit1.Text)/100) )+')');

Скандербег · 19.12.2013, 22:32

И еще: модифицирующие запросы (а UPDATE к ним относится) выполняются методом ExecSQL, а не Open.
ADOQuery3.ExecSQL;

@Алекcей · 19.12.2013, 22:49

попробуйте так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm2.BitBtn10Click(Sender: TObject);
var c: Currency;
begin
 if not TryStrToCurr(Edit1.Text, c) then Exit; 
 with ADOQuery3 do begin
  SQL.Text:='UPDATE материалы SET [нормативы запасов] = [нормативы запасов]*:P1;';
  Parameters[0].Value:=1+c/100;
  ExecSQL;
  ADOQuery1.Close;
  ADOQuery1.Open;
 end;
end;

@mrPropre · 19.12.2013, 22:51 **[ТС]**

Спасибо. Теперь компилируется, но при нажатии кнопки возникает "Ошибка синтаксиса (запятая) в выражении запроса [нормативы запасов]*1,03". Если убрать деление на сто, то так же возникает ошибка, но уже с текстом:"Текущий поставщик не поддерживает возврат нескольких наборов записей в результате одной операции".

@Алекcей · 19.12.2013, 22:54

а выведите текст запроса в ShowMessage, сделайте скриншот и покажите что там в тексте SQL запроса. не надо выводить текст запроса.

@mrPropre · 19.12.2013, 23:00 **[ТС]**

Алексей, большое вам спасибо. Ваш код отлично работает. И спасибо всем откликнулся.

@Алекcей · 19.12.2013, 23:01

хорошо, что все заработало.

@mrPropre · 19.12.2013, 23:04 **[ТС]**

Алексей, спасибо вам большое. Ваш код отлично работает. И спасибо всем кто откликнулся.

@Sem_S_Sem · 23.12.2013, 15:59

приветствую Всех Форумчан.. Вопрос состоит в следующем.. Есть база данных по ноутбукам (модели) , На форме размещаю компонент Edit1 и кнопку.. Хочу сделать так чтобы при вводе в поле edit только части имени ноутбука, к примеру (ASUS)? в SQL запросе . В таблице отображались только ноутбуки с именем ASUS. Использую компоненты ADO. ADOQuery... когда прописываю в ручную sql запрос все работает, через поле edit выдает ошибку...

@Waddonator · 23.12.2013, 16:14

Sem_S_Sem, используйте фильтрацию, т.к. весь набор данных уже получен с сервера. Пример - Фильтрация Записей Таблиц Базы Данных В Приложении На Делфи

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@mrPropre 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 10

	ADOQuery: ввод переменой с клавиатуры в sql запрос 19.12.2013, 16:32. Показов 3932. Ответов 14 Метки нет (Все метки) Доброго времени суток. По задумке пользователь программы должен ввести в Edit процент на который будут изменены все значения в столбце DBGrid'а (и соответственно в таблице базы данных). Все работает при фиксированном значении (20/100 например), но когда пытаюсь вставить в SQL запрос свою переменную ошибка на ошибке. Пытался объявлять переменную вне запроса, но постоянно выводилась "Ошибка синтаксиса". За ранние спасибо за любую помощь. P.S. С компонентами ADO работаю всего несколько дней, в связи с чем прошу снисхождения. 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	19.12.2013, 22:32
	И еще: модифицирующие запросы (а UPDATE к ним относится) выполняются методом ExecSQL, а не Open. ADOQuery3.ExecSQL; 1

@mrPropre 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 10
	19.12.2013, 22:51 [ТС]
	Спасибо. Теперь компилируется, но при нажатии кнопки возникает "Ошибка синтаксиса (запятая) в выражении запроса [нормативы запасов]*1,03". Если убрать деление на сто, то так же возникает ошибка, но уже с текстом:"Текущий поставщик не поддерживает возврат нескольких наборов записей в результате одной операции". 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,505
	19.12.2013, 22:54
	а выведите текст запроса в ShowMessage, сделайте скриншот и покажите что там в тексте SQL запроса. не надо выводить текст запроса. 1

@mrPropre 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 10
	19.12.2013, 23:00 [ТС]
	Алексей, большое вам спасибо. Ваш код отлично работает. И спасибо всем откликнулся. 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,505
	19.12.2013, 23:01
	хорошо, что все заработало. 0

@mrPropre 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 10
	19.12.2013, 23:04 [ТС]
	Алексей, спасибо вам большое. Ваш код отлично работает. И спасибо всем кто откликнулся. 0

@Sem_S_Sem 0 / 0 / 0 Регистрация: 22.12.2013 Сообщений: 5
	23.12.2013, 15:59
	приветствую Всех Форумчан.. Вопрос состоит в следующем.. Есть база данных по ноутбукам (модели) , На форме размещаю компонент Edit1 и кнопку.. Хочу сделать так чтобы при вводе в поле edit только части имени ноутбука, к примеру (ASUS)? в SQL запросе . В таблице отображались только ноутбуки с именем ASUS. Использую компоненты ADO. ADOQuery... когда прописываю в ручную sql запрос все работает, через поле edit выдает ошибку... 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	23.12.2013, 16:14
	Sem_S_Sem, используйте фильтрацию, т.к. весь набор данных уже получен с сервера. Пример - Фильтрация Записей Таблиц Базы Данных В Приложении На Делфи 0