<%@ Bahasa=VBScript %>
<%
'---Mulai menghubungkan ke database
Redupkan strConnString
strConnString = "driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo"
setel Sambungan = Server.CreateObject("ADODB.Koneksi")
Sambungan.Buka strConnstring
'---Akhiri penautan ke database
'---Mulai memberikan nilai ke parameter input
Redupkan SelectSql, SelectRs
Redupkan SelectID , SelectName , SelectReturn
SelectSql = "Pilih Maks (ID Perusahaan) Dari Dim_Perusahaan"
Atur SelectRs = Conn.Execute(SelectSql)
SelectID = PilihRs(0)
'---Akhiri pemberian nilai ke parameter masukan
Dim TiggerType
TiggerType = 3
Set Cmd = Server.CreateObject("ADODB.Command")
Setel Cmd.ActiveConnection = Sambungan
Cmd.CommandType = 4 '--- Deklarasikan prosedur ini sebagai prosedur tersimpanJika
TiggerType = 1 maka
'--- Mulai panggilan prosedur tersimpan dengan parameter input
Cmd.CommandText = "TransPerusahaan1"
Setel CmdParam = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Tambahkan CmdParam
Cmd("@TransID") = ID Pilih
Cmd.Jalankan
'---Akhiri panggilan prosedur tersimpan dengan parameter input
Elseif TiggerType = 2 lalu
'--- Mulai panggilan prosedur tersimpan dengan satu parameter masukan dan satu parameter keluaran
Cmd.CommandText = "TransPerusahaan2"
Setel CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Tambahkan CmdParamID
Cmd("@TransID") = ID Pilih
Setel CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Tambahkan CmdParamName
Cmd.Jalankan
NamaPilih = Cmd("@TransName")
'---Akhiri panggilan prosedur tersimpan dengan satu parameter masukan dan satu parameter keluaranElseif
TiggerType = 3 lalu
'---Mulai panggilan prosedur tersimpan dengan satu parameter masukan, satu parameter keluaran, dan nilai kembalian
Cmd.CommandText = "TransPerusahaan3"
Setel CmdParamReturn = Cmd.CreateParameter("Return_Value",3,4)
Cmd.Parameters.Tambahkan CmdParamReturn
Setel CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Tambahkan CmdParamID
Cmd("@TransID") = ID Pilih
Setel CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Tambahkan CmdParamName
Cmd.Jalankan
NamaPilih = Cmd("@TransName")
PilihKembali = Cmd("Nilai_Pengembalian")
'---Akhiri panggilan prosedur tersimpan dengan satu parameter masukan, satu parameter keluaran, dan satu nilai kembalian
Berakhir jika
Sambungan.Tutup
SetConn=Tidak ada
Setel Cmd = Tidak Ada
Setel CmdParamID = Tidak Ada
Setel CmdParamname = Tidak Ada
Setel CmdParamReturn = Tidak Ada
%>