这个存储过程?

Question

这样写试试:
Private Sub Command1_Click()
If conn.State = 0 Then conn.Open strconn
cmd.CommandText = "myproc"
cmd.CommandType = adCmdStoredProc
cmd.ActiveConnection = conn
cmd.parameters.refresh
cmd.paremeters("ID")=33
Set rs = cmd.Execute
If Not rs.EOF Then
MsgBox rs(3).Value
End If
End Sub

Answer 1

para.Type = adNumeric
para.scale=0
para.precision=2
'具体参数值查一下,就是Numeric的数度和小数点的值,一定是要写的.

Answer 2

要不然是会报错的,试着换成adDouble也是可以的.Size=0.因为它不需要描述精度和小数点.

Answer 3

 为什么要加上这一句,para.precision=2