Einzelnen Beitrag anzeigen

Benutzerbild von Jens Hartmann
Jens Hartmann

Registriert seit: 11. Jan 2009
Ort: Wilnsdorf
1.439 Beiträge
 
Delphi XE2 Professional
 
#1

Bild aus Access DB auslesen und verarbeiten - *.png

  Alt 11. Dez 2014, 05:33
Datenbank: Access • Version: 2007 • Zugriff über: TADOQuery
Hallo zusammen,

ich habe aktuell folgendes Problem.

Ich habe in eine Access Datenbank in einer Tabelle Symbole eingebunden. Var. 1 als OLE-Objekt und Var. 2 als Anlage. Öffne ich diese Tabelle über ein TADOTable, ist zu mindestens mal das öffnen möglich. Ich möchte allerdings einen anderen Weg gehen. Dieser ist wie folgt aufgebaut.

TADOQuery - in welcher eine Tabelle abgefragt wird

SELECT * FROM MV_BMA In dieser Query habe ich alle erforderlichen Felder hinzugefügt. Unter diesen Feldern befindet sich auch der Verweis auf die Tabelle "Symbole". Zusätzlich habe ich daher der Query über den Feldeditor ein "Neues Feld" hinzugefügt. Diese habe ich "Symbole" genannten und als "Nachschlagen" deklariert.

Über die Verbindung der Verweise (Primarykey etc.) möchte ich nun das passende *png zum jeweiligen Recordset laden.

Um die TADOTable zu öffnen, habe ich das "Active := true" in die "Before Open" und das "Active := false" in die "AfterClose" Methode der Query integriert.

Delphi-Quellcode:
procedure TDMReportData.qryRingTopologieBeforeOpen(DataSet: TDataSet);
begin
  tblSymbole.Active := true;
end;

procedure TDMReportData.qryRingTopologieAfterClose(DataSet: TDataSet);
begin
  tblSymbole.Active := false;
end;
Öffne ich jetzt die Query, kommt eine seltsame Fehlermeldung. Siehe Anhang.

Weiß jemand woran das liegt. Geht das mit Bilder als "Nachschlagen" nicht?

Danke und Gruß Jens
Miniaturansicht angehängter Grafiken
fehler.jpg  
Jens Hartmann
Das Leben selber ist zu kurz, also nutze jeden Tag wie er kommt.
  Mit Zitat antworten Zitat