'执行存储过程,并返回参数
Dim adocomm As New ADODB.Command
Dim ReturnValue As Integer
Set adocomm.ActiveConnection = connsys
adocomm.CommandText = "proc_tabom_constrast"
adocomm.CommandType = adCmdStoredProc
adocomm.Parameters.Item("@bomType").Value = "bom"
adocomm.Parameters.Item("@bomnum").Value = 0
adocomm.Parameters.Item("@pid").Value = "returnPid"
adocomm.Execute
ReturnValue = adocomm.Parameters(0) '存储过程的返回值，返回1则成功执行。
If ReturnValue = "-1" Then
exsheet1.Cells(k, 1) = "编号出错"
'MsgBox "历史BOM库中没有找到相同的BOM! 页号：" & j
Else
end if
以上为VB代码，请问在foxtable中如何写
[此贴子已经被作者于2017/4/21 20:02:22编辑过]
加好友 
发短信
Post By：2017/4/21 20:01:00 [只看该作者]
