Grafik aus Base lesen und in form stellen? [Gelöst]

[gogo]

Code: Alles auswählen

oForm.getByName("imgProduct image").commit(true)

in Anlehnung an: http://de.openoffice.info/viewtopic.php ... 43#p139329

bzw. noch mehr Hammer:

Code: Alles auswählen

oForm.getByName("imgProduct image").commit(true)
oForm.ismodified = true
oForm.reload

[Decurtins]

Danke vielmals Gogo.
Hab mir allerdings noch eine andere Lösung zusammengebröselt (ein Form.Reload ist dabei nicht nötig, würde bei mir, glaub ich, auch nicht funktionieren, da ich das Form als Dokument ohne echten Bezug zu einer Table der Datenbank einsetze, der Reload würde alle werte aus den Formularfeldern löschen, denke ich…)
...


YES!

Habe mir eine Lösung zusammengesucht.

ConvertToURL() wandelt nur in korrektes Format um, gibt allerdings nicht den echten relativen Pfad wieder.
Den relative Pfad (des Datenbankfiles, wo sich auch die Bilddateien befinden) kann mann via

Code: Alles auswählen

Pathdatabase= tools.strings.DirectoryNameoutofPath(ThisDatabaseDocument.url,"/")

erheben.

hier nochmal der funktionierende Code

Code: Alles auswählen

ResultSetProductImage = Statement.executeQuery("SELECT DISTINCT ""Product image"" FROM ""Products_R-tunes"" WHERE ""Product"" = '" + sProduct + "'") 

If Not IsNull(ResultSetProductImage) Then
  While ResultSetProductImage.next
    sResultSetProductImage = ResultSetProductImage.getString(1)
  Wend
End If

DIM oImgProductImage as object
oImgProductImage = oForm.getByName("imgProduct image")

if not globalscope.BasicLibraries.islibraryloaded("Tools") then
      globalscope.BasicLibraries.loadlibrary("Tools")
end if

DIM Pathdatabase
Pathdatabase= tools.strings.DirectoryNameoutofPath(ThisDatabaseDocument.url,"/") ' Für Windows vielleicht "\" (bin auf Mac)

oImgProductImage.ImageURL = Pathdatabase & "/" & sResultSetProductImage 

[Decurtins]

Doch noch nicht ganz...

Das Bild erscheint jetzt einfach am linken unteren Rand des Forms und hat scheinbar keinen Bezug mehr zum Graphik Kontrollfeld.

nach meiner Logik sollte es eigentlich klappen, denn ich gebe dem objekt oImgProductImage ja nur eine .ImageURL mit und verändere sonst nichts…

kann man da was machen?

EDIT: Hatte ein zweites ImgProduct image Grafikkontrollfeld (ohne rand und daher unsichtbar) im Formular.

aber jetzt klappt alles.
Danke F3K für die Hilfsbereitschaft !

[F3K Total]

Ja,
z.B. ein Beispieldokument hochladen ...
Gruß R

[gogo]

Code: Alles auswählen

Pathdatabase= tools.strings.DirectoryNameoutofPath(ThisDatabaseDocument.url,"/") ' Für Windows vielleicht "\" (bin auf Mac)

Mit getPathSeparator solltest Du immer den richtigen kriegen (GlobalScope.BasicLibraries.LoadLibrary("Tools") ... dort ist getPathSeparator drin).

Code: Alles auswählen

Pathdatabase= tools.strings.DirectoryNameoutofPath(ThisDatabaseDocument.url, getPathSeparator )

[Decurtins]

Super danke !

ergebnis =

Code: Alles auswählen

Pathdatabase= tools.strings.DirectoryNameoutofPath(ThisDatabaseDocument.url, getPathSeparator)  
oImgProductImage.ImageURL = Pathdatabase & getPathSeparator & sResultSetProductImage

dann wird das Kind ja Betriebssystemunabhängig, richtig?

herzlichen Dank nochmals!