[FireBird] Exporter un IBQuery vers un fichier csv

function TDM.ExportIBQToCSV( const sSQL, sFileName: string; IBQ: TIBQuery): Boolean;
var
OutFile: TIBOutputDelimitedFile;
begin
result := false;

if not assigned(IBQ) then Exit;

with IBQ do begin
Close;
SQL.Clear;
SQL.Add(sSQL);
Prepare;
Open;
end;

OutFile := TIBOutputDelimitedFile.Create;
try
with OutFile do begin
Filename := sFileName;
ColDelimiter := ';';
RowDelimiter := #13#10; // #13 + #10;
OutputTitles := true;
end; // with
IBQ.BatchOutput(OutFile)
finally
OutFile.Free;
end; // try-finally
if FileExists(sFileName) then result := true;
end;

procedure Tf_synchro.Button1Click(Sender: TObject);
begin
if DM.ExportIBQToCSV('SELECT * FROM Matable', 'c:annonce.csv', DM.IBQ_Annonce)=false then
showmessage('erreur d''export vers csv');
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour01/07/2004
VisualisationVu 1658 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Base de donnees
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur