ASP chama o procedimento armazenado do ORACLE e retorna o conjunto de resultados
Já vi muitos métodos na Internet para o ASP chamar o ORACLE, mas não tem nada muito direto, então resumi as coisas de cada empresa e finalmente cheguei a um método que eu. precisa. Eu sinto que é mais popular, então aqui está o método
###############################
.##################
procedimento armazenado oracle
################################################
- -Criar cabeçalho
crie ou substitua o pacote pck_as
como
tipo t_product_id é tabela de números
índice por binário_inteiro;
tipo t_serial_no é tabela de varchar(300)
índice por binário_inteiro;
tipo t_buy_date é tabela de datas
índice por binário_inteiro;
procedimento allsfc
(
product_id fora t_product_id,
serial_no fora t_serial_no,
data_compra encerrada em data_compra
);
--procedure allsfc1;
fim pck_as;
--Criar corpo do pacote
crie ou substitua o corpo do pacote pck_as
como
procedimento allsfc
(
product_id fora t_product_id,
serial_no fora t_serial_no,
data_compra encerrada em data_compra
)
é
cursor cur_sfc_tbl_product_reg é
selecione product_id,serial_no,buy_date de sfc_tbl_product_reg;
eu numero o padrão 1;
começar
para onrecord em cur_sfc_tbl_product_reg
laço
id_do_produto(i):= onrecord.id_do_produto;
serial_no(i) := onrecord.serial_no;
data_compra(i):=onrecord.data_compra;
eu := eu + 1;
laço final;
fim;
fim;
################################################
Chamada ASP
################################################
<html>
<cabeça>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Documento sem título</title>
</head>
<corpo>
<%
dim str_ora
dim objconn_ora
str_ora = "Driver={Microsoft ODBC para Oracle};Server=ora192;uid=dwuser;pwd=family.samsung.com.cn"
definir objconn_ora = server.CreateObject("adodb.connection")
objconn_ora.connectionstring=str_ora
objconn_ora.CursorLocation = 3
objconn_ora.open
dim strsql
definir rs1 = server.CreateObject("ADODB.RecordSet")
strsql = "{chamar pck_as.allsfc({conjunto de resultados 90000, product_id, serial_no, buy_date})}"
definir objcomm1 = server.CreateObject("adodb.command")
objcomm1.activeconnection = objconn_ora
objcomm1.commandtype = 1
objcomm1.commandtext=strsql
definir rs1 = objcomm1.execute
enquanto não rs1.eof
resposta.Write(rs1(0) & "|" & rs1(1) & "|" & rs1(2) & "|<BR>")
rs1.movnext
vamos
%>
</body>
</html>