zoukankan      html  css  js  c++  java
  • FireDAC内部初探

    procedure TForm1.Button1Click(Sender: TObject);
    var
      FCommIntf: IFDPhysCommand;  //FireDAC.Phys.Intf
      FTab: TFDDatSTable;         //FireDAC.DatS
    begin
      FTab := TFDDatSTable.Create;
      FDConnection1.ConnectionIntf.CreateCommand(FCommIntf);
      FCommIntf.CommandText := 'select * from zfxx';
      //FCommIntf.Prepare('select * from tjzfdb.dbo.zfxx');
      FCommIntf.Define(FTab);
      //FCommIntf.Open;
      FCommIntf.Fetch(FTab);
    
      Caption := FTab.Rows.Count.ToString();
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    var
      oCommIntf: IFDPhysCommand;
      oSchAdapt: IFDDAptSchemaAdapter;
      oAdapt: IFDDAptTableAdapter;  //FireDAC.DApt.Intf                             U
    begin
      {
        uses
          FireDAC.Stan.Factory, FireDAC.DApt;
      }
      //FDCreateInterface(IFDDAptSchemaAdapter, oSchAdapt);
      //oAdapt := oSchAdapt.TableAdapters.Add;
      //上面的2步可以用下面一行代码代替
      FDCreateInterface(IFDDAptTableAdapter, oAdapt);
      FDConnection1.ConnectionIntf.CreateCommand(oCommIntf);
      if oAdapt.SelectCommand=nil then
        oAdapt.SelectCommand := oCommIntf;
      oCommIntf.CommandText := 'select * from zfxx';
      oAdapt.Define;
      oAdapt.Fetch(True);
      Caption := oAdapt.DatSTable.Rows.Count.ToString();
    end;
    

    基本上是从DEMO上照搬的,初步理解内部情况。

  • 相关阅读:
    TI科学家谈浮点DSP未来发展
    请爱护你的JTAG烧录口---记录
    程序猿必看
    富人与穷人的区别--转自红尘
    DSP已经英雄迟暮了吗?FPGA才是未来的大杀器?
    FPGA+ARM or FPGA+DSP?
    DDR3调试记录
    调试记录1
    有关FPGA
    Nginx常见配置说明
  • 原文地址:https://www.cnblogs.com/Jiaojiawang/p/4558146.html
Copyright © 2011-2022 走看看