Moin.
Ich habe zwei ComboBoxen, in die jeweils die Tabellennamen und, nach Auswahl einer Tabelle, Spaltennamen aus einer
MSSQL-Datenbank eingetragen werden. Hat auch alles wunderbar funktioniert und geändert habe ich am Coding auch nichts. Habe nun zwei Einträge in die Datenbank hinzugefügt und bekomme nun auf einmal einen Fehler. Die Tabellenstruktur habe ich auch nicht verändert. (was aber auch nicht zu einem Fehler führen dürfte)
Hier erstmal der Code:
Delphi-Quellcode:
procedure TfrmMain.cbTablesChange(Sender: TObject);
var
i: Integer;
begin
//Tabellendaten auslesen
qryMaster.SQL.Text := 'SELECT * FROM ' + cbTables.Text;
qryMaster.Open;
if FSlaveConnected or qrySlave.Active then
begin
qrySlave.SQL.Text := qryMaster.SQL.Text;
qrySlave.Open;
end;
cbColumns.Clear;
for i := 0 to qryMaster.RecordCount - 1 do
begin
cbColumns.Items.Add(
qryMaster.Fields[i].FieldName);
end;
end;
Und hier der Fehler:
Code:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt SyncDB.exe ist eine
Exception der Klasse EListError aufgetreten. Meldung: 'Listenindex überschreitet das Maximum (4)'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------
Wieso bekomme ich jetzt einen Fehler, obwohl ich weder am Code, noch was anderes verändert habe?