Inhalt eines Blobfeldes nur bei Abruf laden

[Moony]

Hallo zusammen,

folgende Situation ist gegeben:

Ich greife über die ODAC oder ADO Komponente auf einen Oracle Server zu, indem eine SQL Anweisung ausgeführt wird (SELECT * FROM Table). In dieser Tabelle ist mindestens ein Blobfeld vorhanden. Je nachdem wie viele Daten jedes Blobfeld enthält, dauert die Übertragung sehr lange (ca. 5-10 Minuten) bis das Query die Datensätze in das DBGrid lädt.

Meine Frage an dieser Stelle ist:
Gibt es eine Möglihckeit zwar alle Felder der Datenbank zu holen, aber beim Inhalt des Blobfeldes eine Ausschlußklausel zu setzen, so dass die Inhalte der Blobfelder explizit bei direktem Abruf des Datensatzes erfolgen? Somit würde sich die Dauer der Datenübertragung um 90% verringern.

Danke & Gruß, Moony

[mkinzler]

Sollte bei Oracle eigentlich automatisch so sein, da die Blobs separat von der Tabelle gespeichert werden.
Du könntest das Blob-Feld als Dummy holen.

[Moony]

Und wie soll das gehen?

Wie gesagt, ich führe eine normale SQL Anweisung aus, dennoch braucht das Query so lange, um die Tabelle abzurufen.

[mkinzler]

Versuch mal
SELECT <So. Felder>, CAST( null as BLOB) as <Blobfeldname> from <Tabelle>;

[Moony]

Diese Abfrage setzt aber voraus, dass ich alle Feldnamen kenne und auch weiß welche Felder Blobfelder sind? Ist das richtig?

[mkinzler]

Ja. Aber ich würde mal in den Komponenten schauen, ob man das automatische Fetchen der Blobs unterbinden kann (wenn es wirklich das Problem ist)

[Bernhard Geyer]

Erst

SELECT * from <Tabelle> where 1=2; Um Felder + Feldtypen zu bekommen
und dann nur alle Nicht-Blob-Felder abfragen.

[Moony]

Also, ich habs jetzt folgendermaßen gemacht:

Delphi-Quellcode:

  OraQuery1.Close;
  OraQuery1.SQL.Clear;
  SQL := 'SELECT * FROM ' + mytable + ' WHERE 1=2';
  OraQuery1.SQL.Add(SQL);
  OraQuery1.Open;
  Lst        := TStringList.Create;
  LstBlob    := TStringList.Create;
  LstNonBlob := TStringList.Create;
  try
    OraQuery1.GetFieldNames(Lst);
    
    for i := 0 to Lst.Count - 1 do
    begin
      if OraQuery1.FieldByName(Lst.Strings[i]).IsBlob then
        LstBlob.Add(Lst.Strings[i])
      else LstNonBlob.Add(Lst.Strings[i]);
    end;

    SQL := 'SELECT ' + LstNonBlob.CommaText + ',';

    for i := 0 to LstBlob.Count - 1 do
    begin
      SQL := SQL + 'CAST(NULL AS BLOB) AS ' + LstBlob.Strings[i];

      if i < (LstBlob.Count - 1) then
         SQL := SQL + ',';
    end;

    SQL := SQL + ' FROM ' + mytable;

    OraQuery1.Close;
    OraQuery1.SQL.Clear;
    OraQuery1.SQL.Add(SQL);
    OraQuery1.Open;
  finally
    Lst.Free;
    LstBlob.Free;
    LstNonBlob.Free;
  end;

Wenn ich das Query dann öffnen möchte gibts folgende Fehlermeldung:

"ORA-00932: inconsistent datatypes:expected- got BLOB"

[hoika]

Hallo,

hast du mal <SQL> vor dem Open angesehen ?
Wenn z.B. gar kein Blob in der Tabelle ist,
steht da

select x,y, from Table.

Das letzte Komma ist falsch.



Heiko

[Moony]

@hoika:
Das stimmt wiederum. Das werde ich ändern. Aber das ist nicht die Ursache, weil ich weiß dass 1 Feld definitv ein Blobfeld ist.

@mkinzler:
Das ist das Problem! Die Bilddaten werden bei dem SQL String mitgeladen, was völlig unnötig ist. Das frißt nur jede Menge Performance und Zeit die Tabelle überhaupt angezeigt zu bekommen. Das einzige was ich einstellen kann ist, ob ich alle oder nur eingeschränkt die Datensätze lade. Nichts desto trotz lädt er bei eingeschränkten Datensätzen ebenfalls die Blobdaten mit. Deshalb brauche ich eine Möglichkeit in der SQL-Anweisung, um sagen zu können, dass ich zwar alle Felder haben möchte, aber die Blobdaten nur dann abgerufen werden, wenn ich sie wirklich benötige.