вызов хранимой процедуры и работа с фильтром

Комментарии

• gpi

  January 2011 отредактировано 17:09

  1 - Попробуйте TfrxADOQuery.ExecSQL
  2 - Проверил - TfrxADOQuery.Query.FindFirst работает
• LadySahck

  January 2011 отредактировано 17:09

  gpi написал: »

  1 - Попробуйте TfrxADOQuery.ExecSQL
  2 - Проверил - TfrxADOQuery.Query.FindFirst работает

  
  Для MSSQL у меня получилось

      qrySnr.SQL.Clear;          
      qrySnr.SQL.Add('declare @isnP nvarchar(48) , @isnS nvarchar(48), @dt DateTime ');
      qrySnr.SQL.Add('declare @Y integer, @M integer, @D integer ');
      qrySnr.SQL.Add('set @isnP = ''' + qryPerson.FieldByName('ISN_PERSON').AsString + '''');
      qrySnr.SQL.Add('set @isnS = ''' + cbxSnr1.KeyValue + '''');
      qrySnr.SQL.Add('set @dt = GetDate() ');
      qrySnr.SQL.Add('exec GET_SENIORITY @isnP, @isnS, @dt, @Y output, @M output, @D output ');
      qrySnr.SQL.Add('select @Y, @M, @D ');
      qrySnr.Open;
  

  А вот с Oracle-ом что-то не получается. Или нужно как-то параметры настроить?
  
• gpi

  January 2011 отредактировано 17:09

  Попробуйте использовать другие провайдеры для доступа к Oracle
• LadySahck

  January 2011 отредактировано 17:09

  Для Oracle прописала следующую конструкцию

      qrySnr.SQL.Add('BEGIN ');        
      qrySnr.SQL.Add('GET_SENIORITY(''' + qryPerson.FieldByName('ISN_PERSON').AsString + ''', ' + 
                                    '''' + cbxSnr1.KeyValue + ''', ' +                 
                                    'SysDate, :Y, :M, :D); ');
      qrySnr.SQL.Add('END; ');                                            
      qrySnr.ParamByName('Y').DataType := ftInteger;
      qrySnr.ParamByName('Y').Expression := 'Get(''Y'')';                          
      qrySnr.ParamByName('M').DataType := ftInteger;
      qrySnr.ParamByName('M').Expression := 'Get(''M'')';                          
      qrySnr.ParamByName('D').DataType := ftInteger;
      qrySnr.ParamByName('D').Expression := 'Get(''D'')';                          
      qrySnr.ExecSQL;                              
      tslSnr.Add(Format('%0.2d-%0.2d-%0.2d', [<Y>, <M>, <D>]));
  

  Код срабатывает без ошибок, но и результата не получает. Подобная конструкция, проделанная на делфи получает нужные данные.