mormot2数据库操作

unit db.unidac;
/// cxg 2022-3-14
interface

uses mormot.db.rad.unidac, mormot.ui.rad.sql,
Classes,
  SysUtils
  ;

type
  Tunidac = class
  private
    fProp: TSqlDBUniDACConnectionProperties;
    fConn: TSqlDBUniDACConnection;
    fStat: TSqlDBUniDACStatement;
    fDataset: TSqlDataSet;
  public
    constructor Create();
  end;

implementation

{ Tunidac }

constructor Tunidac.Create;
begin
  fProp := TSqlDBUniDACConnectionProperties.Create('serverName', 'dbname', 'userid', 'pwd');
  fConn := fProp.NewConnection;
  fStat := fConn.NewStatement;
  fStat.Execute('sql', True);
  var ms: tmemorystream := tmemorystream;
  fStat.FetchAllToBinary(ms);
  fStat.FetchAllToJson();

  fDataset.Connection := fProp;
  fDataset.Close;
  fDataset.CommandText := 'select * from customer';
  fDataset.From();
  fDataset.Open;
end;

end.