首页 > 其他 > 详细

获取 临时数据集 的两种方法

时间:2014-12-17 20:25:09      阅读:281      评论:0      收藏:0      [点我收藏+]
  procedure GetEmplData;
  var ASQLQuery:TSqlQuery;
      ADsp:TDatasetProvider;
  begin
    ASQLQuery:=TSqlQuery.Create(nil);
    ADsp:=TDatasetProvider.Create(nil);
    with ASQLQuery do try
      Close;SQL.Clear;
      SQLConnection:=SQLConn;
      SQL.Add(Select EmplNo, Empl From Empl);
      Adsp.DataSet:=aSqlQuery;
      cdsEmpl.Data:=adsp.Data;
   finally
     ADsp.Free;
     ASQLQuery.Free;
    end;
  end;
  procedure InitLookUpSource;
  var CmdText : WideString;
  begin
    CmdText:=‘Select Corpid, CorpNo, SName from Corps‘+#13#10
            +‘where SysID=‘+IntToStr(FSysID)+#13#10
    with rds_cdsCorps do begin
      Data:=GetDataText(CmdText, ‘‘, [], CmdText);
      AddIndex(‘Index1‘, ‘CorpID‘, [], ‘‘, ‘‘, 0);
      IndexName:=‘Index1‘;
    end;
  end;

  

获取 临时数据集 的两种方法

原文:http://www.cnblogs.com/CNQCJ/p/4170042.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!