Показать сообщение отдельно
  #13  
Старый 24.05.2013, 10:51
Ludo Ludo вне форума
Прохожий
 
Регистрация: 14.05.2013
Сообщения: 15
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Код:
for i:=0 to length(mas)-1 do
    begin
      DataModule1.StoredProc.Close;
      DataModule1.StoredProc.ProcedureName:='PoiskNomDoc';
      DataModule1.StoredProc.Parameters.Clear;
      DataModule1.StoredProc.Parameters.Refresh;
      DataModule1.StoredProc.Parameters.ParamByName('@nom_doc').Value:=mas[i];
      DataModule1.StoredProc.ExecProc;
      
      DataModule1.ClientDataSet.Active:=true;
      DataModule1.ClientDataSet.Append; 
      DataModule1.ClientDataSet.FieldByName('nom_doc_com').AsInteger := DataModule1.StoredProc.FieldValues['nom_doc_com'];
      DataModule1.ClientDataSet.FieldByName('nom_doc_priv').AsInteger := DataModule1.StoredProc.FieldValues['nom_doc_priv'];
      DataModule1.ClientDataSet.FieldByName('dat_beg').AsDateTime := DataModule1.StoredProc.FieldValues['dat_beg'];
      DataModule1.ClientDataSet.FieldByName('dat_end').AsDateTime := DataModule1.StoredProc.FieldValues['dat_end'];
      DataModule1.ClientDataSet.FieldByName('nom_scan').AsInteger := DataModule1.StoredProc.FieldValues['nom_scan'];
      DataModule1.ClientDataSet.Post; 
    end;
    FormMain.GridRezPoisk.DataSource.DataSet.Open;

Ошибка: Отсутствуют данные поставщика.

ClientDataSet связала с DataSource через MasterSource, а DataSource c StoredProc.
И видимо это неправильно, раз данные не получены...
Ответить с цитированием