ORACLE und Tabellennamen auslesen...

[Ricane]

Moin,

ich habe ein Problem bei dem auslesen der Oracle Tabellen. Mit folgendem Source lese ich die ORACLE - Tabellen aus.

Beim ersten auslesen, nach Programmstart, funktioniert das auch wunderbar, aber sobald ich das ganze noch einmal versuchen möchte, komme folgende Fehlermeldung...

Die Datenmenge unterstützt keine Positionsmarken, die von Multi-Datensatz-Elementen benötigt werden

Hier mein "Auslese - Source"

Code:

    db_Datamodule.DataModule1.ADODataSet3.Active := False;
    db_Datamodule.DataModule1.ADODataSet3.CommandText :=
      'select * from all_catalog';
    db_Datamodule.DataModule1.ADODataSet3.Active := True;
    For I := 1 To (DataModule1.ADODataSet3.RecordCount - 1) Do
    Begin
      DataModule1.ADODataSet3.RecNo := I;
      cbTabellen.Items.Add(grdData.Fields[1].Text);
    End;

Die ADODataSet3 - Komponente habe ich nur zum auslesen der Tabellennamen und Spaltennamen. Sie ist mit einem DBGrid verbunden. Beim auslesen von SQL, bzw. ACCESS DB´s benutze ich folgenden Code:

Code:

    Tabellen := TStringList.Create;
    Db_DataModule.DataModule1.ADOConnection1.GetTableNames(Tabellen, False);
    For I := 0 To (Tabellen.Count - 1) Do
      cbTabellen.Items.Add(Tabellen[I]);

Der klappt auch so oft wie man möchte... liegt wohl daran, das es eine eigene Methode ist, und kein SQL - String...


Grüsse,

Ricane