Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Дек

Быстрый экспорт данных из dbf в Access

Posted by maloy under Delphi

kerby666

Не могу разобраться. Имеется Delphi 2007, ADO+Access. В базе всего одна таблица. Три поля. Записей планируется где-то от 10 до 20 тысяч. Данные должны экспортироваться из 1с. Это значит, что на выходе из 1С я могу иметь или txt (с разделителем), или xls или dbf. Можно выбрать что мне больше подойдет. А вот сам процесс экспорта из файла в Access не получается. Про txt вычитал, что вообще очень медленно получится. Суть дела такова, необходимо найти оптимальный и простой способ экспорта в Access. И по возможности с примерами. Спасибо!

Прик

Есть еще способ. Можно сказать, «мгновенный». Этим способом я загружаю в акесс более 200 тыс записей из dbf за 3 секунды. Собственно, это и есть тот самый способ (пост #54), только средствами Дельфи.

Код:


uses ComObj, AccessXP;

var
  Acc : TAccessApplication;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Acc := TAccessApplication.Create(Self);
  Acc.Connect;
  Acc.OpenCurrentDatabase('В:\pdb.mdb' , true, '');
  Acc.Visible := True; //а вот посмотрим чего там происходит

  Acc.DoCmd.TransferDatabase(acImport, 'dBase IV',
                             'D:\WORK\KLADR2012', acTable,
                             'KLADR.DBF',  //откуда
                             'KLADR',    //имя НОВОЙ таблицы в БД
                             false, false);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Acc.Free;
end;

Если нужно импорт делать не раз, то придется решить несложную задачу убивать прежде созданную таблицу. Иначе они будут плодится с тем же именем, но с присоединенными справа номерами.

Хм. Рекомендую. Протестировано на Д7.

тема на форуме от 2012 года