2 Datenbanken abgleichen

[waldforest]

Hallo,
auf der Suche bin ich auf anliegendes Tool Interbase Restructurer gestoßen.
http://sourceforge.net/projects/ibrest/

und hier zum Source
http://sourceforge.net/projects/ibre...d?source=files
denke die hilft dir weiter

[Walter Landwehr]

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.

[himitsu]

Ich hatte gedcht, daß die Teile mit "..." Punkten eventuell schon bekannt sind.

Query_Quelle.SQL.Add('select * from TBL_OPTIONEN'); // läd ALLES
Also z.B. mit while not Query_Quelle.Eof do ... drüberlaufen und alle Datensätze durchlaufen.

Und nun entweder Query_Ziel.SQL.Add('select * from TBL_OPTIONEN'); // läd ALLES und dann vor dem Bearbeiten mit Query_Ziel.Locate den zugehörigen Datensatz auswählen
oder über Query_Ziel.SQL.Add('select * from TBL_OPTIONEN where EINE_ID = :ID'); Query_Ziel.ParamByName('ID').Value := Query_Quelle.FieldByName('EINE_ID').Value; jeweils nur den passenden Zieldateisatz laden.

[Sir Rufo]

Also, man ist sehr gut beraten, wenn die Datenbankstruktur ihren eigenen Versionsstand kennt, bzw. diesen irgendwie dort ablegt.

Für die Update-Orgie stellt man nun Skripts zusammen, die die Datenbankstruktur von Version X auf Version Y bringen können.

Jetzt wird auf einmal alles einfach:

• Frage nach der Version
• Suche Skript zu dieser Version
• Kein Skript gefunden, dann raus hier
• Führe Skript aus
• Alles nochmal von vorne

Ganz zum Schluss wird einfach nochmal die Probe gemacht, ob die Struktur jetzt tatsächlich auf der benötigten Version ist.

[Walter Landwehr]

Hallo himitsu,

bei dem Beispiel Code handelst es sich um eine Tabelle mit nur einen Datensatz. Das Problem ist das die Quell-Struktur unter Umständen anders ist wie die Ziel-Struktur, d.h. Felder können an anderer Position sein und dann funktioniert meine Schleife nicht.

Delphi-Quellcode:

 for i := 0 to Query_Quelle.fieldcount -1 do
     begin
        Query_Ziel.Fields[i].asvariant := Query_Quelle.Fields[i].asvariant; // hier ist das Problem.
     end;
     Query_Ziel.post;

Feld 10 könnte in Ziel an Position 11 sein und unterschiedliche Feldwerte wie Boolean und Integer sein.

Das ist mein Problem.

[baumina]

Gehe doch lieber über den Feldnamen, die Reihenfolge der Felder innerhalb einer Tabelle ist dann egal.

[Walter Landwehr]

Hallo baumina,

hast Du mal ein Beispiel?

[Uwe Raabe]

Mach dir doch nicht so einen Stress und benutze CopyFields.

[baumina]

Delphi-Quellcode:

for i := 0 to Query_Quelle.fieldcount -1 do
begin
  ZielFeld := Query_Ziel.FieldByName(Query_Quelle.Fields[i].FieldName);
  If Assigned(ZielFeld) then
  begin 
    ZielFeld.asvariant := Query_Quelle.Fields[i].asvariant; 
  end;
end;