Hallo,
also ich möchte Daten einer bestehenden Datenbank in eine neue Datenbank übernehmen. Es geht hier um ein Programmupdate wobei das Update ohne Einwirkung des Anwenders funktionieren sollte.
Zur Zeit versuche ich es so.
Delphi-Quellcode:
procedure TfrmUebernahme.Optionen;
var i, Saetze : Integer;
begin
if cbxOptionen.Checked then
begin
Query_Quelle.Close;
Query_Quelle.SQL.Clear;
Query_Quelle.SQL.Add('select * from TBL_OPTIONEN');
Query_Quelle.Open;
Query_Ziel.Close;
Query_Ziel.SQL.Clear;
Query_Ziel.SQL.Add('select * from TBL_OPTIONEN');
Query_Ziel.Open;
Query_Ziel.Edit;
for i := 0 to Query_Quelle.fieldcount -1 do
begin
Query_Ziel.Fields[i].asvariant := Query_Quelle.Fields[i].asvariant;
end;
Query_Ziel.post;
dmMain.ibqryOptionen.Refresh;
end;
end;
Bei diesen Code hat die Tabelle nur einen Datensatz.
Das funktioniert auch ganz gut. Nur wenn die Struktur unterschiedlich ist knallt es. Ich werde mich mal an
die Lösung von himitsu wagen. Der Ansatz sieht gut.