Как написать обращение к процедуре (vb)?

Комментарии

• Vredonos

  March 2010 отредактировано 04:34

  Прорыв форум и мануалы, смог написать следующий код:
  

  procedure cmdOKOnClick(Sender: TfrxComponent);
  var
  sp: TADOStoredProc;
  sppar: TParameter;                                     
    
  begin
  
  sp := TADOStoredProc.Create(nil);                                                                            
  sp.Connection := conn.Database;
  sp.ProcedureName := 'qOpersN1_Full';                                                     
  sppar := TParameter.Create;
  with sp.Parameters.AddParameter do begin
         Name := 'tod';
         DataType := ftInteger;     
         Value := int(DateEdit1.Date);
  end;
  
  sp.Open;
   
  end;
  

  
  Проверил - на выходе открытый рекордсет с моими данными, вроде полдела сделано.
  Подскажите плиз - как его теперь "подсунуть" отчету в бенд как источник данных?
• OlegK

  March 2010 отредактировано 04:34

  написал:

  Подскажите плиз - как его теперь "подсунуть" отчету в бенд как источник данных?

  Через свойство DataSet.
• Vredonos

  March 2010 отредактировано 04:34

  OlegK написал: »

  Через свойство DataSet.

  
  да, я так и пытался сделать, но у бенда DataSet есть, а у открытого мною рекордсета я так и не смог понять как его вызвать. Прорыл всю иерархию в классах, но ни в одном предке класса TAdoStoredProc я не нашел Dataset
  Как к нему обратиться чтобы "закинуть" в датасет бенда? Я так понимаю, что у меня не хватает одной строки в коде - но никак не пойму как её сформулировать
  Подскажите пожалуйста, если не сложно...
• OlegK

  March 2010 отредактировано 04:34

  Попробуйте свойству бэнда Dataset присвоить рекордсет.
  Если не сработает, тогда нужно как-то преобразовать рекордсет в датасет.
• Vredonos

  March 2010 отредактировано 04:34

  OlegK написал: »

  Попробуйте свойству бэнда Dataset присвоить рекордсет.
  Если не сработает, тогда нужно как-то преобразовать рекордсет в датасет.

  
  конечно спасибо за ответ, но собственно, что надо сделать - понятно
  вопрос как раз в том - как это сделать?
  эх...
• OlegK

  March 2010 отредактировано 04:34

  Можно вообще использовать другой способ.
  Допустим в отчете есть бенд MasterData с именем MasterData1.
  Насколько я понял, вам нужно в качестве источника данных для него, использовать результат вызова хранимой процедуры.
  Допустим имя хранимой процедуры proc1.
  Тогда можно создать (в дизайнере или из скрипта) ADOQuery, например с именем ADOQuery1.
  И из ADOQuery1 вызвать хранимую процедуру, запрос будет выглядеть так: exec proc1.
  ADOQuery1 можно использовать в качестве источника данных для бенда MasterData1.
  Из скрипта это будет выглядеть так:

  // создание ADOQuery1, если его нужно создавать из скрипта
  ...
  ...
  // создание запроса с вызовом хранимой процедуры
  ADOQuery1.SQL.Add('exec proc1');
  // привязка результата к бенду
  MasterData1.DataSet := ADOQuery1;
  
• Vredonos

  March 2010 отредактировано March 2010

  спасибо за вариант - красиво
  извиняюсь за тупость, а как передать при таком варианте параметр для этой хранимки?
• OlegK

  March 2010 отредактировано March 2010

  Через пробел после exec proc1:

  ADOQuery1.SQL.Add('exec proc1 param1');
  
• Vredonos

  March 2010 отредактировано 04:34

  объединив свой текст и то что было предложено OlegK, дописал последнюю необходимую строку, которая позволила передать открытый рекордсет в MasterData.
  ADOQuery1 это пустой ADOQuery1, привязанный в конструкторе к MasterData:
  

  procedure cmdOKOnClick(Sender: TfrxComponent);
  var
  sp: TADOStoredProc;
  sppar: TParameter;
  
  begin
  
  sp := TADOStoredProc.Create(nil);
  sp.Connection := conn.Database;
  sp.ProcedureName := 'qOpersN1_Full';
  sppar := TParameter.Create;
  with sp.Parameters.AddParameter do begin
    Name := 'tod';
    DataType := ftInteger;
    Value := int(DateEdit1.Date);
  end;
  
  sp.Open;
  
  ADOQuery1.Dataset := sp;
  
  end;
  

  
  теперь все заработало
• Vredonos

  March 2010 отредактировано 04:34

  OlegK написал: »

  Через пробел после exec proc1:

  ADOQuery1.SQL.Add('exec proc1 param1');
  

  
  а в данном случае param1 - это просто значение этого параметра или нужно как то по особому это написать?
  попробывал просто написать значение - выдает ошибку "Несоответствие типов данных в выражении условиям отбора"
  

  sSql :=  'exec qOpersN1_Full ' + inttostr(int(DateEdit1.Date));                                                                                    
  AdoQuery1.SQL.Add(sSql);
  

  
  sSql получается вида 'exec qOpersN1_Full 40260'
  может синтаксис при передаче параметра должен быть каким то особым?
  например, кроме значения параметра указать его название?
  или дату надо передать в каком то особом формате? (хотя в том, что написал я работает с приведением к Int, но кто его знает...)
  хочется доразобраться с этим вариантом...
• OlegK

  March 2010 отредактировано 04:34

  написал:

  попробывал просто написать значение - выдает ошибку "Несоответствие типов данных в выражении условиям отбора"

  написал:

  хотя в том, что написал я работает с приведением к Int, но кто его знает...

  Допустим в базе есть поле custno типа int.
  Создаем процедуру:

  create procedure proc1 @cn int as
  select * from customer where custno=@cn
  

  Теперь вызываем ее:

  exec proc1 param1
  

  Параметр в процедуре @cn, и передаваемый процедуре при ее вызове параметр param1 должны быть того же типа что и поле custno в базе.