Conexión a Oracle sin DSN
Hola, la respuesta que me enviaste me es de mucha utilidad porque responde a preguntas que se me presentaron y no había podido resolver. En lo que respecta a la conexión desde Vb, esta es la que estoy usando actualmente y funciona, pero no de manera remota:
Cn.ConnectionString = "DRIVER={Oracle ODBC Driver};UID=" + Usuario + ";PWD=" + Password + ";DBQ=" + Instancia + ";DBA=W;"
Fíjate que no uso proveedor MSDAORA, básicamente porque me fallaba. En todo caso no programo en ASP, no obstante confío en poder adaptar tu respuesta a lo que necesito.
Mil gracias, salud y suerte!
Cn.ConnectionString = "DRIVER={Oracle ODBC Driver};UID=" + Usuario + ";PWD=" + Password + ";DBQ=" + Instancia + ";DBA=W;"
Fíjate que no uso proveedor MSDAORA, básicamente porque me fallaba. En todo caso no programo en ASP, no obstante confío en poder adaptar tu respuesta a lo que necesito.
Mil gracias, salud y suerte!
1 respuesta
Respuesta de kabayo
1
Busque en mis archivos y encontré esto. No la tengo mucho con Oracle, pero seguro te sirve. Fíjate que todos usan MSDAORA ¿por qué decís que falla?
Te recomiendo que utilices ADO 2.5. Te envío un fragmento de código:
Dim strQuery
Dim strProvider
Dim strIdNum
Dim objConn
Dim Rst
Dim i
Dim lRegCount
strQuery= "SELECT c_ccc,Nom,Domicili,c_postal,c_poble,estatus FROM AFI_FMEMP"
IF Request.Form("sort") <> "" Then
strQuery = strQuery & " ORDER BY " & Request.Form("sort")
End If
'Database path statement for restricted viewing of the database.
strProvider="Provider=MSDAORA;Data Source=bbddsid.mutuain;User ID=system; Password=miclave;"
strIDNum=Request("ID")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strProvider
'Set Rst = objConn.Execute(strQuery,,1)
'Ejecuta la consulta
Set Rst = Server.CreateObject("ADODB.Recordset")
With Rst
.CursorLocation = adUseServer
.CursorType = adOpenForwardOnly
.LockType = adLockReadOnly
.Open strQuery, objConn
End With
Te recomiendo que utilices ADO 2.5. Te envío un fragmento de código:
Dim strQuery
Dim strProvider
Dim strIdNum
Dim objConn
Dim Rst
Dim i
Dim lRegCount
strQuery= "SELECT c_ccc,Nom,Domicili,c_postal,c_poble,estatus FROM AFI_FMEMP"
IF Request.Form("sort") <> "" Then
strQuery = strQuery & " ORDER BY " & Request.Form("sort")
End If
'Database path statement for restricted viewing of the database.
strProvider="Provider=MSDAORA;Data Source=bbddsid.mutuain;User ID=system; Password=miclave;"
strIDNum=Request("ID")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strProvider
'Set Rst = objConn.Execute(strQuery,,1)
'Ejecuta la consulta
Set Rst = Server.CreateObject("ADODB.Recordset")
With Rst
.CursorLocation = adUseServer
.CursorType = adOpenForwardOnly
.LockType = adLockReadOnly
.Open strQuery, objConn
End With
