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

[Kerby666]

Сообщение от Slym

пока меня небыло ветка выросла на 3 страницы
давай проект уже, запакуй и приаттач сюда, с базой и дбфкой
а то удаленная отладка какаято

P.S.
я ведь специально что нужно сделать заранее закоментил... а ты зачем то раскоментил
препаринг немного ускоряет поиск

и еще ты ещеш в дбф или уже в мдб?

Да я в dbf еще, приаттачить не смогу, потому как нет у вас прайс чекера (железяки). Я сканирую им и пишу здесь.

[Kerby666]

всем спасибо, я поехал ставить эту хрень, ехать долго, по дороге что-нибудь придумаю. Вернусь, отпишу.

[Kerby666]

В общем все неплохо. Работает с базой в 2 тысячи записей, хоть и фулсканом, но быстро(1-2 секунды). Теперь хочу вернуться к тому с чего начал. Использовать mdb и индексные поля. Тестить удаленно будет сложнее, но бросать это дело не хочу. Итак я имею файл bdf c тремя полями и базу access с теми же полями. Нужно организовать импорт из dbf в access. И спасибо, что помогаете!

[Прик]

Нужно организовать импорт из dbf в access.

Открываем Аксесс.
Меню Файл -> Внешние данные -> Импорт...
Диалог. В поле "Тип файлов" выбирается dBASE 5 (dBASE IV), в поле "Имя файла" ищется нужный файл. Далее кнопка "Импорт". Всё.

Тока что таким способом импортнул из kladr.dbf лишком 208 тыс. записей.
Что характерно, Аксессу по-барабану, что в файле DOS кодировка - преобразовал самостоятельно в win1251 без вопросов и выпендрежа.

[Kerby666]

Сообщение от Прик

Открываем Аксесс.
Меню Файл -> Внешние данные -> Импорт...
Диалог. В поле "Тип файлов" выбирается dBASE 5 (dBASE IV), в поле "Имя файла" ищется нужный файл. Далее кнопка "Импорт". Всё.

Тока что таким способом импортнул из kladr.dbf лишком 208 тыс. записей.
Что характерно, Аксессу по-барабану, что в файле DOS кодировка - преобразовал самостоятельно в win1251 без вопросов и выпендрежа.

Мне нужен импорт средствами delphi.

[Slym]

в этой ветке ответ дан уже не раз...
импорт можно делать 2 способами
1 импорт через sql http://www.programmersforum.ru/showp...9&postcount=12
2. полный проход по dbf датасету и вставка в мдб построчно

[Прик]

Есть еще третий способ. Можно сказать, "мгновенный". Этим способом я загружаю в акесс более 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.

[Kerby666]

Сообщение от Прик

Есть еще третий способ. Можно сказать, "мгновенный". Этим способом я загружаю в акесс более 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.

У меня открывается access.Приходится внутри окна access жать "открыть", чтоб дальше дело пошло. Как-то не айс, хотя и очень быстро действительно.

[Прик]

"Жать открыть" - это из-за установки системы безопасности макросов:
меню Сервис - Макрос - Безопасность..., в окне закладка "Уровень безопасности", пункт "Низкая".

Чтобы Аксесс еще и не открывался, немного изменить в коде Дельфи:

uses ComObj, AccessXP;

procedure TForm1.Button1Click(Sender: TObject);
var
  Acc : TAccessApplication;
begin
  Acc := TAccessApplication.Create(Self);
  Acc.Connect;
  Acc.OpenCurrentDatabase('В:\pdb.mdb' , true, '');
  Acc.DoCmd.TransferDatabase(acImport, 'dBase IV',
                             'D:\WORK\KLADR2012', acTable,
                             'KLADR.DBF',  //откуда
                             'KLADR',    //имя НОВОЙ таблицы в БД
                             false, false);
  Acc.Quit(acQuitSaveAll);
  Acc.Free;
end;

[Kerby666]

Сообщение от Прик

"Жать открыть" - это из-за установки системы безопасности макросов:
меню Сервис - Макрос - Безопасность..., в окне закладка "Уровень безопасности", пункт "Низкая".

Чтобы Аксесс еще и не открывался, немного изменить в коде Дельфи:

uses ComObj, AccessXP;

procedure TForm1.Button1Click(Sender: TObject);
var
  Acc : TAccessApplication;
begin
  Acc := TAccessApplication.Create(Self);
  Acc.Connect;
  Acc.OpenCurrentDatabase('В:\pdb.mdb' , true, '');
  Acc.DoCmd.TransferDatabase(acImport, 'dBase IV',
                             'D:\WORK\KLADR2012', acTable,
                             'KLADR.DBF',  //откуда
                             'KLADR',    //имя НОВОЙ таблицы в БД
                             false, false);
  Acc.Quit(acQuitSaveAll);
  Acc.Free;
end;

С этим понятно. Все работает! Вопрос теперь такой. Не создается ключевое поле в создаваемой при экспорте таблице. Это не то чтобы принципиально, но повлияет ли это на целостность структуры базы access? Отразится ли на скорости поиска?
Еще кодировка получается меняется. В dbf по-умолчанию стоит windows. А в access получается dos становится!!!