Fehler bei INSERT mit TADOCommand

[Moony]

Hallo zusammen,

In einer Routine deklariere ich lokal eine Variable des Typs TADOCommand. Innerhalb dieser Routine werden zwei unterschiedliche Insert-Befehle auf zwei Tabellen innerhalb einer Datenbank ausgeführt (MS Access). Der erste BEfehl wird ohneProbleme durchgeführt, bei dem zweiten gibt es folgende Meldung:

Zitat:

Im Projekt xyz ist eine Exception der Klasse EOleException aufgetreten. Meldung: Das Feld ist zu klein für die Datenmenge, die Sie hinzufügen wollten. Versuchen Sie weniger Daten einzufügen....

Das zweite Problem ist, dass ich im MS Access in der Datenbank eine Abfrage gebaut habe mit der identischen Anweisung und evoila schon wird die Insert-Anweisung ausgeführt.

Demnach verstehe ich nicht was es in der Umgebung für ein Problem sein soll.

Die Anweisung sieht folgendermaßen aus:

Delphi-Quellcode:

  ...

  for i := 0 to ListView.Items.Count - 1 do
  begin
    myItem := ListView.Items.Item[0];
    SQL := 'INSERT INTO Tabelle1 (Feld1, Feld2, Feld3, Feld4, Feld5, ';
    SQL := SQL + 'Feld6, Feld7, Feld8) VALUES (';
    SQL := SQL + Wert1 + ', ''' + myItem.SubItems.Strings[0];
    SQL := SQL + ''', ''' + myItem.SubItems.Strings[1] + ''', ''' + myItem.SubItems.Strings[2];
    SQL := SQL + ''', ''' + myItem.SubItems.Strings[3] + ''', ''' + myItem.SubItems.Strings[4];
    SQL := SQL + ''', ''' + myItem.SubItems.Strings[5] + ''', ''' + myItem.SubItems.Strings[6] + ''')';

    Comm.CommandText := SQL;
    Comm.Execute;
  end;

  ...

Gruß, Moony