DBMNG数据库管理与应用

才能是来自独创性。独创性是思维、观察、理解和判断的一种独特的方式。
当前位置:首页 > Oracle > 驱动连接

asp使用存储过程连接oracle

我们已经讨论了如何在ASP中访问Oracle数据库,所有的SQL语句都可以嵌入在ASP网页中。如果在ASP中使用存储过程,将更能够更有效地处理数据。我建议读者除在ASP中嵌入SQL语句外,还应当使用PL/SQL存储过程。在Oracle数据库中创建存储过程已经超出了本文章的范围,在这里就不再进行介绍了。

   ASP和Oracle数据库是二种比较流行的技术,都有相当广泛的用户群,如果能够有机地将二者结合起来,将能够给工作带来许多方便,希望这篇文章能够起到抛砖引玉的作用,使读者能够更好地探索将这二种技术结合使用的途径。

二.

<%
dim objorasession,objoradb
dim strdbuser,strdbpwd,strdbconn
call connectdb()
sub connectdb()
连接数据库
on error resume next
strdbuser = "tmpuser" 连接用户名
strdbpwd = "rt45ps1w" 用户密码
strdbconn = "sun450" 连接字符串
set objorasession = server.createobject("oracleinprocserver.xorasession")
set objoradb = objorasession.opendatabase(strdbconn,strdbuser & "/" & strdbpwd,0)
if err.number>0 then
response.write "<font color=red>错误 :" & err.description & "</font>"
response.end
end if
end sub
sub enddb()
set objoradb = nothing
set objorasession = nothing
end sub
function gettablelist(str)
dim strsql,strtmp
dim objrs
strsql = "select at.table_name as tname,au.username as uname from all_tables at,all_users au where au.username=at.owner order by au.username"
set objrs = objoradb.dbcreatedynaset(strsql,0)
while not objrs.eof
stra = objrs("uname") & "." & objrs("tname")
if str=stra then
strtmp = strtmp & "<option selected>" & stra & "</option>"
else
strtmp = strtmp & "<option>" & stra & "</option>"
end if
objrs.movenext
wend
set objrs = nothing
gettablelist = strtmp
end function
%>
<form name=form1 action="index.asp" method=post target="main">
<table width="100%" border=0 align="center">
<tr><td>
all tables : <select name="tb">
<%=gettablelist(tblname)%>
</select>
<input type=hidden name="submitc" value="view">
<input type=submit name="submit" value="view data"> <font color=red>(<%=strdbuser & "/" & strdbpwd & "@" & strdbconn%>)</font>
</td></tr>
</table>
</form>

本站文章内容,部分来自于互联网,若侵犯了您的权益,请致邮件chuanghui423#sohu.com(请将#换为@)联系,我们会尽快核实后删除。
Copyright © 2006-2023 DBMNG.COM All Rights Reserved. Powered by DEVSOARTECH            豫ICP备11002312号-2

豫公网安备 41010502002439号