急：请教存储程调用问题

Question

如下代码用来调用一个输入参数，没有输出的存储过程：总出现:the precision is invalid 的错误：代码为：800004005Dim bResult As Boolean
    Dim objParam As ADODB.Parameter
    Dim rs As ADODB.Recordset
    Dim cmd As New ADODB.Command
    Set rs = New ADODB.Recordset
    
    With cmd
        .ActiveConnection = g_DsSrc.AdoConn
        .CommandText = "dbo.DeleteProins" '存储过程名
        .CommandType = adCmdStoredProc
        Set objParam = cmd.CreateParameter("@proinsid", adNumeric, adParamInput, 8)
        .Parameters.Append objParam
        .Parameters("@proinsid").Value = proID
       .Execute
        bResult = True
    End With
    
    Set objParam = Nothing
    Set rs = Nothing
    Set cmd = Nothing
    DelProins = bResult

Answer 1

是完全一致的，过程如下：ALTER            procedure dbo.DeleteProins(@proinsid numeric(8))
as
        
 
        begin

     begin transaction
      delete from WFI_ROUTEINST where proins_id=@proinsid;
    
    commit
       end;