คู่มือการใช้ขั้นตอนการจัดเก็บต่างๆ

<%@ ภาษา=VBScript %>
<%

'---เริ่มเชื่อมต่อกับฐานข้อมูล
Dim strConnString
strConnString = "driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo"
ตั้งค่า Conn = Server.CreateObject("ADODB.Connection")
Conn.เปิด strConnstring
'---สิ้นสุดการเชื่อมโยงไปยังฐานข้อมูล

'---เริ่มกำหนดค่าให้กับพารามิเตอร์อินพุต
Dim SelectSql, SelectRs
หรี่ SelectID , SelectName , SelectReturn
SelectSql = "เลือกสูงสุด (CompanyID) จาก 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 ผนวก CmdParam
Cmd("@TransID") = เลือก ID
Cmd.ดำเนินการ
'---สิ้นสุดการเรียกโพรซีเดอร์ที่เก็บไว้ด้วยพารามิเตอร์อินพุต

Elseif TiggerType = 2 จากนั้น

'---เริ่มการเรียกกระบวนงานที่เก็บไว้ด้วยพารามิเตอร์อินพุตหนึ่งตัวและพารามิเตอร์เอาต์พุตหนึ่งตัว
Cmd.CommandText = "TransCompany2"

ตั้งค่า CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters ผนวก CmdParamID
Cmd("@TransID") = เลือก ID
ตั้งค่า CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName
Cmd.ดำเนินการ
เลือกชื่อ = Cmd("@TransName")
'---สิ้นสุดการเรียกโพรซีเดอร์ที่เก็บไว้ด้วยพารามิเตอร์อินพุตหนึ่งตัวและพารามิเตอร์เอาต์พุตหนึ่งตัว

Elseif TiggerType = 3 จากนั้น

'---เริ่มการเรียกโพรซีเจอร์ที่เก็บไว้ด้วยพารามิเตอร์อินพุตหนึ่งตัว พารามิเตอร์เอาต์พุตหนึ่งตัว และค่าที่ส่งคืน
Cmd.CommandText = "TransCompany3"
ตั้งค่า CmdParamReturn = Cmd.CreateParameter("Return_Value",3,4)
Cmd.Parameters ผนวก CmdParamReturn
ตั้งค่า CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters ผนวก CmdParamID
Cmd("@TransID") = เลือก ID
ตั้งค่า CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName

Cmd.ดำเนินการ
เลือกชื่อ = Cmd("@TransName")
เลือกReturn = Cmd("Return_Value")
'---สิ้นสุดการเรียกโพรซีเดอร์ที่เก็บไว้ด้วยพารามิเตอร์อินพุตหนึ่งพารามิเตอร์ พารามิเตอร์เอาต์พุตหนึ่งตัว และค่าส่งคืนหนึ่งค่า

สิ้นสุดหาก

Conn.Close
SetConn=ไม่มีอะไร
ตั้ง Cmd = ไม่มีเลย
ตั้งค่า CmdParamID = ไม่มีเลย
ตั้งค่า CmdParamname = ไม่มีเลย
ตั้งค่า CmdParamReturn = ไม่มี

%>