FiveTech Software tech support forums

... oCSql:oConn:OpenSchema(adSchemaTables) oTables:Filter := "TABLE_TYPE = 'TABLE'" While !oTables:Eof() aAdd(aTables,oTables:Fields(2):Value) oTables:MoveNext() End oTables:Close() //Cierro RecordSet Saludos

... "record, you have to Add one first" MsgAlert( SAYING ) RETURN(NIL) ENDIF IF MsgYesNo( "Are you SURE you want to DELETE this?" ) oRs:Delete() oRs:MoveNext() IF oRs:eof .and. .not. oRs:bof oRs:MoveFirst() ENDIF ENDIF oBROW:Refresh(.T.) SysReFresh() RETURN(NIL) //------------------------------- ...

... oDatos:=oSql:Execute() Mi pregunta: cuales son los métodos y datos que se pueden manejar desde oDatos? oDatos:MoveFirst(), oDatos:EOF(), oDatos:MoveNext(), oDatos:Fields:Count() y oDatos:RecordCount() siempre me devuelve -1 y eso me representará problemas a la hora de hacer una consulta del ...

... STATIC FUNCTION SKIPPER(oRsx,nSkip) LOCAL nRec := oRsx:AbsolutePosition oRsx:Move(nSkip) IF oRsx:EOF; oRsx:MovePrevious(); ENDIF IF oRsx:BOF; oRsx:MoveNext(); ENDIF RETURN(oRsx:AbsolutePosition() - nRec) FUNCTION ORDLIST() IF ORDLIST=0 ORDLIST=1 RETURN 1 ELSE ORDLIST=0 RETURN 2 ENDIF RETURN 1 FUNCTION ...

... Source=bbdd.mdb", 1, 3 ) // WBROWSERECORDSET( oRs ) // TCBROWSERECORDSET( oRs ) while !oRs:eof() msginfo(oRs:fields("CIF"):value) oRs:Movenext() end while oRs:Close() RETURN NIL Gracias.

... directamente el recordset para mostrar en el browse. Lo que veo que te hace falta es colocar el listbox:bline:={||} donde se especifica el oRs:MoveNext()........ Personalmente tuve problemas al mostrar en el browse directamente el recordset, y para no hacerme lío lo que hice es pasar todo el ...

... los datos WHILE !oRs:Eof() aReg := {""} for nPos := 0 to oRs:Fields:Count() -1 AAdd(aReg,oRs:Fields(nPos):Value) next AAdd(aDatos,aReg) oRs:MoveNext() END Espero que sea lo que necesitas. Esto me funciona en MySQL, supongo que debe funcionar en acces. Un saludo Marcelo Jingo

... "DELETE FROM LWMFS WHERE IsNull(FILE_NUM)" ) oCn:Close() Various Methods for ADO recordsets oRs:Delete() - delete oRs:MovePrevious() - skip -1 oRs:MoveNext() - skip +1 oRs:MoveLast() - go bott oRs:MoveFirst() - go top oRs:AddNew() - append blank oRs:Update() - commit oRs:Find() - seek, locate some ...

... never made the code distinction between an ( open ) recordset and an ( execute ) connection .. I think I have all the recordset movements : oRs:MoveNext() = skip :MoveFirst() = go top :MoveLast() = go bott :Addnew() = Append :Update() = commit oRs:Fields( "FIELD" ):Value := 'MyValue' Replace ...

... // tomo los valores de access de los campos y los pongo en la dbf de acuerdo al nombre en el arreglo NEXT oRS:MoveNext() ENDDO oRS:Close() oConexionAdo:Close() RETURN NIL salu2 paco

... los datos a un arreglo WHILE !oRs:Eof() aReg := {} for nPos := 0 to oRs:Fields:Count() -1 AAdd(aReg,Value(oRs,nPos)) next AAdd(aDatos,aReg) oRs:MoveNext() END oRs:Close() //////////////////////////////// Luego de pasado al arreglo lo puedes visualizar como tal Puede ayudarte de mucho una excelente ...

... + ; 'Initial Catalog= pubs;UId=sa;PWD=; ') oEvents = CreateObject('adoevents') nError = oVFPCOM.BindEvents(oRecordSet, oEvents) oRecordSet.MoveNext DEFINE CLASS adoevents AS Session PROCEDURE WillMove(adReason, adStatus, pRecordset) WAIT WINDOW 'Moving one record...' NOWAIT ENDPROC ENDDEFINE ...

... ), i ) * oMapPoint:ActiveMap:ActiveRoute:DriverProfile:StartTime := MapTime( oRecordSet:Fields:Item(9):Value ) * ENDIF oRecordSet:MoveNext() i++ ENDDO // Return a Waypoints collection object oWaypoints := oMapPoint:ActiveMap:ActiveRoute:Waypoints // Loop thru WayPoints collection ...

... ) oCn:Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=venda.mdb" ) txSql := "SELECT * FROM imovweb; " oDados := oCn:Execute( txSql) oDados:MoveNext() -- Funciona oDados:MoveFirst() -- NÃO Funciona oDados:MoveLast() -- NÃO Funciona oDados:RecordCount() -- NÃO Funciona ****************************************************

... ) oCn:Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=venda.mdb" ) txSql := "SELECT * FROM imovweb; " oDados := oCn:Execute( txSql) oDados:MoveNext() -- Funciona oDados:MoveFirst() -- NÃO Funciona oDados:MoveLast() -- NÃO Funciona oDados:RecordCount() -- NÃO Funciona ****************************************************