IBDataSet проблема добавления записи

[mmihan]

Добрый день!
Выходит ошбика при добвление записи empty query , пробывал по разному , выходят другие ... ошибки,
Подскажите пожалуста как должно быть (последовать кода при добавление записи(правильность действий) )
Fireberd 2.5 Создана таблица через IBExpert
IBDatabase1
user_name=SYSDBA
password=masterkey
lc_ctype=WIN1251

IBTransaction

read_committed
rec_version
nowait


на форме лежит DBGrid, при создание формы выполняется код

void __fastcall TOrg::FormShow( TObject * Sender )
{
    DM->IBDataSet1->Close( );
        DM->IBDataSet1->SelectSQL->Add
        ( "SELECT ORG_ID, ORG_NAME,ORG_RUKOVOD,ORG_INN, ORG_KPP,ORG_ADRES,ORG_OGRN,ORG_TEL,ORG_PREDSTAV FROM ORG");
    
    DM->IBDataSet1->Open( );
    LinkLabel1->Color == Edit1->Color;
}

На форме есть кнопка Add для открытие другой формы что бы добавлять новую запись.

добавляется через Edit и нажимется кнока Сохранить ...

По кноке Сохранить выполняется следуюший код

void __fastcall TAdd_ORG::BitBtn1Click( TObject * Sender )
{
            DM->IBDataSet1->SelectSQL->Clear( );
            DM->IBDataSet1->InsertSQL->Add
        ( " insert into ORG (ORG_NAME,ORG_RUKOVOD,ORG_INN, ORG_KPP,ORG_ADRES,ORG_OGRN,ORG_TEL,ORG_PREDSTAV)");
            DM->IBDataSet1->InsertSQL->Add
        ( " values (:ORG_NAME,:ORG_RUKOVOD,:ORG_INN, :ORG_KPP,:ORG_ADRES,:ORG_OGRN,:ORG_TEL,:ORG_PREDSTAV)");
            
            DM->IBDataSet1->ExecSQL( );
            DM->IBDataSet1->ParamByName( "ORG_NAME" )->AsString = Name_E->Text;
            DM->IBDataSet1->ParamByName( "ORG_RUKOVOD" )->AsString =Rukovod_E->Text;
            // DM->IBDataSet1->ParamByName( "ORG_INN" )->AsInteger = StrToInt(INN_E1->Text);
            // DM->IBDataSet1->ParamByName( "ORG_KPP" )->AsInteger = StrToInt(KPP_E->Text);
            // DM->IBDataSet1->ParamByName( "ORG_ADRES" )->AsString = Adres_E->Text;
            // DM->IBDataSet1->ParamByName( "ORG_OGRN" )->AsInteger = StrToInt(OGRN_E->Text);
            // DM->IBDataSet1->ParamByName( "ORG_TEL" )->AsString = Tel_E->Text;
            // DM->IBDataSet1->ParamByName( "ORG_PREDSTAV" )->AsString = Predstav_E->Text;
            DM->IBDataSet1->Post( );
        
            DM->IBTransORG->StartTransaction( );
            DM->IBTransORG->Commit( );
            DM->IBTransORG->Active = false;
    
}

[Stilet]

Так чисто попробовать:

            DM->IBDataSet1->InsertSQL->Text=
         " insert into ORG (ORG_NAME,ORG_RUKOVOD,ORG_INN, ORG_KPP,ORG_ADRES,ORG_OGRN,ORG_TEL,ORG_PREDSTAV) values (:ORG_NAME,:ORG_RUKOVOD,:ORG_INN, :ORG_KPP,:ORG_ADRES,:ORG_OGRN,:ORG_TEL,:ORG_PREDSTAV)");
...

не?

[mmihan]

тоже .самое((
такой ворос, а

DM->IBDataSet1->Close();

делать нужно?

[eval]

не поможет, без знаний делать можно что угодно, но без толку, идите для начала почитайте про ExecSQL, прочтете, приходите опять, скажем что дальше читать

[mmihan]

Сообщение от eval

не поможет, без знаний делать можно что угодно, но без толку, идите для начала почитайте про ExecSQL, прочтете, приходите опять, скажем что дальше читать

ExecSQL для выполнения запросов, не возвращающих курсоры на данные (такие как INSERT, UPDATE, DELETE, and CREATE TABLE).
Для запроса SELECT вызывается Open.
вы про это?

[eval]

да, а теперь расскажите будет ли в месте вызова ExecSQL запрос, который можно отправлять в базу?

[mmihan]

Сообщение от eval

да, а теперь расскажите будет ли в месте вызова ExecSQL запрос, который можно отправлять в базу?

, как я понимаю что ExecSQL направляет запрос, но без него ошибка такая же