获取ADO数据集内存储器的指针
获取ADO数据集内存的指针?
通过ADO连接后,用SELECT打开某个表,如何获取ADO返回的数据集的指针?
------解决方案--------------------
就是adoquery来访问你要的数据吧,要不然太深了
------解决方案--------------------
无法获取数据集指针,只能通过提供的接口访问。
------解决方案--------------------
function TBuDbClass.RecordsetToXML(const Data: ADOInt.Recordset): String;
var
vReSet: OleVariant;
strStream: TStringStream;
IRecordSetStream: IUnknown;
begin
strStream := TStringStream.Create('');
IRecordSetStream := TStreamAdapter.Create(strStream) as IUnknown;
try
vReSet := CreateOleObject('ADODB.Recordset');
vReSet := Data;
vReSet.Save(IRecordSetStream, adPersistXML);
Result := strStream.DataString
finally
strStream.Free;
IRecordSetStream := nil;
vReSet := Unassigned;
end;
end;
//给你上面一段代码吧效率也是挺快的
通过ADO连接后,用SELECT打开某个表,如何获取ADO返回的数据集的指针?
------解决方案--------------------
就是adoquery来访问你要的数据吧,要不然太深了
------解决方案--------------------
无法获取数据集指针,只能通过提供的接口访问。
------解决方案--------------------
function TBuDbClass.RecordsetToXML(const Data: ADOInt.Recordset): String;
var
vReSet: OleVariant;
strStream: TStringStream;
IRecordSetStream: IUnknown;
begin
strStream := TStringStream.Create('');
IRecordSetStream := TStreamAdapter.Create(strStream) as IUnknown;
try
vReSet := CreateOleObject('ADODB.Recordset');
vReSet := Data;
vReSet.Save(IRecordSetStream, adPersistXML);
Result := strStream.DataString
finally
strStream.Free;
IRecordSetStream := nil;
vReSet := Unassigned;
end;
end;
//给你上面一段代码吧效率也是挺快的