Question

delphi里面调用存储过程在数据库里添加数据 没有提示错误 但是一直无法添加成功

adoquery1.sql.Clear ;
adoquery1.sql.Add('exec xg100410_jc '''+num+''','''+datetostr(datetimepicker1.DateTime)+''','''+combobox1.Text +''','''+combobox2.Text +''','''+maskedit1.text+''','''+edit2.text+'''');
adoquery1.sql.Clear ;

存储过程:
CREATE PROCEDURE xg100410_jc @进仓单号 varchar(30),@进仓日期 datetime,@操作人员代码 varchar(10),@物料代码 varchar(10),@进仓数量 int,@备注 varchar(100)
AS
DECLARE @库存数量 int
SELECT @库存数量=库存数量 FROM xg100410wl where 物料代码=@物料代码
if @进仓数量>0
begin
update xg100410wl set 库存数量=@库存数量+@进仓数量 where 物料代码=@物料代码
insert into xg100410jc(进仓单号,进仓日期,操作人员代码,物料代码,进仓数量,备注) values(@进仓单号,@进仓日期,@操作人员代码,@物料代码,@进仓数量,@备注 )
end
else
begin
print'进仓数量必须大于0！'
end
GO

Answer 1

adoquery1.sql.Clear ;
adoquery1.sql.Add('exec xg100410_jc '''+num+''','''+datetostr(datetimepicker1.DateTime)+''','''+combobox1.Text +''','''+combobox2.Text +''','''+maskedit1.text+''','''+edit2.text+'''');
adoquery1.execsql;
adoquery1.sql.Clear ;