mORMot学习笔记2-2种方式查询数据

本例使用SqlServer

第一种方式结果放入Memo控件,,需要引用SynCommons, SynDB, SynOleDb;

procedure TForm1.Button1Click(Sender: TObject);
var
  DbConn: TOleDBMSSQLConnectionProperties;
  strSql: string;
  rows: ISQLDBRows;begin
  DbConn := TOleDBMSSQLConnectionProperties.Create('127.0.0.1', 'ReportServer', 'sa', 'Sa123');
  strSql := 'SELECT r.RoleName, r.Description FROM Roles AS r';
  rows := DbConn.ExecuteInlined(strSql, True);
  if rows <> nil then
  begin
    memo1.Clear;
    memo1.Lines.BeginUpdate;
    while rows.Step() do
    begin
      Memo1.Lines.Add(rows.ColumnString('RoleName') + '-' + rows.ColumnString('Description'));
    end;
  end;
  Memo1.Lines.EndUpdate;
end;

第二种方式,返回数据集到DBGrid控件,需要引用SynCommons, SynDB, SynOleDb, SynDBMidasVCL;

procedure TForm1.Button2Click(Sender: TObject);
var
  DbConn: TOleDBMSSQLConnectionProperties;
  ds: TSynDBDataSet;
begin
  DbConn := TOleDBMSSQLConnectionProperties.Create('127.0.0.1', 'ReportServer', 'sa', 'Sa123');
  ds := TSynDBDataSet.Create(nil);
  ds.Connection := DbConn;
  ds.CommandText := 'SELECT r.RoleName, r.Description FROM Roles AS r';
  ds.Open;
  DataSource1.DataSet := ds;
  //ds不能在这里释放不然结果就不显示了
end;

两种方式执行结果