Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=153358&view=findpost&p=1253618 Thu, 07 Sep 2006 08:22:26 +0000 Invalid data conversion https://forum.sources.ru/index.php?showtopic=153358&view=findpost&p=1253618 SilverShield Базы данных: SQL https://forum.sources.ru/index.php?showtopic=153358&view=findpost&p=1250828 Tue, 05 Sep 2006 10:02:34 +0000 Invalid data conversion https://forum.sources.ru/index.php?showtopic=153358&view=findpost&p=1250828 Modest Wizard, по крайней мере для MS SQL в TADOStoredProc не требовалось создавать параметры отдельно. В моем случае, есть целая куча других процедур, в которые параметры передаются точно также, но которые работают. Проблема в чем то другом...]]> SilverShield Базы данных: SQL https://forum.sources.ru/index.php?showtopic=153358&view=findpost&p=1250641 Tue, 05 Sep 2006 08:04:21 +0000 Invalid data conversion https://forum.sources.ru/index.php?showtopic=153358&view=findpost&p=1250641
    SP.Parameters.CreateParameter('AURL',ftString,pdInput,255,'');
, в твоем случае мб что-нибудь подобное.]]> Modest Wizard Базы данных: SQL https://forum.sources.ru/index.php?showtopic=153358&view=findpost&p=1249736 Mon, 04 Sep 2006 11:26:44 +0000 Invalid data conversion https://forum.sources.ru/index.php?showtopic=153358&view=findpost&p=1249736 FireBird 1.5/Delphi_7

Собственно сабж. (IBClientError Invalid data conversion) Ошибка возникает именно при выполнении процедуры в дельфе. В IBExpert сама ХР проходит без проблем. Передаю в процедуру только один параметр строкового типа, ошибаться просто негде! Может у кого есть мысли из-за чего может быть? Текст хранимой процедуры:
    CREATE PROCEDURE ADD_URL (
        AURL VARCHAR(250))
    RETURNS (
        OID BIGINT)
    AS
    DECLARE VARIABLE COUN INTEGER;
    DECLARE VARIABLE CURID BIGINT;
    begin
      /* Procedure Text */
      for select count(id) from urls where url = :aurl into :coun do
      if (coun = 0) then
      begin
        curid = GEN_ID (gen_urls_id,1);
        insert into urls (id, url, hsip) values (:curid, :aurl, '');
        oid = curid;
      end
      else begin
        oid = 0;
      end
      suspend;
    end^

Сам вызов из дельфи:
    FSP.Close;
    FSP.StoredProcName:= 'ADD_URL';
     
    if FTR.InTransaction = false then
      FTR.StartTransaction;
     
    FSP.Params.Clear;
    FSP.ParamByName('AURL').AsString:= '333'; //URL;
    FSP.ExecProc;
    ID:= FSP.ParamByName('OID').AsInteger;

где FSP - IBStoredProcedure, FTR - IBTransaction.
На строке FSP.ExecProc; и появляется ошибка. :wall:
Ума не приложу где еще ошибку искать!]]> SilverShield Базы данных: SQL