использование IBUpdateSQL для добавления записей в бд

@Olga99 · Регистрация: 12.05.2011

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

надо добавить записи в таблицу!!
прошу помощи у всех кто может помочь. мучуюсь уже неделю!! я недавно занимаюсь таким делом, к тому же саму базу разрабатывала не я и менять что-то мне запретили, мне надо создать только пользовательский интерфейс. но при этом в базе даже речи не идет о ссылочной целостности, связях, триггерах и тому подобном.
перепробовала уже по-моему все что только можно, но дело так с места и не сдвинулось.
есть две формы, на первой расположены 2 DBGrid, подключенные к 2-м IBQuery, IBDatabase и IBTransaction по кнопке "Добавить" вызывается 2-я формаб, где расположен ComboBox с выпадающим списком, два IBQuery, IBUpdateSQL(запросы сгенерированы) и IBTransaction. необходимо чтобы можно было добавить через ComboBox новые записи с возможность выбирать из уже имеющихся. вот то что я смогла придумать, но это не работает: записи не добавляются в бд и выскакивает ошибка: "IBQuery1:Cannot perform this operation on an open dataset"

C++

void __fastcall TForm3::FormCreate(TObject *Sender)
{
 
IBQuery1->Active=true;
  IBQuery2->Active=true;
 
   IBQuery1->Close();
   ComboBox1->Clear();
   IBQuery1->Open();
   IBQuery1->First();
while( !IBQuery1->Eof )
{
 ComboBox1->Items->Add( IBQuery1->FieldByName("USEL_NAME")->AsString );
 Application->ProcessMessages();
 IBQuery1->Next();
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button1Click(TObject *Sender)
{
 //IBTransaction1->Active=true;
    IBQuery2->Close();
   IBQuery2->SQL->Text="select max(UZEL_TYPE) from USELS_TYPES;";
   IBQuery2->Open();
  AnsiString plus1 = IntToStr(StrToInt(DBText1->Caption) + 1);
 
 IBQuery1->Close();
    IBQuery1->Insert();
    IBQuery1->ParamByName("USEL_NAME")->AsString = ComboBox1->Text;
    IBQuery1->ParamByName("UZEL_TYPE")->AsString = plus1;
  IBQuery1->Open();
 
 
 IBUpdateSQL1->ExecSQL(ukInsert);
 IBQuery1->ExecSQL();
  IBQuery1->ApplyUpdates();
    IBTransaction1->Commit();
 
    }
 
//---------------------------------------------------------------------------
 
void __fastcall TForm3::FormDestroy(TObject *Sender)
{
IBQuery1->Active=false;
      IBQuery2->Active=false;
}

@MsGuns · 12.05.2011, 12:30

OnCreate
1. Никогда не пытайтесь манипулировать с БД в событии OnCreate - будут странные эффекты.
2. TIBQuery->Open() и TIBQuery->Active = true одно и то же, равно как и Close/Active=alse

OnButtonClick
1. После выполнения запроса и обработки его результатов (IBQuery2) сразу же его закрывайте. Помните, что каждый ОТКРЫТЫЙ запрос сервер "помнит" и держит для него версии записей. Не надо лишний раз напрягать попусту сервер.
2.

SQL

IBQuery1->Close();
IBQuery1->INSERT();
IBQuery1->ParamByName("USEL_NAME")->AsString = ComboBox1->Text;
IBQuery1->ParamByName("UZEL_TYPE")->AsString = plus1;
IBQuery1->OPEN();

Работать с IBQuery можно либо как к датасетом, если запрос был SELECT, либо без датасета (UPDATE,DELETE,INSERT..). Вы же совмещаете несовместимое:
сначала закрываете его как датасет, а затем пытаетесь добавть в ЗАКРЫТЫЙ датасет новую запись,
после чего работаете не с датасетом, а с содержимым запроса, подставляя параметры и открывая его снова.

Последний фрагмент вообще сплошная загадка, похоже каждую строчку Вы брали сюда с потолка ибо вместе они никак не "дружат".

Добавлено через 2 минуты
В деструктор не стОит добавлять то, что Вы добавили.
Во-первых, не логично и просто "криво", во-вторых при автоматическом освобождении компонентов датасеты будут также автоматически закрыты.

@Olga99 · 12.05.2011, 13:39 **[ТС]**

спасибо, сейчас попробую исправить

@Olga99 0 / 0 / 0 Регистрация: 12.05.2011 Сообщений: 8
	12.05.2011, 13:39 [ТС]	3
	спасибо, сейчас попробую исправить 0