Экспорт данных из базы Interbase в скрипт средствами Delphi

← →
mvs © (2006-03-06 17:43) [0]

Добрый день
Хочу написать небольшую функцию экспорта данных из базы Interbase в скрипт. Пошел вначале самым простым путем
1. Получаю все таблицы
2. Экспортирую данные из очередной таблицы TableName
Сначала
ibq.sql.text := select * from tablename
Потом
ff := false;
Fieldsstr := "";
while not ibq.Eof do begin
ValuesStr := "";
for i := 0 to ibq.FieldCount - 1 do begin
if ibq.Fields[i].FieldKind <> fkData then continue;
// Простейшая функция получения значания поля, а если это блоб, то игнорировать
if not GetFieldValue(ibq.Fields[i],0,ValStr) then continue;
if not ff then begin
if Fieldsstr = "" then Fieldsstr := ibq.Fields[i].FieldName
else Fieldsstr := Fieldsstr + "," + ibq.Fields[i].FieldName;
end;
if Valuesstr = "" then Valuesstr := ValStr
else Valuesstr := Valuesstr + "," + ValStr;
end;
// конец for i
if not ff then begin
Fieldsstr := "insert into " + tablename + " (" + Fieldsstr + ")";
ff := true;
end;
Valuesstr := " values (" + Valuesstr + ")";
OutStr := OutStr + Fieldsstr + Valuesstr + ";" + CRLF;
ibq.Next;
end;
Возвращаю OutStr типа string

ПРОБЛЕМА в том, что на больших таблицах эта функция очень долгая. Наверняка есть возможность все УСКОРИТЬ. Например, в IBExpert"е экспорт идет гораздо быстрее. Очень хочется посмотреть его алгоритм или нечто подобное.

← →
Fay © (2006-03-06 18:30) [1]

юзай TStringList

Экспорт данных из базы Interbase в скрипт средствами Delphi Найти похожие ветки