добавление записи в БД

[kuzmich]

переделал немного код

 DataModule1.Query8.Close;
 DataModule1.query8.sql.Clear;
 DataModule1.query8.sql.Add ('insert into sklad_obuv.db (id, sezon, nomer, opisanie, firm, cena1, datapr)');
 DataModule1.query8.sql.Add ('values ("'+edit1.text+ '", "'+combobox1.text+ '","'+edit3.Text+ '","'+edit4.Text+ '"," ' +combobox2.Text+ '","'+edit5.Text+ '","'+edit6.Text+ '")');
 datamodule1.query8.execsql;

 datamodule1.query1.close; // опять тут ошибка
 datamodule1.query1.sql.clear;
 datamodule1.query1.sql.add('select * from sklad_obuv.db');
 datamodule1.query1.open;

и теперь такую ошибку выдает:

[Аватар]

А так

  DataModule1.query8.SQL.Add('insert into sklad_obuv.db (id,sezon,nomer,opisanie,firm,cena1,datapr)');
  DataModule1.query8.SQL.Add('values ('+Edit1.Text+','+QuotedStr(ComboBox1.Text)+','+Edit3.Text+','+QuotedStr(Edit4.Text)+','+QuotedStr(ComboBox2.Text)+','+Edit5.Text+','+Edit6.Text+')');

А еще лучше

  DataModule1.query8.SQL.Text='insert into sklad_obuv.db (id,sezon,nomer,opisanie,firm,cena1,datapr) values (:id,:sezon,:nomer,:opisanie,:firm,:cena1,:datapr)';
  DataModule1.query8.ParamByName('id').AsInteger:=StrToInt(Edit1.Text);
  DataModule1.query8.ParamByName('sezon').AsString:=ComboBox1.Text;
  DataModule1.query8.ParamByName('nomer').AsInteger:=StrToInt(Edit3.Text);
  DataModule1.query8.ParamByName('opisanie').AsString:=Edit4.Text;
  DataModule1.query8.ParamByName('firm').AsString:=ComboBox2.Text;
  DataModule1.query8.ParamByName('cena1').AsInteger:=StrToInt(Edit5.Text);
  DataModule1.query8.ParamByName('datapr').AsInteger:=StrToInt(Edit5.Text);