أدلة استخدام الإجراءات المخزنة المختلفة

<%@ اللغة=VBScript %>
<%

'---بدء الاتصال بقاعدة البيانات
خافت strConnString
strConnString = "driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo"
تعيين Conn = Server.CreateObject("ADODB.Connection")
Conn. افتح strConnstring
'---إنهاء الارتباط بقاعدة البيانات

'---بدء تعيين قيم لمعلمات الإدخال
خافت SelectSql، SelectRs
خافت SelectID، SelectName، SelectReturn
SelectSql = "حدد الحد الأقصى (معرف الشركة) من Dim_Company"
تعيين SelectRs = Conn.Execute(SelectSql)
SelectID = SelectRs(0)
'---إنهاء تعيين القيم لمعلمات الإدخال

Dim TiggerType
TiggerType = 3

مجموعة Cmd = Server.CreateObject("ADODB.Command")
تعيين Cmd.ActiveConnection = Conn
Cmd.CommandType = 4 '--- قم بتعريف هذا الإجراء كإجراء مخزن

إذا كان TiggerType = 1 إذن

'---بدء استدعاء الإجراء المخزن بمعلمات الإدخال
Cmd.CommandText = "TransCompany1"

تعيين CmdParam = Cmd.CreateParameter("@TransID"،3,1)
Cmd.Parameters.Append CmdParam
Cmd("@TransID") = SelectID
كمد.تنفيذ
'---إنهاء استدعاء الإجراء المخزن بمعلمات الإدخال

Elseif TiggerType = 2 ثم

'---بدء استدعاء إجراء مخزن بمعلمة إدخال واحدة ومعلمة إخراج واحدة
Cmd.CommandText = "TransCompany2"

تعيين CmdParamID = Cmd.CreateParameter("@TransID"،3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SelectID
تعيين CmdParamName = Cmd.CreateParameter("@TransName"،202,2,50)
Cmd.Parameters.Append CmdParamName
كمد.تنفيذ
حدد الاسم = كمد("@TransName")
'---إنهاء استدعاء إجراء مخزن بمعلمة إدخال واحدة ومعلمة إخراج واحدةElseif

TiggerType = 3 ثم

'---بدء استدعاء إجراء مخزن بمعلمة إدخال واحدة ومعلمة إخراج واحدة وقيمة إرجاع
Cmd.CommandText = "TransCompany3"
تعيين CmdParamReturn = Cmd.CreateParameter("Return_Value"،3,4)
Cmd.Parameters.Append CmdParamReturn
تعيين CmdParamID = Cmd.CreateParameter("@TransID"،3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SelectID
تعيين CmdParamName = Cmd.CreateParameter("@TransName"،202,2,50)
Cmd.Parameters.Append CmdParamName

كمد.تنفيذ
حدد الاسم = كمد("@TransName")
SelectReturn = Cmd("Return_Value")
'---إنهاء استدعاء الإجراء المخزن بمعلمة إدخال واحدة ومعلمة إخراج واحدة وقيمة إرجاع واحدة

End if

Conn.Close
SetConn=لا شيء
تعيين كمد = لا شيء
تعيين CmdParamID = لا شيء
تعيين CmdParamname = لا شيء
اضبط CmdParamReturn = لا شيء

%>