Конвертация DBF в MSSQL

← →
Sergey-ZZZ (2004-04-06 15:36) [0]

Мне нужно конвертнуть DBF в MSSQL. Написал код на кнопку:

tDB.First;
While not tDB.Eof do
begin
qSQL.Parameters.ParamByName("Name").Value := tDBNAME.Value;
qSQL.Parameters.ParamByName("Socr").Value := tDBSOCR.Value;
qSQL.Parameters.ParamByName("Code").Value := tDBCODE.Value;
qSQL.Parameters.ParamByName("Indexx").Value := tDBINDEX.Value;
qSQL.Parameters.ParamByName("GNINMB").Value := tDBGNINMB.Value;
qSQL.Parameters.ParamByName("UNO").Value := tDBUNO.Value;
qSQL.Parameters.ParamByName("OCATD").Value := tDBOCATD.Value;
qSQL.Parameters.ParamByName("STATUS").Value := tDBSTATUS.Value;
qSQL.ExecSQL;
tDB.Next;
end;
-----------------------
Конвертится 166000 записей около 12 минут. Может это можно сделать поумней чем у меня? Подскажите.

← →
stone © (2004-04-06 15:39) [1]

см.
insert into Table1
select ... from OPENDATASET(...)

← →
Fishka (2004-04-06 15:40) [2]

А если в MSSQL-таблицу записи вставлять SQL-запросом типа: Insert into table_SQL ... ?

← →
Delirium © (2004-04-06 15:40) [3]

EM->All Tasks->Import Data - быстрее не придумаешь, если надо скриптом, то можно так
select * from OpenRowset("MSDASQL", "Driver=Microsoft Visual FoxPro Driver;SourceDB=\\Master\Temp;SourceType=DBF;", "select * from complect")

← →
Patrick © (2004-04-06 15:41) [4]

В принципе получится тоже на тоже, различными способами, попробуй указывать явный тип полей, а не Value.

← →
Delirium © (2004-04-06 15:44) [5]

"тоже на тоже" - по сравнению с чем?

> В принципе получится тоже на тоже, различными способами
ну да, конечно. тут 12 мин а у меня 171тыс. запросом 12 сек. тоже самое практически.

← →
Sergey-ZZZ (2004-04-06 18:24) [7]

Что не так?

select * from OpenRowset
("MSDASQL", "Driver=Microsoft OLE DB Provider for ODBC Drivers;SourceDB=D:\KLADR\BASE;SourceType=DBF;",
"select * from Kladr")

Kladr.dbf типа DBase5. Ни фига не получается.

Используй для загрузки в MSSQL утилиту BCP.

Конвертация DBF в MSSQL Найти похожие ветки