<%
Set orasession=Createobject("OracleInProcServer.XOraSession")
Set oradatabase=orasession.OpenDatabse("oradbt","gwmis/gwmis",0)
SQL="Select * from ABC"
Set oraDynaset=oradatabase.CreateDynaset(SQL,0)
Do While (oraDynaset.EOF=FALSE)
Response.Write(oraDynaset.Fields("ID"))
Response.Write(oraDynaset.Fields("username"))
Response.Write(oraDynaset.Fields("userphone"))
Response.Write(oraDynaset.Fields("email"))
oraDynaset.MoveNext
Loop
Set orasession=Nothing
%>上面这段代码我不知道哪里错了,请教大家一下,急啊
Set orasession=Createobject("OracleInProcServer.XOraSession")
Set oradatabase=orasession.OpenDatabse("oradbt","gwmis/gwmis",0)
SQL="Select * from ABC"
Set oraDynaset=oradatabase.CreateDynaset(SQL,0)
Do While (oraDynaset.EOF=FALSE)
Response.Write(oraDynaset.Fields("ID"))
Response.Write(oraDynaset.Fields("username"))
Response.Write(oraDynaset.Fields("userphone"))
Response.Write(oraDynaset.Fields("email"))
oraDynaset.MoveNext
Loop
Set orasession=Nothing
%>上面这段代码我不知道哪里错了,请教大家一下,急啊
1---------------->
Application("J_ConnString") = "****_ord;****01;oracle;"2---------------->
Set DB_Conn = Nothing
Set DB_Conn = Server.CreateObject("ADODB.Connection")
On Error Resume Next
'DB_Conn.Open strConnection
Dim arrConnection
arrConnection = Split(Application("J_ConnString"),";")
DB_Conn.Open arrConnection(0),arrConnection(1),arrConnection(2) On Error GoTo 0
If Err.number <> 0 Or DB_Conn.State <> 1 Then
Call AddErrorFromDBConnection(DB_Conn,"SYS")
Call DestroyDBConnection(DB_Conn)
If blnTransactErr = True Then
Call TransactErr("9","","")
End If
OpenDBConnection = -1
Else
OpenDBConnection = 1
End If
Conn.Open DBStr
更多请访问源地址:http://www.5axx.com/article/asp/11439.html(ASP中各种数据库连接代码)dim conn,connstr
set conn = server.createobject("ADODB.Connection")
方法一:connstr = "Driver={microsoft odbc for oracle};server=ORADB;uid=test;pwd=123456;"
方法二:connstr="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;UserID=test;Password=123456;Data Source=ORADB"
方法三:connstr="Provider=MSDAORA.1;Data Source=ORADB;User ID=test;Password=123456"
conn.open connstr
RHKylix(<要把金针度与人>)