FiveTech Software tech support forums

... misma situación, asigno valores de forma dinámica, desde un cursor SQL bien sea TODBC o EAGLE creo los campos mediante METHOD InitFields() CLASS Ttable AEVAL(::aFields,{|a,n| __objAddData( Self, a[1] , CTOEMPTY(NIL,a[2],a[3] ) ) }) Ahora los campos me devuelve valores NIL

... diferentes bases de datos ) - Funcionan en cualquier sistema: modo texto, FWH, -, miniGUI, etc - HDOTools que tiene muchas utilidades: RDD, ORM, TTable etc. Ejemplos: //-----------------------------------------------------------------------------// Proyecto: HDO lib// Fichero: tutor01.prg// Descripcion: ...

... de Petewg son muy buenos para conocer sobre harbour internals. Los fuentes de Harbour tambien: El otro dia estuve viendo una clase en Samples, TTable, que me dejó muy sorprendido: Al menos en mi caso lo más cercano a lo que ocurre es que no hemos, ni tan siquiera, mirado los ejemplos de Harbour ...

... de las anteriores esta una clase TDataBase que entre otras cosas tiene la posibilidad de hacer copias de una base de datos MySQL. Y una clase TTable con la que se puede hacer un mantenimiento de una tabla sin la necesidad saber SQL. Estas dos ultimas están en PRG, e ilustran como se puede ...

Saludos Gracias por la pregunta, Para la lectura de datos, realice una clase llamada TTABLE clonada desde la clase tdbodbcd, utilizando un arreglo reemplazando el uso de tablas DBF, tambien la utilizo de manera general para MySQL , SQL SERVER sin tener que realizar ...

Saludos Gracias por la pregunta, Para la lectura de datos, realice una clase llamada TTABLE clonada desde la clase tdbodbcd, utilizando un arreglo reemplazando el uso de tablas DBF, tambien la utilizo de manera general para MySQL , SQL SERVER sin tener que realizar ...

Manuel Gracias, En mi caso, utilizo tablas enlazadas con inner, vistas, subconsultas, en una consulta , desconozco si podré utilizarlo con la sintaxis que publicase. Saludos Sr Juan, Gracias por sus ejemplos. Su clase tiene algun metodo para la lectura de tablas mediante SELECT ? De ser asi, algun ...

Manuel
Gracias,
En mi caso, utilizo tablas enlazadas con inner, vistas, subconsultas, en una consulta , desconozco si podré utilizarlo con la sintaxis que publicase.

Juan en Eagle1 hay una RDD para usar los camandos DB...() de las dbf directamente en MySQL E1RDD mira este ejemplo: //---------------------------------------------------------------------------////  AUTOR.....: Manuel Expósito Suárez   Soft4U 2002-2010           &n...

Hola Juan, me alegro mucho de lo contento que estás con la vieja Eagle1... E1 tiene un metodo para hacer copias/restauracio de una bases de datos: Mira este ejemplo y el metod export(): //----------------------------------------------------------------------------////  AUTOR.....: Manuel Expósito Su...

Compin,
Puedes ver el metodo Commit
METHOD Commit(cWhere)

Para eliminar registros utilizo función SQLDELETE(cTable,cInner,cWhere,oDb)

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:...

/* // Clase Ttable // Creado por Juan Navas jnavas@datapronet.com // Objetivo: Insertar/Modificar Registros en Base de datos SQL mediante Objeto // Lee todos los archivos del directorio y los guarda en la tabla MYTABLE, por ahora ...