Hola amigos
Tengo unas bases de datos que tienen cada una entre 70 y 80 campos, lo que hace un poco tediosa las labores de crear archivos temporales para ciertos fines.
Hay alguna instruccion que me copie todos los campos del registro actual a otra base de datos (que obviamente tiene la misma estructura) o cual es la forma de hacerlo para no tener que usar las 60 asignaciones cada vez
Gracias.
BenD:
Dale una revisada a la sentencia APPEND FROM creo que te va a servir
Saludos
Gracias por tu interes Armando, pero para poder utilizar el APPEND FROM me tocaría cerrar las bases de datos y no es una opcion viable para mi en este momento, debido a que son utilizadas por otros modulos del sistema.
Los registros que quiero copiar al archivo temporal, provienen de una consulta SQL ADS.
Oppps...que pena, no había visto el modificador CONNECTION....parece que esa es la solucion a mi problema
Gracias por tu ayuda.....
En un entorno de red, APPEND FROM no requiere que el fichero actual de
base de datos se utilice en modo exclusivo o se bloquee con FLOCK(). A
medida que se añaden registros, CA-Clipper regula automáticamente los
conflictos de utilización de los nuevos registros.
Si lo que quieres es copiar todos los registros a una nueva base de datos temporal, simplemente COPY FILE o similar. Si lo quieres es copiar algunos registros, revisa la clase DATABASE puedes intentar hacer algo parecido al método Modified()
...
..
cDBF := "midbftemporal.dbf"
aStruct := c_movim->( dbStruct() )
//AADD( aStruct, { "COD_TAG", "C", 10, 0 } )
DbCreate( cDBF, aStruct )
..
..
cdf1->( dbAppend() )
FOR i:=1 to fcount()
cdf1->( fieldput( i, cdf2->fieldget(i) ) ) )
NEXT
...
..CONNECTION <nConnection>
This option specifies a numeric server connection handle. It is returned by a server connection function which establishes a connection to a database server, such as SR_AddConnection() of the xHarbour Builder SQLRDD. When CONNECTION is used, the APPEND FROM command appends data from a database on the server.