Einzelnen Beitrag anzeigen

Benutzerbild von freak4fun
freak4fun

Registriert seit: 22. Sep 2004
Ort: Hannover
1.807 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#1

Eine Zeile in bestehende Exceltabelle einfügen

  Alt 6. Apr 2006, 12:56
Datenbank: Excel • Zugriff über: ADO
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
Christian
IT: Schließen Sie bitte das Fenster. User: Die Tür auch?
i++; // zaehler i um 1 erhoehen
  Mit Zitat antworten Zitat