Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=214819&view=findpost&p=1798718 Tue, 11 Dec 2007 08:27:39 +0000 firebird https://forum.sources.ru/index.php?showtopic=214819&view=findpost&p=1798718
    IBSQL1->Params->Vars[0]->AsDateTime =  NumberDeviceFor_massa_1_2_format; //NumberDeviceFor_massa_1_2_format - это инт
    IBSQL1->Params->Vars[1]->AsInteger  =  iStartX;//iStartX-это дата

->value и никогда не ошибёшся]]> sten_11 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=214819&view=findpost&p=1798710 Tue, 11 Dec 2007 08:22:17 +0000 firebird https://forum.sources.ru/index.php?showtopic=214819&view=findpost&p=1798710 MIF Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=214819&view=findpost&p=1798669 Tue, 11 Dec 2007 07:49:45 +0000 firebird https://forum.sources.ru/index.php?showtopic=214819&view=findpost&p=1798669
    IBSQL1->SQL->Add( "execute procedure INSERT_B (:DATETIMEP,:KOD_DOZAP,:MASSAP,:NUMBER_BUNKER,:FLAGP)");


Немного изменил таблицу, соответственно и процедуру. Стало

    IBSQL1->SQL->Add( "execute procedure INSERT_B (:number_bunkerp, :DATETIMEP, :KOD_DOZAP, :MASSAP, :zad_massap, :flag_errorp, :flag_countp)");


Но перестало выполняться, пишет Dynamic SQL error SQL error code =-303 conversion error from string "39427"
Я ставил тычки после

    IBSQL1->SQL->Clear();
    //IBSQL1->SQL->Add( "execute procedure INSERT_B (:DATETIMEP,:KOD_DOZAP,:MASSAP,:NUMBER_BUNKER,:FLAGP)");
    IBSQL1->SQL->Add( "execute procedure INSERT_B (:number_bunkerp, :DATETIMEP, :KOD_DOZAP, :MASSAP, :zad_massap, :flag_errorp, :flag_countp)");
    IBSQL1->Params->Vars[0]->AsDateTime =  NumberDeviceFor_massa_1_2_format;
    IBSQL1->Params->Vars[1]->AsInteger  =  iStartX;
    IBSQL1->Params->Vars[2]->Value      =  KODDOZA;
    IBSQL1->Params->Vars[3]->Value      =  massa;
    IBSQL1->Params->Vars[4]->AsInteger  =  zad_massa;
    IBSQL1->Params->Vars[5]->AsInteger  =  flag_err;
    IBSQL1->Params->Vars[6]->AsInteger  =  flag_count;
    IBSQL1->ExecQuery(); //Вот эта строка не хочет выполняться
    IBTransaction1->CommitRetaining();


На что обратить внимание ????]]> sten_11 Delphi: Базы данных