Добавление/Изменение данных в БД

[Tony Hudson]

Добрый вечер. Не подскажите как исправить ошибку?

procedure TForm1.Button3Click(Sender: TObject);
var
 avtor,nazvanie_statyi,kluchivie_slova ,kratkoe_soderganie:string; nomer_kategory:integer;
 begin
 avtor:=quotedstr(unit1.Form1.DBEditEh8.Text);
 Nazvanie_statyi:=quotedstr(unit1.Form1.DBEditEh9.Text);
 Nazvanie_statyi:=quotedstr(unit1.Form1.DBEditEh10.Text);
 Nazvanie_statyi:=quotedstr(unit1.Form1.DBEditEh11.Text);
 Nomer_kategory:=StrToInt(unit1.Form1.DBEditEh12.Text);
 with unit2.DataModule2.HelpQuery1 do
 begin close;
 SQL.Clear;
 SQL.ADD
 ('exec new_statya'+avtor+','+Nazvanie_statyi+','+Nazvanie_statyi+','+Nazvanie_statyi+','+nomer_kategory);
   ExecSQL;
 Unit2.DataModule2.statyaADOQuery1.Active:=False;
 Unit2.DataModule2.statyaADOQuery1.Active:=True;
 end;

[Stilet]

Йо-о-охохоханый бабай... Ты где так писать программы учился?

procedure TForm1.Button3Click(Sender: TObject);
 begin
 with unit2.DataModule2.HelpQuery1 do begin 
 close;
 SQL.Clear;
 SQL.ADD('exec new_statya :a,:ns1,:ns2,:ns3,:kat');
 Unit2.DataModule2.statyaADOQuery1.Active:=False;
 With Parameters, unit1.Form1 do begin
  ParamByName('a').Value:=DBEditEh8.Text;
  ParamByName('ns1').Value:=DBEditEh9.Text;
  ParamByName('ns2').Value:=DBEditEh10.Text;
  ParamByName('ns3').Value:=DBEditEh11.Text;
  ParamByName('kat').Value:=DBEditEh12.Text;
 end;
 ExecSQL;
 end;
 Unit2.DataModule2.statyaADOQuery1.Active:=True;
end;

И учти - твой запрос мне неведом.

[Tony Hudson]

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

Йо-о-охохоханый бабай... Ты где так писать программы учился?

procedure TForm1.Button3Click(Sender: TObject);
 begin
 with unit2.DataModule2.HelpQuery1 do begin 
 close;
 SQL.Clear;
 SQL.ADD('exec new_statya :a,:ns1,:ns2,:ns3,:kat');
 Unit2.DataModule2.statyaADOQuery1.Active:=False;
 With Parameters, unit1.Form1 do begin
  ParamByName('a').Value:=DBEditEh8.Text;
  ParamByName('ns1').Value:=DBEditEh9.Text;
  ParamByName('ns2').Value:=DBEditEh10.Text;
  ParamByName('ns3').Value:=DBEditEh11.Text;
  ParamByName('kat').Value:=DBEditEh12.Text;
 end;
 ExecSQL;
 end;
 Unit2.DataModule2.statyaADOQuery1.Active:=True;
end;

И учти - твой запрос мне неведом.

Запрос, вот)

USE [Katalogi]
GO
/****** Object:  StoredProcedure [dbo].[new_statya]    Script Date: 12/06/2015 19:17:58 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:		<Author,,Name>
-- Create date: <Create Date,,>
-- Description:	<Description,,>
-- =============================================
ALTER PROCEDURE [dbo].[new_statya]( 
	 @avtor varchar(50), @nazvanie_statyi varchar(150),
	@kluchivie_slova varchar(200),@kratkoe_soderganie varchar(700),@nomer_kategory int)
	AS
BEGIN
	Insert into Statya values (( select ISNULL(Max(Nomer_statyi)+1,1) from Statya),
	@avtor , @nazvanie_statyi ,	@kluchivie_slova,@kratkoe_soderganie,@nomer_kategory);
	
END

Спасибо большое!Все заработало!)

[Stilet]

Спасибо большое!

Пожалуйста. Но больше такую ахинею не пиши )
Параметризируй запрос, как в примере, что я дал.