FiveTech Software tech support forums

... el get 3) muevo el scroll el error aparece. otra cosa: el dato lo tomo de mysql, que esta declardo como MEMO y si hago esto: vgets:= memored(oQry:fieldget("texto")) vgests queda vacio. si hago directamente: vgets:= oQry:fieldget("texto") vgets si queda con datos. https://imagizer.imageshack.com/img924/5783/fJncRj.gif

... en formato BMP en una tabla MySql Las Imagenes las recupero asi: oPict := TBitMap():Define() ... oPict:LoadFromString( HB_Base64Decode( oQuery:FieldGet( "ENTRADA" ) ) ) // Se lee desde la tabla MySql con TDolphin ... oReporte:SayBitmap( aCoors[ 1 ], aCoors[ 2 ] + 1.0, oPict, 1.2, ...

Hola. usando harbour y Fwh la ultima. Me arroja estos errores: [1]:iLink32.Exe -Gn -q -aa -Tpe -x @testMaria.bcl Error: Unresolved external 'WinMain' referenced from X:\HARB\BCC7\LIB\C0W32.OBJ Error: Unresolved external '_hb_vmProcessSymbols' referenced from X:\PROYECTOS\TEST\MARIA\OBJ\MARIA.OBJ Err...

In FIRST xBr I do oBrw:bChange:= { || ( oRs2:SetFilter( 'subcli= oRs:Fieldget(2) ' ) , oRs2:Update(), xbCli:Refresh(),xTbx:SetFocus() ) } Hi friends. I have two xBrowse, the one with clients and the two with accounts. (one clients has more than 1 account) ...

El el PRIMER xBrowse hice oBrw:bChange:= { || ( oRs2:SetFilter( 'subcli= oRs:Fieldget(2) ' ) , oRs2:Update(), xbCli:Refresh(),xTbx:SetFocus() ) } oRs2 es la cosulta para el segundo oBrw2 y subcli es el campo. oRs:FieldGet(2) contiene el número por el que quiero ...

Gracias Marc.

Asi quedó.
FWCONNECT oCon HOST 'localhost' USER 'root' PASSWORD '' DB dbases

oRs := oCon:RowSet( "select * from usuario where `idusu` = &1", { cUsuario } )
? oRs:FieldGet(4)

Saludos.

... 'localhost' USER 'root' PASSWORD '' DB dbases oRs := oCon:RowSet( "select * from usuario where `idusu` = &1", { cUsuario } ) ? oRs:FieldGet(4) >>>>Este dato quería. Gracias.

... 'localhost' USER 'root' PASSWORD '' DB dbases oRs := oCon:RowSet( "select * from usuario where `idusu` = &1", { cUsuario } ) ? oRs:FieldGet(4) Saludos.

perhaps fieldget(n)
but I need to have the naArea

... tried putting the FW_SetUnicode (.T.) Instruction at the start of my system, I already tried trying to convert the field with UTF16toUTF8 (oBase: FieldGet (7)), but nothing. I am using Eagle1 for connection with MySQL and FWH 19.09 Does anyone know how to correctly present these characters in ...

... Ya probé colocando al inicio de mi sistema la instrucción FW_SetUnicode(.T.), ya probé tratando de convertir el campo con UTF16toUTF8( oBase:FieldGet(7) ), pero nada. Estoy utilizando Eagle1 para la conexión con MySQL y FWH 19.09 Alguien sabrá como presentar correctamente estos caracteres ...

... si DbSetOrder(1) si DBSKIP si DBSKIP() ? DELETE ALL FOR EMPTY( FIELD->CODIGO ) .AND. EMPTY( FIELD->NOMBRE ) si EOF si FIELD->CODIGO si Fieldget si Fieldput si FOUND() ? INDEX ON FIELD->FAMILIA+FIELD->CODIGO TAG ARTICULOS1 FOR !Deleted() ? INDEX ON FIELD->SERIE + StrZero (FIELD->NUMERO,20 ...

oCurrentRs := oCn:Query( "SELECT * FROM CUSTOMER" )

oNewRow := oCn:Query( "SELECT * FROM CUSTOMER WHERE ID < 0" ) //Get an empty row (There is no customer has a negative id)

FOR nI=1 TO oCurrentRs:FCount()
oNewRow:FieldPut(nI, oCurrentRs:FieldGet(nI))
NEXT

//----------------------------------------------------------------------------// // Se define el MESSAGE de una columna para tomar y dar valores. static function GenDataField( oADODb, nPos ) Local cNameMethod := oADODb:aFldNames[ nPos ] //#ifdef __HARBOUR__ local nClassH := oADODb:ClassH __clsAddMs...