DBGrid in ein StrGrid, oder besser gleich nach Excel

[Klarabella]

Kommt halt drauf an, Pumba, was du genau tun willst

Ich hab das auch mal gemacht, also von der Datenbank erst in ein DBGrid, dann in ein StringGrid und schließlich nach Excel, aber das musste ich so machen, weil ich mehrere Querys nacheinander habe laufen lassen und im STringGrid jeweils die neuen Daten im DBGrid mit den vorhandenen verglichen habe.
Und als Möglichkeit für den User habe ich den Export nach Excel eingebaut...

Wenn du sowas in die Richtung machen willst (und verstanden hast, was ich da geschrieben hab ) hier ein paar Codes zum Nachgucken:

Delphi-Quellcode:

rowCount := 0;
    //Übernehmen der Daten aus der DBGrid in ein StringGrid
    while not qryDatenbank.Eof do
    begin
      for k := 0 to DBGrid.Columns.Count - 1 do
      begin
        StringGrid.Cells[k, rowCount] := DBGrid.Fields[k].AsString;
        qryDatenbank.Next;
      end;
      rowCount := rowCount + 1;
      StringGrid.RowCount := rowCount;    
    end;

Und hier dann der Export nach Excel:

Delphi-Quellcode:

 procedure ExcelSpeichern;
var RowC, ColC: integer;
    Str: string;
    StrList: TStringList;
begin
  //zunächst wird hier eine csv-Datei erstellt: 
  
  StrList := TStringList.Create();

  for RowC := 0 to sgGarantie_Daten.RowCount - 1 do
  begin
    Str := '';
    for ColC := 0 to sgGarantie_Daten.ColCount - 1 do
      Str := Str + sgGarantie_Daten.Cells[ColC, RowC] + ';';
    Delete(Str, length(Str), 1); // löscht den überfluessigen String
    StrList.Add(Str);
  end;

  StrList.SaveToFile('tmpExcel.csv')

  //dann wird die Datei mit Excel geöffnet:
  ShellExecute(Application.Handle, 'OPEN', pchar(ExtractFilePath 
     (Application.ExeName) + 'tmpExcel.csv'), NIL, NIL, SW_NORMAL);

  // und schließlich die csv-Datei wieder gelöscht  
  DeleteFile(ExtractFilePath(Application.ExeName) + 'tmpExcel.csv');
end;

hoffe, das hilft dir weiter