我写的程序,怎么添加不进去记录啊?以下是Vb的部分代码和SQL的存储过程,一执行到set RS=cmd.execute后就退出,也不报错。记录也没有添加进去
'存储过程(保存主表)
Cmd.ActiveConnection = cn
Cmd.CommandText = "Proc_StorageInInsert"
Cmd.CommandType = adCmdStoredProc
'所要添加的记录字段(主表)
'入库单编号1
Set Param = Cmd.CreateParameter("F_StorageInNo", adChar, adParamInput, 20, Trim(Lbl_StorageInNo.Caption))
Cmd.Parameters.Append Param
'供应商代码2
Set Param = Cmd.CreateParameter("F_manfacturerID", adChar, adParamInput, 30, Trim(Txt_manfacturerId.Text))
Cmd.Parameters.Append Param
'供应商名称3
Set Param = Cmd.CreateParameter("F_manfacturer", adChar, adParamInput, 50, Trim(Txt_manfacturer.Text))
Cmd.Parameters.Append Param
'库管员4
Set Param = Cmd.CreateParameter("F_storageInmanager", adChar, adParamInput, 30, Trim(Lbl_manager.Caption))
Cmd.Parameters.Append Param
'入库日期5
Set Param = Cmd.CreateParameter("F_storageindate", adDate, adParamInput, , Trim(DTP.Value))
Cmd.Parameters.Append Param
'备注6
Set Param = Cmd.CreateParameter("F_note", adChar, adParamInput, 100, Trim(Txt_note.Text))
Cmd.Parameters.Append Param
'总面积7
Set Param = Cmd.CreateParameter("F_totalarea", adDecimal, adParamInput, 20, Trim(Lbl_totalarea.Caption))
Cmd.Parameters.Append Param
'总片数8
Set Param = Cmd.CreateParameter("F_totalpiece", adDecimal, adParamInput, 20, Trim(Lbl_totalpiece.Caption))
Cmd.Parameters.Append Param
'总破损面积9
Set Param = Cmd.CreateParameter("F_totalbadarea", adDecimal, adParamInput, 20, Trim(Txt_badarea.Text))
Cmd.Parameters.Append Param
'执行
Set rs = Cmd.Execute
存储过程如下:
CREATE PROCEDURE Proc_StorageInInsert(@storageInNo char(20),@manfacturerID char (30),
@manfacturer char (50),@StorageInManager char (30),
@storageInDate datetime, @Note char (100),
@totalarea dec (20,3),@totalpiece dec (20,3),
@totalbadarea dec (20,3)
)
AS
set nocount on /**设置不返回结果影响SQL的行数**/
declare @interr int /*********返回错误代码@@error********/
/************************* 执行插入操作 *****************************/
begin tran
insert into T_userInfo(F_StorageInno,F_ManfacturerID,
F_Manfacturer,F_StorageInManager,
F_StorageIndate,F_Note,
F_totalarea,F_totalpiece,
F_totalbadarea)
values(@storageInNo,@manfacturerID,
@manfacturer,@StorageInManager,
@storageInDate,@Note,
@totalarea,@totalpiece,
@totalbadarea
)
commit tran
GO
'存储过程(保存主表)
Cmd.ActiveConnection = cn
Cmd.CommandText = "Proc_StorageInInsert"
Cmd.CommandType = adCmdStoredProc
'所要添加的记录字段(主表)
'入库单编号1
Set Param = Cmd.CreateParameter("F_StorageInNo", adChar, adParamInput, 20, Trim(Lbl_StorageInNo.Caption))
Cmd.Parameters.Append Param
'供应商代码2
Set Param = Cmd.CreateParameter("F_manfacturerID", adChar, adParamInput, 30, Trim(Txt_manfacturerId.Text))
Cmd.Parameters.Append Param
'供应商名称3
Set Param = Cmd.CreateParameter("F_manfacturer", adChar, adParamInput, 50, Trim(Txt_manfacturer.Text))
Cmd.Parameters.Append Param
'库管员4
Set Param = Cmd.CreateParameter("F_storageInmanager", adChar, adParamInput, 30, Trim(Lbl_manager.Caption))
Cmd.Parameters.Append Param
'入库日期5
Set Param = Cmd.CreateParameter("F_storageindate", adDate, adParamInput, , Trim(DTP.Value))
Cmd.Parameters.Append Param
'备注6
Set Param = Cmd.CreateParameter("F_note", adChar, adParamInput, 100, Trim(Txt_note.Text))
Cmd.Parameters.Append Param
'总面积7
Set Param = Cmd.CreateParameter("F_totalarea", adDecimal, adParamInput, 20, Trim(Lbl_totalarea.Caption))
Cmd.Parameters.Append Param
'总片数8
Set Param = Cmd.CreateParameter("F_totalpiece", adDecimal, adParamInput, 20, Trim(Lbl_totalpiece.Caption))
Cmd.Parameters.Append Param
'总破损面积9
Set Param = Cmd.CreateParameter("F_totalbadarea", adDecimal, adParamInput, 20, Trim(Txt_badarea.Text))
Cmd.Parameters.Append Param
'执行
Set rs = Cmd.Execute
存储过程如下:
CREATE PROCEDURE Proc_StorageInInsert(@storageInNo char(20),@manfacturerID char (30),
@manfacturer char (50),@StorageInManager char (30),
@storageInDate datetime, @Note char (100),
@totalarea dec (20,3),@totalpiece dec (20,3),
@totalbadarea dec (20,3)
)
AS
set nocount on /**设置不返回结果影响SQL的行数**/
declare @interr int /*********返回错误代码@@error********/
/************************* 执行插入操作 *****************************/
begin tran
insert into T_userInfo(F_StorageInno,F_ManfacturerID,
F_Manfacturer,F_StorageInManager,
F_StorageIndate,F_Note,
F_totalarea,F_totalpiece,
F_totalbadarea)
values(@storageInNo,@manfacturerID,
@manfacturer,@StorageInManager,
@storageInDate,@Note,
@totalarea,@totalpiece,
@totalbadarea
)
commit tran
GO
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货