Estamos migrando de un Windows 7 a Windows 10 en una PC para desarrollo, y ya no disponemos en W10 del MSDAORA.1
para acceder a recursos de ODBC y conectar una aplicación a la BBDD de Oracle. Hemos resuelto la conexión y el acceso a consultas generales, pero al intentar obtener todos los datos de un ref_cursor que devuelve un SP en la base, el método GetRows()
del RecordSet
simplemente no funciona. No lo reconoce como propiedad o método.
Conexión:
DSN="PROVIDER=OraOLEDB.Oracle;USER ID=XXXXXX;PASSWORD=XXXXX;DATA SOURCE=XXXXX.WORLD;"
set conn = server.createobject("ADODB.connection")
conn.open DSN
Codigo:
Set oCmd = Server.CreateObject("ADODB.Command")
set oRs = Server.CreateObject("ADODB.Recordset")
oCmd.ActiveConnection = conn
oCmd.CommandType = 4 ' Stored Procedure
oCmd.NamedParameters = True
oCmd.CommandText = "PKG_XXXX.GetXXXX"
' ------------------------------------------------------------------
oCmd.Properties("PLSQLRSet") = True
' ------------------------------------------------------------------
oRs = oCmd.Execute
' ------------------------------------------------------------------
Set oDataGrid = New caDataGrid
If oRs.Count > 0 Then
Session("SIZE_PAGINA") = oRs.Count
Session("ASPDataGrid") = oRs.GetRows
oRs.MoveFirst()
oDataGrid.SetDatos = oRs.GetRows
' ------------------------------------------------------------------
oCmd.Properties("PLSQLRSet") = False
' ------------------------------------------------------------------
oCmd = Nothing
oRs = Nothing
GetListaMotivos = True
' ------------------------------------------------------------------
Else
ReDim aData(0, 0)
Session("ASPDataGrid") = aData
Session("SIZE_PAGINA") = 0
' ------------------------------------------------------------------
oCmd.Properties("PLSQLRSet") = False
' ------------------------------------------------------------------
oCmd = Nothing
oRs = Nothing
' ------------------------------------------------------------------
GetListaMotivos = False
End If
No he encontrado el motivo para que el método no sea reconocido, ya que en realidad pertenece al ADODB.Recordset
, y no debería ser afectado por el cambio de conector o de versión de Windows...
De hecho, tuve que reemplazar también este segmento, porque TAMPOCO lo reconoce:
If Not oRs.Eof Or Not oRs.Bof Then