FiveTech Software tech support forums

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

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

... Aadd(Arayx,{_Rds_:Fields('Documento'):Value, ; _Rds_:Fields('Apellido'):Value, ; _Rds_:Fields('Nombre'):Value, ; _Rds_:Fields('_'):Value}) _Rds_:MoveNext() Enddo _Rds_:Close() _Cnx_:Close() Return(Nil) // **********************[ JACGSOFT ]************************** // Function Connect_Sql(_Cnx_,_Usu_,_Cla_) ...

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

... VPP3:=ALLTRIM(VPP3) ENDIF APPEND BLANK REPLACE c1_DBF WITH ALLTRIM(STR(VPP1)) ,; c2_DBF WITH ALLTRIM(STR(VPP2)) ,; c3_DBF WITH ALLTRIM(VPP3) oRset:MoveNext() ENDDO oRset:Close() SELECT 1 USE

... .. again, Rao has simplified a lot of this .. but you still need to understand the methods for cursor movement .. addNew, find, filter, update,movenext, movetop, eof, bof .. etc .. notice there is no need for record locking .. the ole provider handles all of that. Rick Lipkin

... cOCUPACION := oRecordSet:Fields("ocupacion"):value MSGINFO(CRFC + CRLF + CNOMBRE + CRLF + CCORREO + CRLF + COCUPACION) oRecordSet:MoveNext() Enddo EndIf Return NIL Veo todos los registros sin problema de la tabla Usuarios SQL, el problema es para agregar datos: Var1:="AAA0100101FFF" ...

... as ::Skip( n ). This method is created for compatibility with ADO syntax 62. MoveFirst() Same as GoTop(). 63. MoveLast() Same as GoBottom() 64. MoveNext() Same as Skip( 1 ) 65. MovePrevious() Same as Skip( -1 ) 66. OemToAnsi() Internal Internally used when ::lOemToAnsi is set to .T. 67. OrdDescend( ...

... to the same record even after sorting and / or filtering, if the record is not deleted. GoTop(), GoBottom(), Skip( n ) MoveFirst(), MoveLast(), MoveNext(), MovePrevious(), Move( n ) Work similar to DBF and RecordSet, navigating in the sorted order, respecting filters. OrdKeyCount(), OrdKeyNo(), ...

... ):Value // also works compatible with ado oRs:GoTop(), GoBottom(), etc methods also can be used in addition to MoveFirst(), MoveNext(), etc. - No need to check if the recordset is empty or not while using the navigation methods. // TDATABASE syntax oRs := TRecSet():New( , ...

... fetched all records. No more records else for n := 1 to oRs:Fields:Count() aRow[ n ] := oRs:Fields( n - 1 ):Value next n AAdd( aData, aRow ) oRs:MoveNext() endif If you like, I give you here a shortcut code for the above: if ! oRs:Eof()   AAdd( aData, oRs:GetRows( 1, 0 )[ ...

... stod( substr( ttos( tDate ), 1, 8 ) ))  As far as ADO .. the code is the same AddNew(), Update(), MoveNext(), etc. One thing you will have to know .. when you create your Sql statements .. Ms Access uses a # sign to delimit the Date variable and ...

...  := {}oRs:MoveFirst()do while ! oRs:Eof()   AAdd( aTipos, oRs:Fields( "TIPO" ):Value )   oRs:MoveNext()enddooRs:MoveFirst()  Now let us see if we have better alternatives. Recordset has a method GetRows() which reads entire record ...

... int, [optional] VARIANT, [optional] VARIANT ) STDCALL dispatch FUNC void Move( [in] USERDEFINED, [optional] VARIANT ) STDCALL dispatch FUNC void MoveNext() STDCALL dispatch FUNC void MovePrevious() STDCALL dispatch FUNC void MoveFirst() STDCALL dispatch FUNC void MoveLast() STDCALL dispatch FUNC ...

Ruben,

Por que utilizas un array si te puedes mover perfectamente con los metodos MoveNext, MovePrevius MoveFirts y MoveLast ??

Slds