Экспорт данных из Access в текстовый файл
Пишу на Delphi+EhLib+Jet
Есть оптимальный способ?
медленная работа программы из-за чего? Каким образом экспортируете? Код дали бы чтоли...
==============================
For I:= 1 to RCount do
For J:= 1 to FCount do
buf:=buf+';'+AdoTable1.Fields[J].Text;
...
Writeln(ToFile,buf); Думаю здесь узкое место, слишком много обращений к жесктому диску
==============================
Перепробовал множество вариантов
Остановился на этом:
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+Path+';Persist Security Info=False';
ADOComm.CommandText:= 'Select * INTO ' + '[' +
ExtractFileName(FileName) + ']' +
' IN ' + '"' + ExtractFilePath(FileName) + '"' + '[' + IsamFormat +
';]' + ' From ' + TableName;
ADOComm.CommandText := ADOComm.CommandText + ' order by ' + Sort+' DESC';
ADOComm.Execute;
Но есть недостаток, не возможности показать прогресс экспорта
P.S. оформляйте код пожалуста тэгами [ code ] [ /code ]
За раз скажем по 100 записей на
диск в файл сбрасывать...