写过存储过程的高手帮我分析分析？

Question

我写的程序，怎么添加不进去记录啊？以下是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

Answer 1

怎么会有记录呢，从你的存储过程中只有insert语句，又没有select语句，要返回记录，加一条select语句。

Answer 2

加Select 语句?我不是加Values了吗？

Answer 3

你需要返回的是什么？如果是返回刚才插入表后的记录则需要在commit tran 后加入select * from T_userInfo，如果你是需要返回插入是否成功，则用 return stats就行