Запрос на обновление не пашет

@sanadog · Регистрация: 02.02.2012

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

Всем доброго времени суток. У меня такая ситуация: нужно чтоб после нажатия кнопки в нужный столбец
добавлялась запись с edit.text. Запрос вроде бы простой, выводит ошибку is not a valid integer value. с типом параметров вроде тоже все в порядке

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm2.Button1Click(Sender: TObject);
begin
  try
ADOQuery1.Active:=False;
ADOQuery1.Close;
adoquery1.sql.text:='update klass set h=:h1 where number=:num';
adoquery1.Parameters.ParamByName('h1').value:=StrToInt(Edit1.Text);
adoquery1.Parameters.ParamByName('num').value:=StrToInt(DBEdit5.Text);
adoquery1.execSQL;
ADOQuery1.Active:=True;
except
  ShowMessage('ddd');
end;
end;

@Джуниор · 02.02.2012, 15:04

Вероятно ошибка возникает в момент

Delphi
1
adoquery1.Parameters.ParamByName('h1').value:=StrToInt(Edit1.Text);

Функция StrToint не может произвольную строку привести к целочисленному типу. Нужно чтобы строка в Edit1 была непрерывной последовательностью цифр.

@MsGuns · 02.02.2012, 17:40

У Вас главная ошибка в том, что Вы для чтения и изменения используете один и тот же компонент. Это вообще-то можно делать, но перед повторной читкой надо восстанавливать в св-ве SQL "читающий" запрос.
Вот пример грамотного кода:

На форме TADOQuery (в гриде) и TADOCommand

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm2.Button1Click(Sender: TObject);
begin
  with ADOCommand1 do
  try
    CommandText := 'update klass set h=:h1 where number=:num';
    Parameters.ParamByName('h1').value:=StrToInt(Edit1.Text);
    Parameters.ParamByName('num').value:=StrToInt(DBEdit5.Text);
    Execute;    
    ADOQuery1.Requery;
    ADOQuery1.Locate('num',DBEdit5.Text,[]);
  except
    ShowMessage('ddd');
  end;
end;

@sanadog · 03.02.2012, 08:34 **[ТС]**

Сдлал, как посоветовали. Вроде работает, запись добавляет, но выводит все равно ошибку
ADOQuery1: Field 'num' not found

Добавлено через 1 час 26 минут
Исправил. Сейчас добавил ADOquery1.next и после каждого нажатия курсор должен передвигаться на следующую запись. А у меня почему то только до второй записи доходит и все(( потом ее только обновляет. В чем дело подскажите...

@MsGuns · 03.02.2012, 12:13

Delphi
1
В чем дело подскажите...

Сложно делать операцию на расстоянии и без инструментов.
ГДЕ КОД С ОШИБКОЙ ?

@perepe4a · 05.02.2012, 20:05

Господи освободи мир от таких говно программистов:-)

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

Delphi
1
В чем дело подскажите...

Сложно делать операцию на расстоянии и без инструментов.
ГДЕ КОД С ОШИБКОЙ ?

AdoQuery.execSql and AdoQuery.active:=true.
Ошибка из за этого.
Читайте литературу

@MsGuns · 06.02.2012, 10:49

Delphi
1
ADOQuery1.Locate('number',DBEdit5.Text,[]);

А проверить код самому слабо было ?
Это же просто описка

Добавлено через 56 секунд
perepe4a
Иногда лучше жевать

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника Номенклатура по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника Сотрудники по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@sanadog 1 / 1 / 0 Регистрация: 02.02.2012 Сообщений: 14
	03.02.2012, 08:34 [ТС]
	Сдлал, как посоветовали. Вроде работает, запись добавляет, но выводит все равно ошибку ADOQuery1: Field 'num' not found Добавлено через 1 час 26 минут Исправил. Сейчас добавил ADOquery1.next и после каждого нажатия курсор должен передвигаться на следующую запись. А у меня почему то только до второй записи доходит и все(( потом ее только обновляет. В чем дело подскажите... 0