Вставка записи в таблицу БД через запрос

[Mrudda]

Доброго времени!
Задача: добавить запись.

Код:

procedure TForm3.Button2Click(Sender: TObject);
var max_ID:integer;
begin
   Table1.Active:=True;
   Form1.DataBase1.StartTransaction;
  try
    Query1.close;
    Query1.SQL.clear;
    Query1.SQL.ADD('Select Max(ID) as max_ID from opisanie_preparata');
    Query1.open;
    max_id:=Query1.fieldbyName('max_ID').asinteger+1;

    Query1.SQL.Add('INSERT INTO "opisanie_preparata" (ID,Nazvanie, Kategorya, Sostav, Srok_godnosty, Upakovka, Gotovim_v_apteke, Cena) ');
    Query1.SQL.Add('VALUES ('+max_ID+',"'+DBEdit1.Text+'", "'+DBEdit2.Text+'", "'+DBEdit3.Text+'", "'+DBEdit4.Text+'", "'+DBEdit5.Text+'", "'+DBEdit7.Text+'", "'+DBEdit6.Text+'")');
    Query1.ExecSQL;

    Form1.DataBase1.Commit;
  except
    Form1.DataBase1.RollBack;
    raise;
    Query1.Active:=true;
  end;

end;

Error:Incompatible types: 'String' and 'Integer' на
Query1.SQL.Add('VALUES ('+max_ID+',"'+DBEdit1.Text+'", "'+DBEdit2.Text+'", "'+DBEdit3.Text+'", "'+DBEdit4.Text+'", "'+DBEdit5.Text+'", "'+DBEdit7.Text+'", "'+DBEdit6.Text+'")');
Ее понимаю, почему.
Help, плз!

[Droid]

перепиши свой запрос по нажатию на кнопку на вот этот и будет все работать)

procedure TFD_SP.BitBtn1Click(Sender: TObject);
var
idss,i: integer;
begin
idss:=DBLCB1.KeyValue;
DM.ADOQ_SP.Close;
DM.ADOQ_SP.SQL.Clear;
DM.ADOQ_SP.SQL.Text:='INSERT INTO suicidalnaya_popitka (data_suicida, id_sposob_suicida,id_pacienta) VALUES (:ds,:idss,:idp);';
DM.ADOQ_SP.Parameters.ParamByName('ds').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
DM.ADOQ_SP.Parameters.ParamByName('idss').Value:=idss;
DM.ADOQ_SP.Parameters.ParamByName('idp').Value:=DM.ADOQ_PACid_pacienta.Value;
DM.ADOQ_SP.ExecSQL;
DM.ADOQ_SP.Close;
DM.ADOQ_SP.SQL.Clear;
DM.ADOQ_SP.SQL.Add('SELECT * FROM suicidalnaya_popitka sp LEFT OUTER JOIN pacient 
pt ON sp.id_pacienta=pt.id_pacienta INNER JOIN sposob_suicida ss ON ss.id_sposob_suicida=sp.id_sposob_suicida WHERE sp.id_pacienta=:idp');
DM.ADOQ_SP.Parameters.ParamByName('idp').Value:=DM.ADOQ_PACid_pacienta.Value;
DM.ADOQ_SP.Open;

[Mrudda]

))
Всё б хорошо, да нужно через Query(

[artemavd]

procedure TFD_SP.BitBtn1Click(Sender: TObject);
var
idss,i: integer;
begin
idss:=DBLCB1.KeyValue;
DM.Query1.Close;
DM.Query1.SQL.Clear;
DM.Query1.SQL.Text:='INSERT INTO suicidalnaya_popitka (data_suicida, id_sposob_suicida,id_pacienta) VALUES (:ds,:idss,:idp);';
DM.Query1.ParamByName('ds').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
DM.Query1.ParamByName('idss').Value:=idss;
DM.Query1.ParamByName('idp').Value:=DM.ADOQ_PACid_pacienta.Value;
DM.Query1.Open;
DM.Query1.Close;
DM.Query1.SQL.Clear;
DM.Query1.SQL.Add('SELECT * FROM suicidalnaya_popitka sp LEFT OUTER JOIN pacient 
pt ON sp.id_pacienta=pt.id_pacienta INNER JOIN sposob_suicida ss ON ss.id_sposob_suicida=sp.id_sposob_suicida WHERE sp.id_pacienta=:idp');
DM.Query1.ParamByName('idp').Value:=DM.ADOQ_PACid_pacienta.Value;
DM.Query1.Open;

[Serge_Bliznykov]

Артём, ну кто же добавление в таблицу делает через .Open ?! Только через ExecSQL и никак не иначе!!


2 Mrudda, если уж Вам жалко ещё один Query задействовать, то кто будет старый запрос закрывать и старый текст запроса получения максимального значения очищать?!!!!

попробуйте так:

  ....
  Query1.close;
  Query1.SQL.clear;
  Query1.SQL.ADD('Select Max(ID) as max_ID from opisanie_preparata');
  Query1.open;
  max_id := Query1.fieldbyName('max_ID').asinteger + 1;

  Query1.close;
  Query1.SQL.clear;

  Query1.SQL.Add('INSERT INTO "opisanie_preparata" (ID,Nazvanie, Kategorya, Sostav, Srok_godnosty, Upakovka, Gotovim_v_apteke, Cena) ');
  Query1.SQL.Add('VALUES (' + max_ID + ',"' + DBEdit1.Text + '", "' + DBEdit2.Text + '", "' + DBEdit3.Text + '", "' + DBEdit4.Text + '", "' + DBEdit5.Text + '", "' + DBEdit7.Text + '", "' + DBEdit6.Text + '")');
  Query1.ExecSQL;
  ....

p.s. содержимое команды Insert into я не анализировал. Да и вообще, лучше сделать через параметры (например, так, как в примере выше показал artemavd)

[artemavd]

Артём, ну кто же добавление в таблицу делает через .Open ?! Только через ExecSQL и никак не иначе!!

Сорри, Сергей, забыл про то, про что сам недавно говорил. .

P.S. Не Артём, а Артем

[soleil@mmc]

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

Error:Incompatible types: 'String' and 'Integer'

вернемся к тексту ошибки
если рассматривать такой способ формирования запроса на вставку записи, то просто нужно конвертнуть ваш новый айдишник в строчку

Query1.SQL.Add('VALUES (' + IntToStr(max_ID) + ',"' + DBEdit1.Text + '", "' + ...

ну и по параметризации уже раскрыли тему - будет проще работать и тебе и субд

а что за субд? а то такой (select max(ID)+1) способ получения нового значения ключевого поля в многопользовательской системе грозит серьезными проблемами - может есть возможность заюзать триггер/генератор для этого?!

[Mrudda]

Спасибо вам, огромное.
soleil@mmc, субд - Access((.
(Я понимаю, что это извращение, но не факт, что удастся переубедить человека, дающего такие задания.)