Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#2

Re: Datenbank in Excel schreiben

  Alt 20. Okt 2003, 09:47
Hallo andyexcelent,

wenn du weißt, wie du in ein Excelsheet einzelne Einträge schreibst, kannst du einfach mit einer Schleife alle Datensätze durchlaufen:

Delphi-Quellcode:
myDBF.First;
while NOT myDFB.EOF do
begin
  for i := 0 to myDBF.FieldCount-1 do
    SchreibeNachExcel(myDBF.Fields[i].AsString);
  myDBF.Next;
  NaechsteExcelZeile;
end;
Die Funktion SchreibeNachExcel übernimmt einen String und schreibt ihn ins nächste ExcelFeld. Die Funktion NaechsteExcelZeile setzt den Excelcursor auf das erste Feld der nächsten Zeile.
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat