Импорт txt в Ms Access

[Dr Evil]

Здравствуйте! Встала вот такая задача, необходимо автоматизировать процесс импорта txt файла в базу акцесс, пробовал парсить по одной строке, получается слишком долго 19 тысяч записей около 10 минут, если импортировать вручную посредством аксецц, все получается очень быстро. Возможно есть какие примеры на делфи, или у кого есть какие идеи.

Спасибо!

[rentgenius]

Код приведите.

[wellrus]

Чо нада то? Код при помощи которогу ипортануть в аксесс базу та? Занимался подобным ... Я вижу тут два пути. Либо написать скрипт например на AutoIt, который будет делать все сам. Либо написать программульку соответствующую. Не могу гарантировать импорт в базу из тхт, но ипорт из дбф делал. Завтра на работе буду кину соответствующий код.

[wellrus]

Эскпорт в дбф

            AccessApplication1.DoCmd.TransferDatabase(
              acExport,
              'dBase IV',
             WorkDir+'\out',
              acTable,
              'SPECIAL',
              'SPECIAL'+IntToStr(i),
              false,
              false);

Импорт в дбф

            AccessApplication1.DoCmd.TransferDatabase(
               acImport,
               'dBase IV',
               WorkDir+'\in\',
               acTable,
               clbUpdTable.Items.Strings[i],
               s,
               false,
               false);

Думаю в твоем случае аналогично только пользовать нужно функцию

procedure TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant; 
                           TableName: OleVariant; FileName: OleVariant; HasFieldNames: OleVariant; 
                           HTMLTableName: OleVariant; CodePage: OleVariant); safecall;

А вообще открываешь AccessXP.pas или соответствующий твоему офису и читаешь фукнции описаные. Надо сказать документации на русском я не смог обноружить, да и на английском только мелкие отрывки. Поэтому приходилось читать МСДН для VB и методом проб и ошибок подгонять. Если кто имеет хорошую документацию буду очень признателен за материал