ASP 中通过OLEDB访问 Oracle 的代码

冰点点

ASP 中通过OLEDB访问 Oracle 的代码 系统环境： 1、操作系统：Windows 2000 2、数据库：　Oracle 8i R2 (8.1.6) for NT 企业版 3、安装路径：C:\ORACLE 访问方法： 1、连入SQL*Plus 以system/manager用户登录， SQL> conn system/manager 创建新的用户：如user1/pass1，赋予connect,resource权限。 SQL> grant connect,resource to user1 identified by pass1; SQL> conn user1/pass1 SQL> create table test(a date); Oracle数据库的实例名，本例：oradb Oracle用户名，本例：user1 Oracle主机字符串：oradb tnsnames.ora文件中 ORADB = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = 192.1.1.1)(PORT = 1521)) ) (CONNECT_DATA = (SERVICE_NAME = oradb) ) ) 2、在IIS默认WWW目录下创建test.asp，用notebook编辑，输入以下代码 <% set conn=server.createobject("adodb.connection") dns="Provider=OraOLEDB.Oracle.1ersist Security Info=True;User ID=user1assword=pass1;Data Source=oradb" conn.Open dns SQL="insert into test(a) values(sysdate)" set rs=conn.execute(SQL) set rs=nothing conn.close set conn=nothing %> <% set conn=server.createobject("adodb.connection") dns="Provider=OraOLEDB.Oracle.1ersist Security Info=True;User ID=user1assword=pass1;Data Source=oradb" conn.Open dns SQL="select to_char(a,'hh24:mi:ss') from test" set rs=conn.execute(SQL) do while (not rs.eof) %> <% rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing %> 3、打开一个浏览器窗口，输入以下地址来查看运行结果，可以通过不断的按F5键来刷新显示结果 http://localhost/test.asp 总结： 利用以上代码，可以省去创建ODBC的麻烦，并提高效率。 sql自动增量删除问题 由于近来很多人问 sql自动增量删除问题 所以我就把方法拿出来。 delete from 表 后，再插入记录时，递增的ID还是按照以前，我想把它重新设为1开始 方法一 dbcc checkident(你的表名,reseed,0) 方法二 不用DELETE，使用TRUNCATE TABLE TABLENAME

<%=rs.fields(0).value%>