delphi - 关闭TAdoconnection后如何在组合框或dbgrid中维护数据库输出

Question

在这个问题中，我的目标是检索数据库表的内容。
填充dbGrid，关闭连接。
如果我使用以下代码，则dbgrid或combobox将丢失该信息。

adoQry := TADOQuery.Create(self);
adoQry.Connection := adoConn;
adoQry.SQL.Add(SqlStr);
adoQry.Prepared := true;

try
  adoQry.Active := True;
except
  on e: EADOError do
 begin
   MessageDlg('Error while doing query', mtError,
              [mbOK], 0);

   Exit;
 end;
end;
for i := 0 to adoQry.RecordCount - 1 do
begin
  cmbCnty.Items.Add(adoQry.Fields[1].AsString);
   adoQry.Next
end;

FreeAndNil(adoConn);
FreeAndNil(adoQry);

如果使用dbGrid，则使用StringGrid，它对我有用。
但是，有时我想使用dbGrid，但不确定如何保持与数据库的紧密连接的内容（当然，在获取内容之后）
任何建议，例子将不胜感激。
克里斯

Answer 1

您可以使用查询ResultSet填充TClientDataSet，然后将TClientDataSet链接到TDBGrid。