在运行时初始化ado并在delphi中填充网格

uses
  ADODB;

procedure FillGridWithADOQuery(Grid: TDBGrid);
var
  Connection: TADOConnection;
  Query: TADOQuery;
begin
  Connection := TADOConnection.Create(nil);
  try
    Connection.ConnectionString := 'Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码';
    Connection.Connected := True;

    Query := TADOQuery.Create(nil);
    try
      Query.Connection := Connection;
      Query.SQL.Text := 'SELECT * FROM 表名';
      Query.Open;

      Grid.DataSource := Query.DataSource;
      Grid.Columns.Clear;
      for var Field in Query.Fields do
      begin
        var Column := TColumn.Create(Grid);
        Column.FieldName := Field.FieldName;
        Column.Title.Caption := Field.FieldName;
        Column.Width := 100; // 设置列宽度
        Grid.Columns.Add(Column);
      end;
    finally
      Query.Free;
    end;
  finally
    Connection.Free;
  end;
end;