Автосоздание базы раз в 4 часа

@wolf_soloist · Регистрация: 16.11.2009

Author24 — интернет-сервис помощи студентам

такая проблема. стоит задача, по условию, допустим, каждые 4 часа необходимо создавать новую базу данных. (таблицу в базе). Прошел рубеж в 4 часа, таблица закрылась и открылась новая с новым именем.

разбил задачу и решил просто создавать базу по нажатию кнопки. вот код:

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   AnsiString sway = "c:\\KYOK";
   ForceDirectories(sway);
unsigned short hour,min,sec,msec,year,month,day;
DecodeTime(Time(),hour,min,sec,msec);
DecodeDate(Date(),year,month,day);
 
   Table1->DatabaseName = sway;
   Table1->TableType = ttParadox;
   Table1->TableName = IntToStr(year)+"-"+IntToStr(month)+"-"+IntToStr(day)+"-"+IntToStr(hour);
 
  Table1->FieldDefs->Clear();
  TFieldDef *pNewDef = Table1->FieldDefs->AddFieldDef();
  pNewDef->Name = "ID";
  pNewDef->DataType = ftInteger;
 
  pNewDef = Table1->FieldDefs->AddFieldDef();
  pNewDef->Name = "PeopName";
  pNewDef->DataType = ftString;
  pNewDef->Size = 50;
 
  Table1->CreateTable();
  Table1->Active = true;
 
  for(int i=0; i<10; i++){
    Table1->Append();
     Table1->FieldByName("ID")->Value = i+1;
     Table1->FieldByName("PeopName")->Value = "Mary"+IntToStr(i);
    Table1->Post();
    }
    }

Проблема в том, что второй раз базу уже с другим именем создать уже нельзя. Я так понимаю, нужно перед созданием новой таблицы отключиться от старой. ("cannot perform this operation on an open dataset")
как это сделать? покажите, пожалуйста.

@wolf_soloist · 14.12.2009, 15:51 **[ТС]**

Кто нибудь знает ответ на этот вопрос? Очень нужно, это автосоздание базы некорректно работает, верней не работает закрытие созданной базы, кто знает, как корректно закрывать ее?

@Lord_Voodoo · 14.12.2009, 16:11

wolf_soloist, Table->Close вам поможет отключиться от текущей таблицы

@wolf_soloist 0 / 0 / 3 Регистрация: 16.11.2009 Сообщений: 45
	14.12.2009, 15:51 [ТС]	2
	Кто нибудь знает ответ на этот вопрос? Очень нужно, это автосоздание базы некорректно работает, верней не работает закрытие созданной базы, кто знает, как корректно закрывать ее? 0

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	14.12.2009, 16:11	3
	wolf_soloist, Table->Close вам поможет отключиться от текущей таблицы 0