FiveTech Software tech support forums

... ADOX again and it work so far ...

FUNCTION FW_ADOX_CreateExcelTable( oCn, cTable, aStruct )
LOCAL oCat := CreateObject( "ADOX.Catalog" )
LOCAL oTable, aFld, n, cType
LOCAL oCol
LOCAL nType, nLen, i, iMax, cName

oCat:ActiveConnection := oCn

cTable := LOWER( cTable )
oTable := CreateObject ...

... migrando de xHarbour a Harbor 3.2

La siguiente línea muestra un error de compilación.

REDEFINE GET ::oSay[7] VAR TFiltraCR():RetCommand(cr():oTable) ID 102 OF ::oFld:aDialogs[3] ACTUALIZAR IMAGEN DE SOLO LECTURA "@!"

\sis\fsql901\ctarec\tcr.PRG(341) Error E0022 Valor l no válido ':'

He ...

Creo que ya te entiendo!!!
En vez de esto:
__objSendMsg( Self, "oRs" + oTable:cFile, oSys:oConn:Query( cSelect ) )

pon esto
__objSendMsg( Self, "_oRs" + oTable:cFile, oSys:oConn:Query( cSelect ) )

Hola Ricardo.
Tu data está basada en una variable con el nombre formado por "oRs" + oTable:cFile
Eso es complicado de trata directamente el el método pero para ello tendrías que usar macros.
Por otro lado me aventuro a afirmar sin ver todo el código que estás creando data a la clase y no al objeto ...

Buenas tardes.
Compañeros, declaro una DATA en mi clases con el comando __objAddData( Self, "oRs" + oTable:cFile ),
Como puedo (dentro del mismo method donde la declaro) hacer referencia a ella (ya como data de la clase) ?

Muchas Gracias

... de pincel/brocha. Si no se especifica o si algún
elemento es nulo, se utilizan colores predeterminados.

- METHOD PrintTable( nRow, nCol, oTable, nWidth, nHeight, [oFont], [lBorder], ;
[cTitle], [cUnits] )
Útil para incrustar una tabla simple y pequeña dentro de un área especificada en un ...

... aColors: Array of colors or Brush objects. If not specified or if any element
is nil, default colors are used.

- METHOD PrintTable( nRow, nCol, oTable, nWidth, nHeight, [oFont], [lBorder], ;
[cTitle], [cUnits] )
Useful for embedding a simple and small table within a specified area in a ;
print ...

... Array of colors or Brush objects. If not specified or if any element is nil, default colors are used.

METHOD PrintTable( nRow, nCol, oTable, nWidth, nHeight, [oFont], [lBorder], [cTitle], [cUnits] )

Useful for embedding a simple and small table ...

... Table( cTable ) --> ORM_Table Object
Close()

- Class ORM_Table()
Se puede crear una instancia del objeto de tabla mediante una llamada

oTable := oConnection:Table( cTableName )
o
oTable := ORM_Table():New( oConnection, cTableName )

Métodos:
Navegación: First(), Last(), Next(), Prev ...

... cTable ) --> lExists
Table( cTable ) --> ORM_Table Object
Close()

- Class ORM_Table()
Table object can be instantiated either by calling
oTable := oConnection:Table( cTableName )
or
oTable := ORM_Table():New( oConnection, cTableName )
Methods:
Navigation: First(), Last(), Next(), Prev ...

Saludos
Afirmativo
La clase realiza UPDATE si tiene registros,

oTable:=OpenTable(cSql)

IF oTable:RecCount()=0
oTable:AppendBlank()
ENDIF

oTable:Replace("CAMPO1,nValor)
oTable:Commit(oTable:cWhere) // Si oTable:cWhere esta vacio, INSERT INTO FIELDS,VALUES, caso contrario UPDATE TABLE SET
oTable ...

Saludos
Afirmativo
La clase realiza UPDATE si tiene registros,

oTable:=OpenTable(cSql)

IF oTable:RecCount()=0
oTable:AppendBlank()
ENDIF

oTable:Replace("CAMPO1,nValor)
oTable:Commit(oTable:cWhere) // Si oTable:cWhere esta vacio, INSERT INTO FIELDS,VALUES, caso contrario UPDATE TABLE SET
oTable ...

Saludos
Afirmativo
La clase realiza UPDATE si tiene registros,

oTable:=OpenTable(cSql)

IF oTable:RecCount()=0
oTable:AppendBlank()
ENDIF

oTable:Replace("CAMPO1,nValor)
oTable:Commit(oTable:cWhere) // Si oTable:cWhere esta vacio, INSERT INTO FIELDS,VALUES, caso contrario UPDATE TABLE SET
oTable ...

... include "FiveWin.ch"

STATIC oServer,oDb,bSqlDate,cTypeBD

FUNCTION MAIN()
LOCAL cIp :="localhost"
LOCAL cLogin:="root"
LOCAL cPass :=""
LOCAL oTable
LOCAL aFiles:=DIRECTORY("*.*"),I

SET DATE FREN
SET CENTURY ON

cTypeBD:="MYSQL"

IF !CONECTAR(cIp,cLogin,cPass)
SALIR()
RETURN NIL
ENDIF ...

Afer
::oTable := oCn:RowSet( 'produtos', 20) // page with 20 rows
Add
::oTable:lAutoExpand := .t. 

Please redefine XBROWSE with column syntax to avail all features of xBrowse
Eg:   REDEFINE XBROWSE ::oBrw ID 100 OF ::ODLG ;      DATASOURCE ::oTable ;  &nbsp ...