재우니의 블로그


CREATE PROC spx_ shimpark
    @subject varchar(50),
    @category varchar(50),
    @file_name varchar(50),
    @error_flag int output
As
Begin
   INSERT shimpark(a, b, c, d)
   VALUES (@subject, @category, GETDATE(), @file_name)

   SET @error_flag == @@error
End

With cmd
    .ActiveConnection = con
    .CommandType = adCmdStoredProc
    .CommandText = "spx_ shimpark"
    .Parameters.Append .CreateParameter("@subject", adVarChar, adParamInput, 50)
    .Parameters.Append .CreateParameter("@category", adVarChar, adParamInput, 50)
    .Parameters.Append .CreateParameter("@file_name", adVarChar, adParamInput, 50)
    .Parameters.Append .CreateParameter("@error_flag", adInteger, adParamOutput, 0)
    .Parameters("@subject") = subject
    .Parameters("@category") = category
    .Parameters("@file_name") = filename
    .Parameters("@error_flag") = 0
    .Execute ,,adExecuteNoRecords
    error_flag = .Parameters("@error_flag")
End With

if Cint(error_flag) = 0 then
     참이다.
else
     거짓이다
end if