on error goto Err 你的代码 exit sub Err: msgbox "error"
on error goto Err 你的代码 exit sub Err: msgbox "error"
on error goto Err 你的代码 exit sub Err: msgbox "error"
假设有一个这样的存储过程,它的作用是获得服务器时间: CREATE PROCEDURE Up_SystemDateTime @param1 nvarchar(20) output as select @param1=getdate() GO在VB中应该这样调用: Dim cnn As New ADODB.Connection Dim cmd As New ADODB.Command
你的代码
exit sub
Err:
msgbox "error"
你的代码
exit sub
Err:
msgbox "error"
你的代码
exit sub
Err:
msgbox "error"
CREATE PROCEDURE Up_SystemDateTime
@param1 nvarchar(20) output
as
select @param1=getdate()
GO在VB中应该这样调用:
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.open connection_string '''''connection_string为连接数据库的字符串
Set cmd.ActiveConnection = cnn
cmd.CommandText = "Up_SystemDateTime"
cmd.CommandType = adCmdStoredProc
cmd.Execute
msgbox cmd.Parameters(1).Value '''''报告存储过程获得的服务器系统时间
if conn.errors.count>0 then
msgbox "出现错误"
else
msgbox "成功执行"
end if