VPF::Ускорение проброса данных из лок. базы в сетевую,

vikaz

Дата 23.6.2009, 06:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: нет
Всего: 12

Формучане, всем добрый день.
Возник сл. вопрос:
Есть локальная база, многим известный КЛАДР.
Так вот мне нужно определенные данные перебросить в сетевую БД (MySQL)
Есть вот такой код, но он работает медленно, как это можно ускорить?

Код


for (int i = 0; i < ListLoad->Count; i++) //ListLoad - список в котором содержится список загружаемых областей
 {
  AnsiString Kod = Load_Kladr (ListLoad->Items->Strings[i].SubString(2,2));
  
  Query->DatabaseName = Path_DB; //Path_DB - путь к папке откуда запускается программа
  Query->SQL->Clear();
  AnsiString Buf = "select * from "+ ExtractFileName(FilenameEdit_Street->Text) +" where code like  \""+Kod+"_______________\" order by code";
  Query->SQL->Add(Buf);
  Query->Open();
  Query->First();
  sGauge->Progress = 0;
  sGauge->MaxValue = Query->RecordCount;
  for (int j=0; j < Query->RecordCount; j++)
  {
   MyCommand->SQL->Clear();
   MyCommand->SQL->Add("Insert into kladr (Name_Kladr, Socr_Kladr, Code_Kladr, Index_Kladr) values (\"" +
   Query->FieldByName("Name")->AsString + "\",\"" + Query->FieldByName("Socr")->AsString + "\",\"" +
   Query->FieldByName("Code")->AsString    + "\",\"" + Query->FieldByName("Index")->AsString +"\")");
   MyCommand->Execute();
   sGauge->Progress = j+1;
   Query->Next();
  }
  Query->Close();
}

Заранее спасибо!!!

Присоединённый файл ( Кол-во скачиваний: 3 )

1.JPG 67,46 Kb

--------------------

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MySQL \| Следующая тема »