Datenbank: MSSQL • Version: 12 • Zugriff über: ADO
ADO _recordset
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 |
AW: ADO _recordset
ADOQuery.Recordset?
|
AW: ADO _recordset
Nichts für ungut, aber bis auf das
Delphi-Quellcode:
ist die Übernahme aus den Query.Fields doch sehr ähnlich.
ovRange.CopyFromRecordset
Und natürlich TadoQuery.Recordset. Gruß K-H |
AW: ADO _recordset
und dabei stehe ich vor dem Problem
Delphi-Quellcode:
ExportRecordsetToMSExcel('D:\tempexport.xls', aquery.Recordset );
[DCC Fehler] Unit_ .....pas(): E2010 Inkompatible Typen: 'ADODB_TLB._Recordset' und 'Winapi.ADOInt._Recordset' |
AW: ADO _recordset
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:
ADOTable1 und ADOQuery1 sind Standard-Komponenten TADOTable und TADOQuery.
procedure TForm1.Button1Click(Sender: TObject);
begin ExportRecordsetToMSExcel('D:\x.xls', ADOTable1.Recordset ); end; So, das funktioniert für mich. Bitte versuchen Sie es mit Standardkomponenten und uns sagen, ob das funktioniert für Sie. |
AW: ADO _recordset
Liste der Anhänge anzeigen (Anzahl: 1)
ich verwende WIN 7, x64 und ebenfalls DELPHI XE2.
Ich habe folgende ADO - Typelib eingebunden "MICROSOFT ACTIVEX DATA OBJECTS 6.0" |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:23 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz