dim oraSession, oradb, sSql, oRs
Set oraSession = CreateObject("oracleinprocserver.xorasession")
Set oradb = oraSession.dbopendatabase("连接串", "用户名/密码", 0)
sSql = "sql语句"
'创建记录集
set oRs = Oradb.createdynaset(sSql,0)
具体可以查看oracle object for ole help

解决方案 »

  1.   

    纯ORACLE能做BBS或是其它的吗,有这类的书吗或是好的网站,谢谢
      

  2.   


    <%
    set conn=server.createobject("adodb.connection")
    constr="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=xxx;Password=xxx;Data Source=db(数据库)"
    conn.Open constrSQL="insert into test(a) values(sysdate)"
    set rs=conn.execute(SQL)set rs=nothing
    conn.close
    set conn=nothingset conn=server.createobject("adodb.connection")
    dns="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=xxx;Password=xxx;Data Source=db(数据库)"
    conn.Open dnsSQL="select to_char(a,'hh24:mi:ss') from test"
    set rs=conn.execute(SQL)
    %>
    <table border=1><tr>
    <%
    i=1
    do while (not rs.eof)
    %>
    <td><%=rs.fields(0).value%></font></td>
    <%
    if i mod 13 =0 then response.write "<tr></tr>"
    i=i+1
    rs.movenext
    loop
    %></tr>
    </table>
    <%
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    %>
      

  3.   

    最简单办法,当然是用odbc去连,在odbc中写入system dsn。程序:
    session("DSN") = "system_user"
    session("UserID") = "user"
    session("Pwd") = "pwd"
     
    set Session("dbConn") = server.CreateObject("ADODB.connection")
    Session("dbConn").Open Session("DSN"), Session("UserID"), Session("Pwd")
    set dbconn=session("dbconn")
      

  4.   

    还有ado连接方法,参照:
    http://www.vbip.com/books/1861001789/chapter_1789_10.asp
    很详细的