FiveTech Software tech support forums

... UID=root; PWD=123") oRecordSet := TOleAuto():New("adodb.recordset") oRecordSet:LockType := adLockOptimistic oRecordSet:CursorType := adOpenKeyset oRecordSet:ActiveConnection(oConexionAdo) oRecordSet:Source := "SELECT * FROM CARGOS" oRecordSet:Open() oRecordSet:AddNew() oRecordSet:Fields("Codigo"):Value ...

... AADD(aFields,{"SCI", "SCI" }) AADD(aFields,{"Length", "LEN" }) oConexionAdo:Open(oOpen) oRS:LockType := adLockOptimistic oRS:CursorType := adOpenKeyset oRS:ActiveConnection(oConexionAdo) oRS:Source := "Select * from hvidata" // tu query aqui oRS:Open() oRS:MoveFirst() DO WHILE !oRS:eof() ...

... . También lo puedes pasar a un array para visualizarlo con un browse: #define adOpenForwardOnly 0 #define adOpenKeyset 1 #define adOpenDynamic 2 #define adOpenStatic 3 #define adLockReadOnly 1 #define adLockPessimistic 2 #define adLockOptimistic 3 #define ...

... requiere xharbour y fivewin para harbour. Yo lo tengo trabajando en FWH 2.7 + xharbour (Es el xharbour que viene en la compra de fivewin) #define adOpenKeyset 1 #define adLockOptimistic 3 static function Guardar( ) local oConexionAdo := TOLEAUTO():New("adodb.connection") local oRs := TOLEAUTO():New("adodb.recordset") ...

... por eso no te puedes mover sobre el browse. Necesitas hacer lo siguiente: *---- CursorTypeEnum Values ---- #DEFINE adOpenForwardOnly 0 #DEFINE adOpenKeyset 1 #DEFINE adOpenDynamic 2 #DEFINE adOpenStatic 3 *---- LockTypeEnum Values ---- #DEFINE adLockReadOnly 1 #DEFINE adLockPessimistic 2 #DEFINE ...

// My First MySQL Program #define adOpenForwardOnly 0 #define adOpenKeyset 1 #define adOpenDynamic 2 #define adOpenStatic 3 #define adLockReadOnly 1 #define adLockPessimistic 2 #define adLockOptimistic 3 #define adLockBatchOptimistic 4 FUNCTION Main() LOCAL ...

... el recordset hago: ::oRs := CreateObject("ADODB.Recordset") ::oRs:Open( cQuery, uConn, nCursorType, nLockType, nOptions ) donde nCursorType es adOpenKeySet, nLockType es adLockOptimistic y nOptions es adCmdUnknown He comprobado, y realmente el registro no se ha movido, comprobado entre la lectura ...

... el recordset hago: ::oRs := CreateObject("ADODB.Recordset") ::oRs:Open( cQuery, uConn, nCursorType, nLockType, nOptions ) donde nCursorType es adOpenKeySet, nLockType es adLockOptimistic y nOptions es adCmdUnknown He comprobado, y realmente el registro no se ha movido, comprobado entre la lectura ...

... 'MyValue' I hope this helps get you started might come in handy constants... //---- FileOpenEnum Values ---- #define adOpenForwardOnly 0 #define adOpenKeyset 1 #define adOpenDynamic 2 #define adOpenStatic 3 //---- LockTypeEnum Values ---- #define adLockReadOnly 1 #define adLockPessimistic 2 #define ...