Ошибка при вставке записи

[Ericnex]

При вставке записи из Edit в БД выдает ошибку изображенную на картинке.
Ругается на несовместимость типов.

DM.Query2.DisableControls;
DM.Query2.SQL.Clear;
DM.Query2.SQL.Add('insert into NoteBook (Nomer_m, Pr_proc, Model_proc, Takt_proc, Oper_pam, HDD, Videokard_pr, Videopamiat, Diagonal, Type_privod, Ves, Price, Id_pr)'+'values(:Nomer_m, :Pr_proc, :Model_proc, :Takt_proc, :Oper_pam, :HDD, :Videokard_pr, :Videopamiat, :Diagonal, :Type_privod, :Ves, :Price, :Id_pr)');
DM.Query2.ParamByName('Id_pr').AsInteger:=DM.Query1.FieldByName('Id_pr').AsInteger;
DM.Query2.ParamByName('Nomer_m').AsString:=Edit2.Text;
DM.Query2.ParamByName('Pr_proc').AsString:=ComboBox1.Text;
DM.Query2.ParamByName('Model_proc').AsString:=Edit3.Text;
DM.Query2.ParamByName('Takt_proc').AsInteger:=strtoint(Edit4.Text);
DM.Query2.ParamByName('Oper_pam').AsInteger:=strtoint(Edit5.Text);
DM.Query2.ParamByName('HDD').AsInteger:=strtoint(Edit6.Text);
DM.Query2.ParamByName('Videokard_pr').AsString:=ComboBox2.Text;
DM.Query2.ParamByName('Videopamiat').AsInteger:=strtoint(Edit7.Text);
DM.Query2.ParamByName('Diagonal').AsInteger:=strtoint(Edit8.Text);
DM.Query2.ParamByName('Type_privod').AsString:=ComboBox3.Text;
DM.Query2.ParamByName('Ves').AsInteger:=strtoint(Edit9.Text);
DM.Query2.ParamByName('Price').AsInteger:=strtoint(Edit10.Text);
DM.Query2.ExecSQL;
DM.Query2.Close;
DM.Query2.SQL.Clear;
DM.Query2.SQL.Text:='Select * from NoteBook where Id_pr=:Id_pr';
DM.Query2.Open;
DM.Query2.EnableControls

[Yurk@]

хм ..а файл БД мы должны сами создавать?

UPD:
а вообще можно попробовать так:

DM.Query2.ParamByName('Id_pr').Value:=DM.Query1.FieldByName('Id_pr').Value;
DM.Query2.ParamByName('Nomer_m').Value:=Edit2.Text;
DM.Query2.ParamByName('Pr_proc').Value:=ComboBox1.Text;
DM.Query2.ParamByName('Model_proc').Value:=Edit3.Text;
DM.Query2.ParamByName('Takt_proc').Value:=Edit4.Text;
DM.Query2.ParamByName('Oper_pam').Value:=Edit5.Text;
DM.Query2.ParamByName('HDD').Value:=Edit6.Text;
DM.Query2.ParamByName('Videokard_pr').Value:=ComboBox2.Text;
DM.Query2.ParamByName('Videopamiat').Value:=Edit7.Text;
DM.Query2.ParamByName('Diagonal').Value:=Edit8.Text;
DM.Query2.ParamByName('Type_privod' ).Value:=ComboBox3.Text;
DM.Query2.ParamByName('Ves').Value:=Edit9.Text;
DM.Query2.ParamByName('Price').Value:=Edit10.Text;

[Usov]

Не уверн, так как не знаю как работатет метод ParamByName, может нужно стринговые значение экранировать символом '?

[Sciv]

А базу данных к проекту чего не приложили?

[Аватар]

Точно ошибка на вставке? Ошибку на Open даст наверняка поскольку значение параметра не определено

[Ericnex]

Что нужно исправить в коде?

[artemavd]

QuotedStr(Edit1.Text);

[Serge_Bliznykov]

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

QuotedStr(Edit1.Text);

artemavd, не узнаю Вас!

Это же неверно! Нет смысла экранировать строки, если строчные значения передаются в запрос в качестве параметров (.ParamByName(...) := Строка )!
Это не только излишне, это приведёт к тому, что в БД будут записывать кавычки в начале и конце строки, там, где их нет и не должно быть!

[Ericnex]

Приложу БД в ответ.
Пока что менял значения на Value. Ничего не изменилось

[Прик]

Причина ошибка проста как пень: у автора в БД идентификатор производителя "автоинкрементное" длиной 4 b. Он эти 4 байта пытается присвоить полю длина которого 2 b (проверено).
Решения: либо менять тип этого поля на LONG, либо преобразовать к байту -

  DM.Query2.ParamByName('Id_pr').Value := Byte(DM.Query1.FieldValues['Id_pr']);
//и в этих случаях тоже
  DM.Query2.ParamByName('Oper_pam').Value := Byte(StrToInt(Edit5.Text));

Короче, для всех полей типа SHORT надо делать преобразование (либо менять их на достойные типы).
Если не менять типы, а заниматься ерундой типа показанного преобразования, то в последнем случае (StrToInt) надо бы учинить проверку на корректность введенного числа, но это уже совсем другая история.

P.S. Разработчик баз данных, не занимайся садомазохизмом, не применяй устаревшие десктопные СУБД.