FiveTech Software tech support forums

With ADO we can use MoveFirst(), Move(), etc. when the recordset is empty. It is the normal practice to check (whether fivewin, vb, c#, etc) oRs := FW_OpenRecordSet( ... )if oRs == nil   ? "failed to open"else  ...

What about calling oData:MoveFirst() before starting the Do while Loop ?

Amigos del foro:

En un record set tenemos los comandos

oRs:MoveFirst()
oRs:MoveLast()
oRs:MoveNext()
oRs:MovePrevious()

La pregunta, existe el comando para moverse a un registro especifico?, algo como
oRs:Move(30) <===== movernos al registro 30

Saludos

... el problema surge cuando despues de recorrer y grabar el primer registro del recordset, ya no se puede mover hacia ningun lado, da errores de movefirst, recordcout, update etc, es como si el recordset se hubiera cerrado, pero no es asi, está abierto. Amigo Leandro, esa fue una de las primeras ...

... el primero si tengo problemas al modificarlo (ya sea cambiando datos o sin cambiarlos) en cuanto pasa el primer registro, ya no puedo hacer Move, MoveFirst, ni Update, ni UpdateBatch ni nada, el recordset esta abierto y los datos los grabo en un dbf para comprobar que no haya discordancia con ...

hi,

i can use ADO Method MoveFirst, MoveLast, MoveNext and MovePrevious to move to a Position but how to get the actual "Position" in ADO Recordset
RECNO() does not work with EXCEL ...

how to find out how many ROW Recordset have

Just before the definition of xbrowse, please ensure that the oRs is open and not empty and set oRs:MoveFirst().

... ( "Zona" ) ; // "zona",; ID 181 of odlg ; font ofont1 oBrow:bLogicLen = { || oRS1Cli:RecordCount } oBrow:bGoTop = { || oRS1Cli:MoveFirst() } oBrow:bGoBottom = { || oRS1Cli:MoveLast() } oBrow:bSkip = { | nSkip | Skipper( oRs1Cli, nSkip ) } oBrow:lcellstyle := .f. oBrow:nlinestyle ...

... 1, 2) + Substr(whora, 4, 2)                                                                      lpdf:=.f.   //pasar a .t.     oRs:movefirst()          DEFINE FONT oFont1 NAME "Arial" SIZE 0,-10     IF lPdf:=.t.          PRINT oPrn FILE ".\PDFS\" + wfecha ...

Thanks for your help .

Here is the code that work for me .

oRs:Filter := oLbx:aSelected
oRs:MoveFirst()
do while !oRs:Eof()
msgalert(oRs:Fields(1):Value)
oRs:MoveNext()
enddo

Thanks

Philippe

Amigo:

cQuery := 'select * from reporte where mes_fantasma = ' + Str( nMes ) + ' order by fecha DESC'
oQry := o : oRep : RowSet( cQuery )

// Después de crear el record set (oQry)
oQry:SORT := "CAMPO1,CAMPO2,etc ASC" // o DESC
oQry:MoveFirst()

Saludos

Amigo:

Debes ordenar el record set así:

oRsGas:SORT := "GAS_USU,GAS_GAS ASC" // o DESC
oRsGas:MoveFirst()

Saludos

... CATCH oError MsgStop( "No se ha podido crear el RECORDSET CONSULMARKET "+ oError:Description ) RETURN .F. END SELECT 1 USE MARKET oRset:MoveFirst() WHILE !oRset:EOF VPP1:=SPACE(1) VPP2:=SPACE(1) VPP3:=SPACE(1) VPP1:=oRset:Fields( "campo1_access" ):Value VPP2:=oRset:Fields( ...

Solamente añadir que todos los comandos como Movefirst, MoveLast, etc, funcionan perfectamente, sólamente el comando Seek, Find, Locate, que la verdad es que no sé si lo estoy haciendo del modo correcto.

... '"+cUbica+"'"  Filter is faster than Find .. if you use the find method you have to rewind the recordset to the beginning .. oRsCli:MoveFirst() .. then use the find method .. as you will notice ( for clarity ) I use brackets [] to designate table fields .. and character values ( ...