SQL-Abfrage

[Sharky]

Sollte das nicht ganz einfach so zu lösen sein?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  row : Integer;
begin
  Query1.Close;
  Query1.SQL.Text :=
                     'SELECT [Name], Geburtsdatum1,PartnerName, GeburtsdatumPartner' +
              + #10+ 'FROM <Tabellenname> ORDER BY [Name]';
  Query1.Open;
  StringGrid1.RowCount := Query1.RecordCount + StringGrid1.FixedRows;
  row := 1;
  While not (Query1.Eof) do
  begin
    StringGrid1.Cells[1,row] := Query1.FieldByName ('name').AsString;
    StringGrid1.Cells[2,row] := Query1.FieldByName ('Geburtsdatum1').AsString;
    Inc (row);
    StringGrid1.Cells[1,row] := Query1.FieldByName ('PartnerName').AsString;
    StringGrid1.Cells[2,row] := Query1.FieldByName ('GeburtsdatumPartner').AsString;
    Inc (row);
    Query1.Next;
  end;
end;