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

[alexey9999]

не работает кнопка добавления записи в бд вот код

procedure TFormMain.SpeedButton7Click(Sender: TObject);
begin
      DM.QGuitar_Prodaja.Insert;
      DM.QGuitar_Prodaja_Add.Parameters.ParamByName('Pokupatel').Value:=DBEdit5.Text;
      DM.QGuitar_Prodaja_Add.Parameters.ParamByName('Data').Value:=DBEdit8.Text;
      DM.QGuitar_Prodaja_Add.Parameters.ParamByName('Pokupatel').Value:=DBEdit15.Text;
      DM.QGuitar_Prodaja_Add.Parameters.ParamByName('Model_ID').Value:=DM.QGuitar_ModelID_Model.AsInteger;
      DM.QGuitar_Prodaja_Add.Parameters.ParamByName('Prodavec_ID').Value:=DM.QProdavecID_Prodavec.AsInteger;
        try
          DM.QGuitar_Prodaja.ExecSQL;
            except
              ShowMessage('Error! Prodaja Add!');
              Exit;
            end;
          DM.QGuitar_Prodaja_Add.Close;
          DM.QGuitar_Prodaja_Add.Open;
          DM.QGuitar_Prodaja_Add.Last;
          DBEdit5.Clear;
          DBEdit8.Clear;
          DBEdit15.Clear;



end;

ошибка: "Текущий поставщик не поддерживает возврат нескольких наборов записей в результате выполнения одной операции"

[xxbesoxx]

Здесь ваши тема да ? http://www.cyberforum.ru/delphi-data...ad1297070.html
1) QGuitar_Prodaja_Add запрос на INSERT с ошибками писал и за это !
вот это ?

insert into Guitar_Prodaja(Prodavec,Pokupatel,Data,Model_Guitar,Cena)
values(:Prodavec; :Pokupatel;:Data;:Model_Guitar;:Cena)

2) У DBEdit есть свойства DataSource и DataField вам лучше пользоватся Edit
3) ('Data').Value:=DBEdit8.Text; Дата добавляйте через DateTimePicker.Date ;
4) DM.QGuitar_Model и DM.QProdavec в момент INSERT не открывается! запрос с ошибками написано
Конструкция try , except так работает

try
    Делаем что-нибудь...
except
    Обработка исключения.
finally
    Завершающие действия (освобождение памяти).
end;

5) Почему ADOConnection 2 штук А что 1 не хватает ?
и самое удивительно что у вас вес проекте ошибка .... вы писали с ошибками " Увидели что не работал " его не исправили оставили так и продолжали дальше .
Исправит ваши проект проще "написать с нуля" ... так что берите учебники и хотя бы полистайте ...

[Stilet]

alexey9999

Хотел написать тут целое сочинение, но ограничусь вопросом: Что этот "код" вообще должен делать то?