Exportar con sql

[odrack]

Un saludo a todos en el foro.

Tengo un pequeño problemita con esta consulta (SQL).

Código Delphi [-]
    query2.Close;
    query2.SQL.Clear;
    query2.SQL.add(' select numreferencia, clvarticulo, descripcion, fecharecepcion, cantidad');
    query2.sql.add(' INTO OUTFILE "C:/'+edit2.text+'.csv" FIELDS TERMINATED BY "," OPTIONALLY ENCLOSED BY ","');
    query2.SQL.add(' LINES TERMINATED BY "\n"');
    query2.SQL.add(' FROM '+TBL+' where (fecha between '+quotedstr(fecha1)+' and '+quotedstr(fecha2)+')');
    query2.ExecSQL;

Esto hace que me exporte un archivo a excel (*.CSV) por medio de TQuery.
Con esto no hay ningun problema ya que lo ejecuta bien, el problema que tengo es que se guarda el archivo en la maquina servidor y no en mi equipo local, debo aclarar que es una aplicación que trabaja en red. ¿Como puedo guardar el archivo en mi equipo y no en el servidor?

Esto lo hago asi ya que en codegear delphi 32 no he encontrado los archivo para poder exportarlos por medio de TExcelAplication

Saludos!!

[[Al González]]

Este hilo puede servirte: http://www.clubdelphi.com/foros/showthread.php?t=62307

En cuanto a los componentes Servers, como TExcelApplication, la documentación más completa la encontrarás en las páginas de MSDN, ya que son envolturas de clases de Microsoft adaptadas a Delphi Win32.

Saludos.

Al.

[[coso]]

hola, puedes exportarlo directamente a formato .xls

Código Delphi [-]
     q.Active := false;
     q.SQL.Text := 'select * into ["Excel 8.0;Database=c:\test.xls"].[hoja1] from tabla'; 
     q.ExecSQL;

y la ruta sera relativa (aunque no estoy seguro) a tu aplicación.

[odrack]

Saludos

He visto las dos formas y la opcion de Al González trabaja con Interbase y yo trabajo con MySQL, y no he podido hacer mucho con esto y se le agradece la ayuda, en cuanto al codigo de coso

Código Delphi [-]
 q.Active := false;
     q.SQL.Text := 'select * into ["Excel 8.0;Database=c:\test.xls"].[hoja1] from tabla'; 
     q.ExecSQL;

me manda un error aqui ["Excel 8.0;Database=c:\test.xls"].[hoja1] from usuarios.

La version que ultilizo de excel es office excel 2007, tiene algo que ver??

[[coso]]

q raro, a mi me funciona asi tal cual y no me ha fallado...no tendras algun errorcillo de sintaxis? quiza sea lo del Excel 2007

[[Al González]]

Empezado por odrack

Saludos

He visto las dos formas y la opcion de Al González trabaja con Interbase y yo trabajo con MySQL, y no he podido hacer mucho con esto...

Oiga señor, ¿leyó el mensaje #8 de ese hilo?

Empezado por odrack

...en cuanto al codigo de coso

Código Delphi [-]
 q.Active := false;
     q.SQL.Text := 'select * into ["Excel 8.0;Database=c:\test.xls"].[hoja1] from tabla'; 
     q.ExecSQL;

me manda un error aqui ["Excel 8.0;Database=c:\test.xls"].[hoja1] from usuarios.

La version que ultilizo de excel es office excel 2007, tiene algo que ver??

No creo que MySQL acepte esa sintaxis, probablemente sólo funciona con SQL Server. Creo que Coso pensó que lo estabas haciendo con SQL Server, en parte porque no mencionaste al principio el motor usado.

Saludos.

Al.

[[coso]]

no, no me fije en el motor, pero creia que era algo general que se puede tratar una hoja de excel como base de datos, siempre que especifiques el driver. Al menos, esta es la manera general de especificar un driver y un fichero...no recuerdo de donde lo saque X/