[4kusNick]

Для работы с SQLite юзаю такой компонент: SQLite4Delphi

Вот пример тормозящих запросов:

Код:

function ExecDataSetSQL(DataSet: TSLDataSet; sSQL: String): Integer;
begin

  Result := 0;
  with DataSet do
  begin
    Close;
    SQL.Text := sSQL;
    Open
  end;
  DataSet.First;
  Result := DataSet.RecordCount;

end;

  //...
  // выбираем все параметры по продуктам
  ExecDataSetSQL(FSLDataSet,'SELECT * FROM catalog_products_properties WHERE ' + StringReplace(sQuery,'id','product_id',[rfIgnoreCase,rfReplaceAll]));
  NewDataSet.Close;
  NewDataSet.SQL.Clear;
  while not FSLDataSet.Eof do
  begin
    NewDataSet.SQL.Text := SQL.Text + 'INSERT INTO catalog_products_properties VALUES (' + QuotedStr(FSLDataSet.FieldByName('id').AsString) + ',' + QuotedStr(FSLDataSet.FieldByName('product_id').AsString) + ',' + QuotedStr(FSLDataSet.FieldByName('type').AsString) + ',' + QuotedStr(FSLDataSet.FieldByName('data_id').AsString) + ',' + QuotedStr(FSLDataSet.FieldByName('value').AsString) + ');';
  FSLDataSet.Next;  
  end;
  NewDataSet.Open // вот тут начинается построение БД по строке в свойстве SQL новой БД
  //...

Вот... Это часть процедуры экспорта данных из БД,
FSLDataSet - это основная БД со всеми данными,
NewDataSet - это новая БД с выбраннывми из основной БД данными

Вот вышеприведенный кусок кода работает очень медленно, причем не процессор работает, а именно HDD и размер новой БД растет примерно так: 1 КБ\СЕК...
А размер в итоге получается 1.3 МБ, представьте, сколько времени идет этот экспорт =)
Вот, пробовал NewDataSet.Open делать каждый раз при каждой итерации цикла, то же самое =(
Спасибо =)