如何将RecordSet中的数据集绑定到dbgrid中？

Question

如题

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
begin
  ADOQuery1.Recordset :=  ADODataSet1.NextRecordset(i);
end;

Answer 2

最終都要轉嫁給一個DELPHI支持的ADO下的組件。

Answer 3

谢谢！我遇到的问题是这样的：function test1(id:string):OleVariant;
var
  ARecordSet:OleVariant;
begin
  ARecordSet:=createOleObject('ADODB.RecordSet');
  ARecordSet.Open('Select * from tbl_UserBaseInfo where id=1',AConnection,1,1,1);
  Result :=  ARecordSet;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  testre:String;
  ARecordSet:OleVariant;
  i: integer;
begin
  ARecordSet :=  test1('');
  ADOQuery1.Recordset := ARecordSet;
  DBGrid1.DataSource := ADOQuery1.DataSource;
end;
但是提示的错误是这样的，incompatalbe types:'OleVariant' and '_Recordset'

Answer 4

ADOQuery1.Recordset :=  IInterface(ARecordSet) as _Recordset;把OleVariant转为_Recordset接口