Hallo,
versuche aus meiner Access DB nach Absolut DB, vier Felder mit ca. 17000 Datensätzen zu importieren.(Erstversuch)
Aber bei ca.1400 Datensätzen hängt sich die Exe auf,(keine Rückmeldung).

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
//Übernahme Import Accdb Anfang
  ADOTable1.First;
  while not ADOTable1.Eof do begin
   AbsTable1.Edit;
    AbsTable1.Insert;
     AbsTable1.FieldByName('Preis').AsString := ADOTable1.FieldByName('Preis').AsString;
      AbsTable1.FieldByName('DEU').AsString := ADOTable1.FieldByName('DEU').AsString;
       AbsTable1.FieldByName('ENG').AsString := ADOTable1.FieldByName('ENG').AsString;
        AbsTable1.FieldByName('ITA').AsString := ADOTable1.FieldByName('ITA').AsString;
          ADOTable1.Next;
            AbsTable1.Post;
//Übernahme Import in Absolute DB Ende
end;
end;

Was jetzt, Bearbeiten oder Einfügen?

markieren

Delphi-Quellcode:

   AbsTable1.Edit;
    AbsTable1.Insert;

Wie MKinzler schon aufgezeigt hat: Ein Insert direkt nach einem Edit macht keinen Sinn. Du versetzt den aktuellen Datensatz in den Edit-Modus, ohne ihn via Post oder Cancel wieder daraus zu befreien. Es könnte daher sein, daß das anschließende Insert dazu führt, daß irgend ein Stack überläuft, nämlich der, der sich die Edit-Befehle merkt. Unübersichtlich ist auch die Reihenfolge von ADOTable1.Next und AbsTable1.Post gewählt: Besser wäre es hier, das Next ganz am Schluß des Schleifenrumpfes aufzurufen.

Und schließlich: Die Formatierung macht auch keinen Sinn. Besser wäre hier, die Zuweisungen im Verhältnis zu Edit und Post einzurücken:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); // Übernahme Import Accdb Anfang
begin
  ADOTable1.First;

  while not ADOTable1.Eof do
  begin
    AbsTable1.Insert;
      AbsTable1.FieldByName('Preis').AsString := ADOTable1.FieldByName('Preis').AsString;
      AbsTable1.FieldByName('DEU').AsString := ADOTable1.FieldByName('DEU').AsString;
      AbsTable1.FieldByName('ENG').AsString := ADOTable1.FieldByName('ENG').AsString;
      AbsTable1.FieldByName('ITA').AsString := ADOTable1.FieldByName('ITA').AsString;
    AbsTable1.Post;

    ADOTable1.Next;
  end;
end;

So siehst du auch gleich, wenn ein Edit und ein Insert derselben Tabelle aufeinander folgen.

Noch eine Frage: Wieso ist Preis ein String? Damit kann man doch gar nicht mehr rechnen ...

Erstmal Danke für die Tipps.
Ich geb mir Mühe... auch mit dem einrücken...

Hab alles so gemacht,aber nach ca. 500 Datensätzen hängt sich die Exe auf.
Keine Rückmeldung.Irgendetwas mach ich bestimmt verkehrt.

Hast Du das vielleicht in einer Transaktion gestartet? Wie sieht die Hauptspeicherauslastung aus? Und was heißt konkret "hängt sich auf"?

Ich vermute einfach mal, dass die Operation zu lange dauert, und Windows das Programm als tot ansieht, weil es keine Messages mehr abarbeitet. Ein gelegentliches "Application.ProcessMessages;" in der Schleife könnte schon helfen.
Das Programm läuft allerdings, auch wenn Windows meckert, weiter. Du müsstest einfach nur lange genug warten.

Zitat von blondervolker:

Hab alles so gemacht,aber nach ca. 500 Datensätzen hängt sich die Exe auf.

Auch beim Debuggen? Und wenn ja in welcher Zeile?

Hab das "Miniprojekt" mit drangehangen.Aber nur mit ca.1000 Datensätzen.
Die Exen habe ich gelöscht.(16 MB)
Wenn ich auf Import drücke und die Form verschiebe,spinnt die Exe.
Das gleich passiert,wenn ich den Projektordner nur verkleinere...

"hängt sich auf" oder "spinnt" sind eine super Fehlerbeschreibung und würde ich bei einem DAU auch durchgehen lassen - er weiß es einfach nicht besser.

Jemand der selber programmiert, sollte es besser wissen (beschreiben können).

Also (mitdenfingernindernasepuhlundherauszieh) wie ist die genaue Reaktion des Programms?
Was zeigt der Taskmanager zu der Anwendung an?
Hast du das Programm schon mal mit den 1000 Datensätzen laufen gelassen und so ca. 30 Minuten abgewartet?
Tauchen in der DB die Datensätze auf?
Arbeitest du mit Transaktionen?

Ach ja, bislang hast du dich erfolgreich vor jeglicher Beantwortung von Fragen gedrückt.
Wenn du das nicht möchtest, dann würde ich dir ein Häkelkreisforum empfehlen, aber erwarte hier keine Lösungen.