ADO _recordset

[bernhard_LA]

ich würde gerne die Funktion von http://patlatus.wordpress.com/2014/0...port-to-excel/
von einer Funktion ADOTABLE nach Excel in eine
Version ADOQuery nach Excel umbauen

Delphi-Quellcode:

// http://patlatus.wordpress.com/2014/06/16/delphi-export-to-excel/
procedure ExportRecordsetToMSExcel(DestName: string; Data: _Recordset);
var
  ovExcelApp: OleVariant;
  ovExcelWorkbook: OleVariant;
  ovWS: OleVariant;
  ovRange: OleVariant;
begin

......


end;

Wie bekomme ich aus einer Query die Daten als _Recordset ??
Unit "unit ADOMD_TLB;" ist vorhanden

[Dejan Vu]

ADOQuery.Recordset?

[p80286]

Nichts für ungut, aber bis auf das ovRange.CopyFromRecordset ist die Übernahme aus den Query.Fields doch sehr ähnlich.
Und natürlich TadoQuery.Recordset.

Gruß
K-H

[bernhard_LA]

und dabei stehe ich vor dem Problem


ExportRecordsetToMSExcel('D:\tempexport.xls', aquery.Recordset );


[DCC Fehler] Unit_ .....pas(): E2010 Inkompatible Typen: 'ADODB_TLB._Recordset' und 'Winapi.ADOInt._Recordset'

[Patlatus]

Hallo, Übersicht.
Dies ist Patlatus.
Ich benutze Delphi XE2.
Ich verwende Standard-Komponenten TADOQuery und TADOTable aus Reiter "dbGo" und folgenden Code funktioniert gut für mich

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExportRecordsetToMSExcel('D:\x.xls', ADOQuery1.Recordset );
end;

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExportRecordsetToMSExcel('D:\x.xls', ADOTable1.Recordset );
end;

ADOTable1 und ADOQuery1 sind Standard-Komponenten TADOTable und TADOQuery.

So, das funktioniert für mich.

Bitte versuchen Sie es mit Standardkomponenten und uns sagen, ob das funktioniert für Sie.

[bernhard_LA]

ich verwende WIN 7, x64 und ebenfalls DELPHI XE2.
Ich habe folgende ADO - Typelib eingebunden "MICROSOFT ACTIVEX DATA OBJECTS 6.0"