ADOQuery

@Lolka1996 · Регистрация: 27.05.2015

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

Делаю запрос на добавление данных в таблицу
вот код:

Delphi

begin
DataModule1.ADOQuery1.SQL.Clear;
DataModule1.ADOQuery1.SQL.Text := 'insert into Tovar (Tovar,ID_Tovara,Ed_Izm,Zena_za_Ed) Values (:Tovar,:ID,:Ed,:Zena)';
DataModule1.ADOQuery1.Parameters.ParamByName('Tovar').Value := edit1.Text;
DataModule1.ADOQuery1.Parameters.ParamByName('ID').Value := strtoint(edit2.Text);
case ComboBox1.ItemIndex of
  0:DataModule1.ADOQuery1.Parameters.ParamByName('Ed').Value :=ComboBox1.Items[0];
  1:DataModule1.ADOQuery1.Parameters.ParamByName('Ed').Value :=ComboBox1.Items[1];
  2:DataModule1.ADOQuery1.Parameters.ParamByName('Ed').Value :=ComboBox1.Items[2];
  3:DataModule1.ADOQuery1.Parameters.ParamByName('Ed').Value :=ComboBox1.Items[3];
end;
DataModule1.ADOQuery1.Parameters.ParamByName('Zena').Value := strtoint(edit3.Text);
DataModule1.ADOQuery1.ExecSQL;
end;

Но при попытке добавить вылетает такая ошибка

Хотя все связи с таблицами проверил индекс не ключевых полей убрал и все равно сохраняется ошибка. Хотя все вводимые данные различны. Как исправить?

@qwertehok · 26.10.2015, 17:07

выведи запрос

Delphi

1	showmessage(ADOQuery1.SQL.Text)

и смотри что в нем не так

@Vabos · 26.10.2015, 17:08

Id_Tovara должно быть ключевым полем, а не Tovar. Значение ключевого поля в запрос передавать не нужно - сервер сам поставит туда нужное значение.

@Lolka1996 · 26.10.2015, 17:33 **[ТС]**

Я нашел ошибку. Он мне автоматически пытался заполнить название товара. А после смены ключа он стал нормально добавлять. НО он все равно заполняет автоматом Название

. Бред

@qwertehok · 26.10.2015, 17:45

ужасный интерфейс

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

НО он все равно заполняет

это же ваша программа, она сама НИЧЕГО не делает

@Lolka1996 · 26.10.2015, 18:00 **[ТС]**

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

ужасный интерфейс

это же ваша программа, она сама НИЧЕГО не делает

1 версия. Все будет переделываться. Но все же идет почему то авто заполнение поля независимо какое имя я введу

Delphi

1	DataModule1.ADOQuery1.Parameters.ParamByName('Tovar').Value := edit1.Text;

@Vabos 132 / 129 / 31 Регистрация: 12.12.2011 Сообщений: 462
	26.10.2015, 17:08	3
	Id_Tovara должно быть ключевым полем, а не Tovar. Значение ключевого поля в запрос передавать не нужно - сервер сам поставит туда нужное значение. 0

@Lolka1996 2 / 2 / 1 Регистрация: 27.05.2015 Сообщений: 78
	26.10.2015, 17:33 [ТС]	4
	Я нашел ошибку. Он мне автоматически пытался заполнить название товара. А после смены ключа он стал нормально добавлять. НО он все равно заполняет автоматом Название . Бред 0

@qwertehok 5489 / 4404 / 1076 Регистрация: 29.08.2013 Сообщений: 27,597 Записей в блоге: 3
	26.10.2015, 17:45	5
	ужасный интерфейс Сообщение от Lolka1996 НО он все равно заполняет это же ваша программа, она сама НИЧЕГО не делает 0

	26.10.2015, 18:00