Consula sobre ADo

[Fernando Hernandez]

Buenos Dias
Con relacion a las conexiones via ADO, antes de la version 1.4, usaba la
funcion abajo detallada GETRUTA, para conseguir la existencia de la ruta en
la tabla de Oracle; el problema es que ahora en la funcion RECORDCOUNT,
siempre me envia -1, incluso he probado con otras tablas que tienen
informacion y siempre me regresa este valor y no la cantidad de registros
que tiene la tabla. Que podria ser, ?? Esta en la version 1.3b funcionaba
correctamente.
En espera de sus comentarios
OP_ORACLE es el string de coneccion a la base de datos y CLFILEEXP es el
codigo de la ruta, el cual he desactivado durante las prruebas.
//-------------------------------------------------------
Function GetRuta(clFileExp)
Local cbOracle,cRecOracle,clsqloracle,clreturn
cBOracle := CreateObject( "ADODB.Connection" )
cBOracle:ConnectionString:=op_oracle
cBOracle:Open()
cRecOracle:=CreateObject( "ADODB.Recordset" )
clsqlOracle ="SELECT * FROM PDA_RUTAS WHERE RUTA='R01'" //"+CLFILEEXP+"'"
cRecOracle:Open( clSQLOracle, cBOracle, 3, 3,)
clreturn=cRecOracle:RecordCount() // Aca me regresa -1
if clReturn=1
xVendedor := CRecOracle:Fields('Vendedor'):Value
xClock := iif(CRecOracle:Fields('Reloj'):Value = 'S',.t.,.f.)
xTipoVend := CRecOracle:Fields('TipoVendedor'):Value
Endif
cRecOracle:Close()
cRecOracle:= Nil
cbOracle:Close()
cbOracle:=NIL
Return clReturn
//-------------------------------------------------------

[ignacio]

Fernado,
RecordCount devuelve -1 cuando el cursor elegido no admite el uso de dicho
método, como puede ser el caso de un cursor 'forward only'
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
news:4651e30a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Buenos Dias
>
> Con relacion a las conexiones via ADO, antes de la version 1.4, usaba la
> funcion abajo detallada GETRUTA, para conseguir la existencia de la ruta
> en la tabla de Oracle; el problema es que ahora en la funcion RECORDCOUNT,
> siempre me envia -1, incluso he probado con otras tablas que tienen
> informacion y siempre me regresa este valor y no la cantidad de registros
> que tiene la tabla. Que podria ser, ?? Esta en la version 1.3b funcionaba
> correctamente.
>
> En espera de sus comentarios
>
> OP_ORACLE es el string de coneccion a la base de datos y CLFILEEXP es el
> codigo de la ruta, el cual he desactivado durante las prruebas.
> //-------------------------------------------------------
> Function GetRuta(clFileExp)
> Local cbOracle,cRecOracle,clsqloracle,clreturn
> cBOracle := CreateObject( "ADODB.Connection" )
> cBOracle:ConnectionString:=op_oracle
> cBOracle:Open()
> cRecOracle:=CreateObject( "ADODB.Recordset" )
> clsqlOracle ="SELECT * FROM PDA_RUTAS WHERE RUTA='R01'" //"+CLFILEEXP+"'"
> cRecOracle:Open( clSQLOracle, cBOracle, 3, 3,)
> clreturn=cRecOracle:RecordCount() // Aca me regresa -1
> if clReturn=1
> xVendedor := CRecOracle:Fields('Vendedor'):Value
> xClock := iif(CRecOracle:Fields('Reloj'):Value = 'S',.t.,.f.)
> xTipoVend := CRecOracle:Fields('TipoVendedor'):Value
> Endif
> cRecOracle:Close()
> cRecOracle:= Nil
> cbOracle:Close()
> cbOracle:=NIL
> Return clReturn
> //-------------------------------------------------------
>
>