Ошибка Unrecognized database parameter block
Добавлено: 11 авг 2007, 15:45
Помогите!
Firebird 1.5.3, IBX, BCB6
При вставке в цикле вставляется 283 записи, после - вылетает ошибка:Unrecognized database parameter block
Код:
for (i=1;i<StrToInt(FlatCount->Text);i++)
{
IBDSgen->Open();FlatID=IBDSgen->Fields->Fields[0]->AsInteger;IBDSgen->Close();
IBDSHouse->Insert();
IBDSHouse->FieldByName("COMMENT")->AsString="Квартира номер "+IntToStr(i);
IBDSHouse->FieldByName("NUMBER")->AsInteger=i;
IBDSHouse->FieldByName("NAME")->AsString="Квартира номер "+IntToStr(i);
IBDSHouse->FieldByName("INDEX_PARENT")->AsInteger=HouseIndex; /
IBDSHouse->FieldByName("BUILDING_LEVEL")->AsInteger=2;
IBDSHouse->FieldByName("INDEX_BUILDINGS")->AsInteger=FlatID;
IBDSHouse->Post();
MainForm->WriteToLog("Запись квартиры в базу: улица "+Street->Text+" номер:"+IntToStr(i),8,0,0,0,0);
}
Причем в эту же БД из консольного приложения все нормально вставляется, а здесь отрезает на 283-й записи... Что не так ? Как лечить ? Помогите плз.
Firebird 1.5.3, IBX, BCB6
При вставке в цикле вставляется 283 записи, после - вылетает ошибка:Unrecognized database parameter block
Код:
for (i=1;i<StrToInt(FlatCount->Text);i++)
{
IBDSgen->Open();FlatID=IBDSgen->Fields->Fields[0]->AsInteger;IBDSgen->Close();
IBDSHouse->Insert();
IBDSHouse->FieldByName("COMMENT")->AsString="Квартира номер "+IntToStr(i);
IBDSHouse->FieldByName("NUMBER")->AsInteger=i;
IBDSHouse->FieldByName("NAME")->AsString="Квартира номер "+IntToStr(i);
IBDSHouse->FieldByName("INDEX_PARENT")->AsInteger=HouseIndex; /
IBDSHouse->FieldByName("BUILDING_LEVEL")->AsInteger=2;
IBDSHouse->FieldByName("INDEX_BUILDINGS")->AsInteger=FlatID;
IBDSHouse->Post();
MainForm->WriteToLog("Запись квартиры в базу: улица "+Street->Text+" номер:"+IntToStr(i),8,0,0,0,0);
}
Причем в эту же БД из консольного приложения все нормально вставляется, а здесь отрезает на 283-й записи... Что не так ? Как лечить ? Помогите плз.