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

本文介绍两种从SQLServer中查询角色信息的方法：一种是将查询结果直接写入Memo控件；另一种是通过DBGrid控件展示数据集。这两种方法都需要使用到SynCommons,SynDB,SynOleDb等组件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

本例使用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;