1﹑在SQL/PLUS中﹐右鍵選 test﹐輸入傳入參數﹐F9運行﹐可一步一步調試看到結果﹔
2﹑VB.NET調用﹕
Dim cmdOra As New OleDbCommand
cmdOra.Connection = connStr.ConnectDB
cmdOra.Parameters.Clear()
cmdOra.CommandType = CommandType.StoredProcedure
cmdOra.CommandText = "zrep_bga_out_sp"cmdOra.Parameters.Add("c_sysserno", OleDbType.VarChar)
cmdOra.Parameters.Add("c_outby", OleDbType.VarChar)
cmdOra.Parameters.Add("c_lstupdby", OleDbType.VarChar)
cmdOra.Parameters.Add("rtnflag", OleDbType.Integer)
cmdOra.Parameters.Add("rtnmsg", OleDbType.VarChar)cmdOra.Parameters("rtnmsg").Size = 50cmdOra.Parameters("c_sysserno").Value = Trim(txtBarCode.Text)
cmdOra.Parameters("c_outby").Value = Trim(txtUser.Text)
cmdOra.Parameters("c_lstupdby").Value = s_UsercmdOra.Parameters("c_sysserno").Direction = ParameterDirection.Input
cmdOra.Parameters("c_outby").Direction = ParameterDirection.Input
cmdOra.Parameters("c_lstupdby").Direction = ParameterDirection.Input
cmdOra.Parameters("rtnflag").Direction = ParameterDirection.ReturnValue
cmdOra.Parameters("rtnmsg").Direction = ParameterDirection.ReturnValueDim iFlag As Integer
Dim cMsg As StringTry
     cmdOra.ExecuteNonQuery()
     iFlag = cmdOra.Parameters("rtnflag").Value
     cMsg = cmdOra.Parameters("rtnmsg").Value
     txtBarCode.Text = ""
     txtBarCode.Focus()
Catch ex As Exception
     vMsg(9, "錯誤﹕" & ex.Message)
Finally
     cmdOra.Connection.Close()
     cmdOra.Connection.Dispose()
     cmdOra.Parameters.Clear()
     cmdOra.Dispose()
End Try