добавление записи через adoquery

[kolyan2288]

Привет я новичек в разработки приложении по запросам в adoquery, можно сказать только начинаю до этого работал в adotable, как пересел на скл стало очень много вопросов, первая проблема - добавление новой записи в таблицу продукт (выдает много ошибок и добавляет две одинаковых записей)


код кнопки

 procedure TForm1.Button1Click(Sender: TObject);
begin
   DataModule2.ADOQueryProduct.Close;
   DataModule2.ADOQueryProduct.Parameters.ParamByName('ID').Value:=Form1.Edit2.Text;
   DataModule2.ADOQueryProduct.Parameters.ParamByName('PRODUCT_NAME').Value:=Form1.Edit3.Text;
   DataModule2.ADOQueryProduct.Parameters.ParamByName('DRAWING').Value:=Form1.Edit4.Text;
   try
   DataModule2.ADOQueryProduct.ExecSQL;       //выполняем запрос методом  ExecSQL
   except
    ShowMessage('Ошибка при добалении данных!,'+#13+'Попробуйте еще раз!');
    Exit;
   end;
   //обновляем набор данных
   DataModule2.ADOQueryProduct.Close;
   DataModule2.ADOQueryProduct.open;
end;

описание скл в квери

INSERT INTO product (id, product_name, drawing) VALUES  (:id, :product_name, :drawing);

ошибки



после нажатии продолжить



подскажите что я делаю не так буду очень благодарен

[Serge_Bliznykov]

английский рекомендую хоть немножечко, но подучить..

ошибка в том, что Вы пытаетесь ОТКРЫТЬ датасет, а вместо открытия у Вас команда на изменение данных. Она не возвращает набор данных (о чём и написано в тексте ошибки).

запомните, когда в запросе есть SELECT, тогда делаете датасету.Open
если же (как в вашем случае) нужно выполнить команду, тогда (вместо DataModule2.ADOQueryProduct.open):

   DataModule2.ADOQueryProduct.ExecSQL;

[Yurk@]

абсолютно согласен с Serge. немного "проилюстрирую" написанное выше:

 procedure TForm1.Button1Click(Sender: TObject);
begin
   DataModule2.ADOQueryProduct.Close;
   DataModule2.ADOQueryProduct.SQL.Text := 'INSERT INTO product (id, product_name, drawing) VALUES  (:id, :product_name, :drawing)';
   DataModule2.ADOQueryProduct.Parameters.ParamByName('ID').Value:=Form1.Edit2.Text;
   DataModule2.ADOQueryProduct.Parameters.ParamByName('PRODUCT_NAME').Value:=Form1.Edit3.Text;
   DataModule2.ADOQueryProduct.Parameters.ParamByName('DRAWING').Value:=Form1.Edit4.Text;
   try
   DataModule2.ADOQueryProduct.ExecSQL;       //выполняем запрос методом  ExecSQL
   except
    ShowMessage('Ошибка при добалении данных!,'+#13+'Попробуйте еще раз!');
    Exit;
   end;
   //обновляем набор данных
   DataModule2.ADOQueryProduct.Close;
   DataModule2.ADOQueryProduct.SQL.Text := 'SELECT * FROM product';
   DataModule2.ADOQueryProduct.Open;
end;

а еще поле ID лучше исключить из запроса и сделать его автоинкрементным и уникальным (во избежание будущим проблем)