unit db.unidac; /// <author>cxg 2022-3-14</author> 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.