Экспорт датасета в csv. Возвращает пустой файл
Добавлено: 12 авг 2007, 14:56
Собственно проблема в названии темы. Вопреки рекомендациям http://www.ibase.ru/devinfo/ibx.htm использую всё же не TIBSQL, а TIBQuery, т.к. есть пара вычисляемых в клиентском приложении полей. Код такой:
В результате получаем пустой файл размером 0 байт.
Windows XP SP2, BDS2006 (IBX тот который шёл вместе с BDS), Interbase 7.0.1
Код: Выделить всё
procedure TReportsFrm.BitBtn1Click(Sender: TObject);
var OutFile: TIBOutputDelimitedFile;
begin
OutFile:=TIBOutputDelimitedFile.Create;
OutFile.Filename:='MyCSV.csv';
OutFile.ColDelimiter:=';';
MyIBQuery.BatchOutput(OutFile);
OutFile.Free;
end;
Windows XP SP2, BDS2006 (IBX тот который шёл вместе с BDS), Interbase 7.0.1