VPF::IBDataSet проблема добавления - Форум программистов

MMihan

Дата 10.4.2013, 08:12 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день!
Выходит ошбика при добвление записи smile

   empty query, пробывал по разному , выходят другие ... ошибки, Подскажите пожалуста как должно быть (последовать кода при добавление  записи)
Fireberd 2.5   Создана таблица  через IBExpert
на форме лежит 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;
    
}

Это сообщение отредактировал(а) MMihan - 10.4.2013, 11:47

Riviero

Дата 16.4.2013, 09:53 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(MMihan @ 10.4.2013, 08:12

)

DM->IBTransORG->StartTransaction( );

Это начало транзакции, должно быть написано до внесения изменений. (До Post и Exec)

Цитата(MMihan @ 10.4.2013, 08:12

)

DM->IBTransORG->Commit( );

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

А у тебя получается, что ничего туда и не пишется. Точнее пишется, но без транзакций. Либо убери эти 2 строчки, либо переставь начало транзакции.

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