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

[mr2]

versuchs mal damit

Delphi-Quellcode:

  with DataModule1.ADODataSet3 do
    if FindFirst then while not Eof do begin 
      cbTabellen.Items.Add(FieldByName('TABLE_NAME').AsString); 
      Next;
    end;

[Ricane]

Der Source funktioniert zwar, aber ich kriege immer noch die gleiche Fehlermeldung, wenn ich das zweite mal versuche die Tabellen auszulesen...


Ricane

[mr2]

Über welchen OleDB-Provider gehst Du und welche Oracle-Version wird verwendet?
Mit 'OraOLEDB.Oracle' als Provider und einer Oracle9-DB funktioniert bei mir alles auch mehrfach.

[Ricane]

Problem gelöst!!!

Bevor die Aktualisierung von neuem gestartet wird, muss einfach nur folgender Befehl kommen...

Code:

grdData.Free

Tja, manchmal ist es so einfach, das man nicht dran denkt...


Thx für die Hilfe,

Ricane