用ASP实现对ORACLE数据库的操作
Oracle Object for OLE是ORACLE公司为了客户端存取数据库所发展的一个很需要的产品,它以Windows 95/98/NT 为基础供所有的与OLE 兼容的应用程序与程序语言存取ORACLE数据库,如ASP、Visual Basic excess97等 ,Oracle Object for OLE包含了ORACLE对象服务器(The Oracle Object Server)、ORCLE 数据控制项(The Oracle Data Control)与ORACLE 对象类程序库(The Oracle Objects for OLE C++ Class Library)等三项产品。
与ADO相比,ORACLE对象服务器是专用于ORACLE数据库应用程序开发的产品,它有以下优点:
(1) 与数据库服务器的连接的运行效率好。因为ADO是通过ODBC来连接数据库服务器的,而ORACLE对象服务器是通过ORACLE的SQL*NET来连接数据库服务器的
(2) 能更好地发挥ORACLE数据库的特有功能。如STORED PROCEDURE,STORED FUNCTION、PACKAGE或Multiple Cursor。 通讯录表的结构如下:
以下为引用的内容:
Name Null? Type
------------------------------- -------- ----
NAME NOT NULL CHAR(8)
ADDRESS CHAR(20)
PHONE CHAR(20)
EMAIL VARCHAR2(30)
首先:进行环境配置:
在WEB服务器上安装以下软件并进行配置:
(1)基本的WEB 服务器(WEB SERVER)与ASP等软件
(2)Oracle Object for OLE2.x
(3)SQL*Net Client 或 Oracle Net8 Client 8,安装之后,用Sql*Net Easy Configuration建立数据库别名(Database Alias),为ASP连接到数据库所用的别名。
二.功能实现
(1)查询:用ASP 取数据库通讯录表(TSB1)的数据,将数据显示在屏幕上。查询的关键在于确定与数据库的连接成功与否,ORACLE对象服务器本身有错误控制机制可以报出数据库连接方面的错误,具体的程序如下:
以下为引用的内容:
< HTML > < tile > 查询程序 < /title >
< BODY >
< %
on error resume next
连接数据库
set orasession=createobject("OracleInprocServer.XOraSession")
set oradatabase=orasession. dbopendatabase("axp03","scott/tiger",0)
出错处理
if err.number >0 then
response.write"< h4 >asp 错误控制 < /h4 >"
response.write"asp 错误来源:"&err.source &"< br >"
response.write"asp 错误代码:"&err.number&"< br >" response.write"asp 错误说明:"&err.description&"< br >" err.clear response.write"< h4 >ORACLE OLE 错误控制< /h4 >" response.write"ORACLE 错误代码:"&OraSession.LastServerErr&"< br >"
response.write"ORACLE 错误说明:"&OraSession.LastServerErrText&"< br >" else
查询
sql="select * from tsb1"
set oradynaset=oradatabase.dbcreatedynaset(sql,0)
response.write"< h3 >result< /h3 >"
response.write"< table border=5 >< tr >"
for i=0 to oradynaset.fields.count-1
response.write"< td >"
response.write oradynaset.fields(i)。name & " " response.write"< /td >" next response.write"< /tr >" do until oradynaset.eof response.write"< tr >" for i=0 to oradynaset.fields.count-1 response.write"< td >" response.write oradynaset.fields(i)。value response.write"< /td >" next response.write"< /tr >" oradynaset.dbmovenext loop response.write"< /table >"
关闭数据库
以下为引用的内容:
oradatabase.close set orasession=nothing end if % >
< /body > < /html >
下面是程序的查询结果图面: