procedure SaveDataSetCSV; const adClipString = 2; ColumnDelimiter = ';'; RowDelimiter = #13#10; var s : String; fs : TFileStream; begin SaveDialog1.DefaultExt := '.CSV'; // creamos el nombre del archivo por defecto SaveDialog1.FileName := ADOTable1.TableName+SaveDialog1.DefaultExt; if SaveDialog1.Execute then begin // Obtenemos el dataset completo como CSV s := ADOTable1.Recordset.GetString(adClipString, ADOTable1.Recordset.RecordCount, ColumnDelimiter, RowDelimiter, ''); // Guardamos la cadena CSV como Archivo fs := TFileStream.Create(SaveDialog1.FileName, fmCreate); try fs.WriteBuffer(s[1], Length(s)); finally fs.Free; end; end; end;
Que lo disfruten ).
Saludos.