Daten von einer Datasource importieren

[sx2008]

Delphi-Quellcode:

rc := 1;   // integer Zähler 
QrySource.Open;  // Excel Daten
QryDst.Open;   // MySQL-Tabelle
while not QrySource.Eof do
begin
  QryDst.Append;  // neuer, leerer Datensatz
  QryDst['IdAdresse'] := rc;  // Primärschlüssel
  QryDst['Name'] := QrySource.Fields[0].Value;  // Feld kopieren
  QryDst['EMail'] := QrySource.Fields[1].Value;
  ...
  QryDst.Post;  // Daten abschicken
  QrySource.Next;   // nächste Excel Reihe
  Inc(rc);
end;