Eine Zeile in bestehende Exceltabelle einfügen

[freak4fun]

Ich habe eine bestehende Exceltabelle, die ich über ADO anspreche. Mit dem Auslesen habe ich keine Probleme, aber mit dem Einlesen hab ich Schwierigkeiten.

Delphi-Quellcode:

ADOTable1.First;
while (ADOTable1.FieldByName('1').AsString <> '') do
  ADOTable1.Next;

ADOTable1.Edit;
ADOTable1.FieldByName('1').AsString := Edit1.Text;
ADOTable1.FieldByName('2').AsString := Edit2.Text;
ADOTable1.FieldByName('3').AsString := Edit3.Text;
ADOTable1.Post;

Ich suche die erste Zeile in der Exceltabelle, in der nichts steht und möchte da dann meine Felder aus den EditFeldern eintragen. Wenn ich das so ausführe wie es ist, wird die ganze Tabelle mit den Daten gefüllt und nicht nur diese eine Zeile. Wie füge ich also nur diese eine Zeile ein?

Es soll dann so aussehen:

Zeile: Edit1.Text | Edit2.Text | Edit3.Text

MfG
freak

[mikhal]

Wie wäre es mit der Methode Append statt Edit? Dann kannst du dir eigentlich auch die Suche nach der ersten leeren Zeile sparen...

Grüße
mikhal

[freak4fun]

Zitat:

Zitat von mikhal

Wie wäre es mit der Methode Append statt Edit? Dann kannst du dir eigentlich auch die Suche nach der ersten leeren Zeile sparen...

Das hatte ich mir auch gedacht, aber mit Append wird der Datensatz irgendwo zwischen Zeile 12000 und 13000 in die Eceltabelle geschrieben. :( Außerdem will ich später auch Datensätze ändern, die schon exsistieren und da brauch ich das Edit dann sicherlich auch. ;)

MfG
freak

[freak4fun]

Eine Fehlermeldung hab ich auch noch.

Zitat:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOleException with message 'Key column information is insufficient or incorrect. Too many rows were affected by update'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

MfG
freak