delphi OleVariant转换RecordSet

delphi OleVariant转换RecordSet

uses Data.Win.ADODB;
vds : OleVariant;
aRecordSet : _Recordset;
ADODataSet1.Recordset := IDispatch( vds ) as _Recordset;

ids: IDispatch;

 ADODataSet1.Recordset :=  ids  as _Recordset;

原文：http://www.cnblogs.com/cb168/p/4945794.html