Exportar consulta a CSV

[FD2004]

Hola buen día.

Hay alguna forma nativa de guardar una consulta SQL generada por un TQuery [que visualizo en un DBGrid] directamente a un texto CSV ?

Busco algo como la función exportToSpreadSheet de Paradox.

Busqué y encontré códigos y referencias a componentes, pero no encontré nada inmediato.

Gracias,

Lucio

[delphi.com.ar]

No conozco nada inmediato, pero puedo sugerirte unos componentes que yo he desarrollado, y puedes bajarlo de:http://www.torry.net/db/access/db_bd...expsuitsrc.zip

Saludos!

[Neftali [Germán.Estévez]]

Una sencilla búsqueda en los foros, da bastantes resultados.

[FD2004]

Gracias Federico, estos fuentes de torry.net los conozco, pero me parece muy largo para remplazar una función de una línea.

Estimado Neftalí: navegué todos los hilos antes de preguntar, si conoces uno que responda mi pregunta, direcciónamelo, por favor.

Muchas gracias de nuevo y feliz Pascua,

Lucio

[delphi.com.ar]

Te recomiendo este hilo:
http://www.clubdelphi.com/foros/show...23&postcount=2

[Drahcir]

Yo utilizo este:

Código Delphi [-]
 
procedure TOdExportaDatos.DataSetToCsv(pDataSet : TDataSet; psRutaFichero : String);
var
  i : Integer;
  voFichero : TStringList;
  vsLinea : String;
  vsBookMark : TBookmarkStr;
begin
  vsBookMark := pDataSet.Bookmark;
  voFichero := nil;
  try
    voFichero := TStringList.Create;
    // Ponemos la cabecera
    vsLinea := '';
    for i := 0 to pDataSet.FieldCount - 1 do
      if pDataSet.Fields[i].Visible then
        vsLinea := vsLinea + '"' + pDataSet.Fields[i].DisplayName + '",';
    voFichero.Add(vsLinea);
    // Insertamos los registros
    pDataSet.DisableControls;
    pDataSet.First;
    while not pDataSet.Eof do
    begin
      vsLinea := '';
      for i := 0 to pDataSet.FieldCount - 1 do
        if pDataSet.Fields[i].Visible then
          vsLinea := vsLinea + '"' + pDataSet.Fields[i].AsString + '",';
      voFichero.Add(vsLinea);
      pDataSet.Next;
    end;
    // Lo guardamos en disco
    voFichero.SaveToFile(psRutaFichero);
  finally
    FreeAndNil(voFichero);
    pDataSet.Bookmark := vsBookMark;
    pDataSet.EnableControls;
  end;
end;

Se llama de la siguiente manera:

DataSetToCsv(dsXXXX.DataSet, 'c:\Fichero.csv');

... o bien utilizando un SaveDialog.

[delphi.com.ar]

Empezado por Drahcir

Yo utilizo este:

Particularmente te sugiero el código que pase en el mensaje anterior, por una sencilla razón: En este código estas cargando toooodo el DataSet en un TStringList, y el TStringList esta alojado en memoria, por lo que si quiero generar un archivo de un DataSet grande.... ¡Imagina las consecuencias!
En el código que sugerí lo escribe directamente un un TStream, que si utilizas un TFileStream como en la función DataSetToFile, el dataset es escrito directamente en un archivo...

Saludos!

[Drahcir]

Lo que acabas de explicarme puede que me resuelva otro problema que he comentado en otro hilo.
Efectivamente yo estoy exportando el DataSet completo y me ha aparecido el problema de que necesito exportarlo a 4 ficheros .csv diferentes dependiendo del valor de un campo, no puedo crear DataSources y estoy un poco perdido. Voy a hechar un ojo a ver si puedo adaptarlo a mis necesidades.

Muchas gracias.