يستدعي ASP إجراء ORACLE المخزن ويعيد مجموعة النتائج

يستدعي ASP إجراء ORACLE المخزن ويعيد مجموعة النتائج.

لقد رأيت العديد من الطرق على الإنترنت لـ ASP للاتصال بـ ORACLE، ولكن لا يوجد شيء مباشر جدًا، لذلك قمت بتلخيص أشياء كل شركة وتوصلت أخيرًا إلى طريقة قمت بها. أشعر أنها أكثر شعبية، لذلك هذه هي الطريقة

################################

################ ##
أوراكل الإجراء المخزن
###########################################################

- -إنشاء رأس
إنشاء أو استبدال الحزمة pck_as
مثل
النوع t_product_id هو جدول الأرقام
الفهرس بواسطة Binary_integer؛
اكتب t_serial_no هو جدول varchar(300)
الفهرس بواسطة Binary_integer؛
اكتب t_buy_date هو جدول التاريخ
الفهرس بواسطة Binary_integer؛

الإجراء allsfc
(
معرف المنتج خارج t_product_id،
serial_no خارج t_serial_no،
buy_date خارج t_buy_date
);

--إجراء allsfc1;
نهاية pck_as؛

--إنشاء نص الحزمة
إنشاء أو استبدال نص الحزمة pck_as
مثل
الإجراء allsfc
(
معرف المنتج خارج t_product_id،
serial_no خارج t_serial_no،
buy_date خارج t_buy_date
)
يكون
المؤشر cur_sfc_tbl_product_reg هو
حدد Product_id,serial_no,buy_date من sfc_tbl_product_reg;

الرقم الافتراضي 1؛

يبدأ
للتسجيل في cur_sfc_tbl_product_reg
حلقة
Product_id(i) := onrecord.product_id;
serial_no(i) := onrecord.serial_no;
buy_date(i) := onrecord.buy_date;
أنا := أنا + 1؛
حلقة النهاية؛
نهاية؛
نهاية؛

#################################################################################################
مكالمة ASP
#################################################################################################
<أتش تي أم أل>
<الرأس>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>مستند بدون عنوان</title>
</الرأس>

<الجسم>
<%
خافت str_ora
خافت objconn_ora
str_ora = "برنامج التشغيل={Microsoft ODBC for Oracle};الخادم=ora192;uid=dwuser;pwd=family.samsung.com.cn"
تعيين objconn_ora = server.CreateObject("adodb.connection")
objconn_ora.connectionstring = str_ora
objconn_ora.CursorLocation = 3
objconn_ora.open

strsql
مجموعة rs1 = server.CreateObject("ADODB.RecordSet")
strsql = "{استدعاء pck_as.allsfc({resultset 90000, Product_id, serial_no, buy_date})}"
تعيين objcomm1 = server.CreateObject("adodb.command")
objcomm1.activeconnection = objconn_ora
objcomm1.commandtype = 1
objcomm1.commandtext = strsql
تعيين rs1 = objcomm1.execute

في حين لا rs1.eof
Response.Write(rs1(0) & "|" & rs1(1) & "|" & rs1(2) & "|<BR>")
rs1.movenext
com.wind
%>
</الجسم>
</html>