Сохранение таблицы из текстового файла

[S@fer]

А вы проверяли? при загрузке из файла он автоматически не добавляется в таблицу "FormExp". данные загружаются в компанент.

[maLoy*508]

честно говоря нет, сейчас гляну

[S@fer]

есть компонент BatchMove но он работает только с BDE. Может есть аналог для ADО?

Есть у кого-нибудь еще идеи по данному вопросу?

[Stilet]

Первое что бы выяснил это есть ли какая нить команда импорта для твоей СУБД, и если есть попробовал зарядить ее запросом.

[S@fer]

Stilet, спасибо за идею.
Нашел другой способ импорта-экспорта таблиц в файл. Очень неплохая замена SaveToFile и LoadFromFile, если необходима скорость
Выкладываю пример:

Экспорт
В следующих примерах предполагается, что qPrint является компонентом ADOQuery с закладки ADO палитры компонентов.
Экспорт данных в DBF
Экспорт всех данных из таблицы Sp_Tovar базы данных Access (*.mdb) в файл Tabl01.DBF (dBase IV) (файла C:\Tabl01.DBF не должно существовать, иначе будет ошибка "Файл уже существует") :

fMain.qPrint.Close;
fMain.qPrint.SQL.Clear;
fMain.qPrint.SQL.Add('SELECT Sp_Tovar.* INTO Tabl01 IN "C:\" "dBASE IV;" FROM Sp_Tovar;');
fMain.qPrint.ExecSQL;

или

fMain.qPrint.Close;
fMain.qPrint.SQL.Clear;
fMain.qPrint.SQL.Add('SELECT Sp_Tovar.* INTO Tabl01 IN '+''''+'C:\'+''''+'[dBASE IV;] FROM Sp_Tovar;');
fMain.qPrint.ExecSQL;

Экспорт данных в Excel

Экспорт всех данных из таблицы Sp_Tovar базы данных Access (*.mdb) на лист Sheet1 файла Tabl01.xls (Excel 8.0 - это формат Excel 97 и выше) (файла C:\Tabl01.xls не должно существовать, иначе будет ошибка "Файл уже существует") :

fMain.qPrint.Close;
fMain.qPrint.SQL.Clear;
fMain.qPrint.SQL.Add('Select Sp_Tovar .* INTO Sheet1 IN '+''''+'C:\ Tabl01.xls'+''''+'[Excel 8.0;] ');
fMain.qPrint.SQL.Add('From Sp_Tovar);

ВНИМАНИЕ: Максимальный объем данных на каждом листе файла Excel - 65535 записей + одна строка имен полей.

Экспорт данных в Text

Экспорт всех данных из таблицы Sp_Tovar базы данных Access (*.mdb) в файл Tabl01.Txt (разделитель берется из реестра HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Jet\4.0\Engines\Text)

fMain.qPrint.Close;
fMain.qPrint.SQL.Clear;
fMain.qPrint.SQL.Add('Select Sp_Tovar.* INTO Tab01#txt IN '+''''+' C:\ '+''''+' [Text;FMT=Delimited;HDR=Yes;]');
fMain.qPrint.SQL.Add('From Sp_Tovar ');
fMain.qPrint.ExecSQL;

Импорт

Импорт данных из DBF

Загрузка данных из файла Tabl01.dbf в таблицу R0 базы данных Access:

fMain.qPrint.Close;
fMain.qPrint.SQL.Clear;
fMain.qPrint.SQL.Add('Insert Into R0');
fMain.qPrint.SQL.Add('Select * ');
fMain.qPrint.SQL.Add('FROM Tabl01 IN '+''''+'C:\'+''''+'[dBase IV;HDR=NO;IMEX=2]');
fMain.qPrint.ExecSQL;

Импорт данных из Excel

Загрузка данных с листа Sheet1 файла Tabl01.xls в таблицу R0 базы данных Access:

fMain.qPrint.Close;
fMain.qPrint.SQL.Clear;
fMain.qPrint.SQL.Add('Insert Into R0');
fMain.qPrint.SQL.Add('Select * ');
fMain.qPrint.SQL.Add('FROM Sheet1IN '+''''+'C:\Tabl01.xls'+''''+'[Excel 8.0;];');

Импорт данных из Text

Загрузка данных из файла Tabl01.txt в таблицу R0 базы данных Access:

fMain.qPrint.Close;
fMain.qPrint.SQL.Clear;
fMain.qPrint.SQL.Add('Insert Into R0');
fMain.qPrint.SQL.Add('Select * ');
fMain.qPrint.SQL.Add('FROM tab01#txt IN '+''''+'C:\'+''''+'[Text;FMT=delimited;HDR=Yes];');
fMain.qPrint.ExecSQL;