recordset ohne #ergebnis#

Question

Hallo,

hätte folgendes Problem das ich selbst nicht auf die Reihe bekomme:

Ich habe einen Bildlink in der Acces-DB. Den lese ich aus und möchte den Bildpfad einem Bild in einem Formular zuweisen.

Klappt im Prinzip aber beim Auslesen des Recordsets bekomme ich als Ergebnis #c:\bildname.jpg# statt c:\bildname.jpg

Dim ergebnisSQL As Recordset
Dim ergebnis As String

Set ergebnisSQL = CurrentDb.OpenRecordset("select blink from Tabelle1")

ergebnis = ergebnisSQL.Fields(0).Value

MsgBox (ergebnis) 'hier bringt er: #c:\bildname.jpg#

Bild1.Picture = ergebnis

Help me please ...

Answer 1

Hi Fans,

hab jetzt eine Lösung gefunden - wahrscheinlich etwas kompliziert aber es funzt. Länge des String vermessen und dann erstes und letztes Zeichen abziehen ...

Grüatzi

Dim ergebnisSQL As Recordset
Dim ergebnis As String
Dim laenge As Integer

Set ergebnisSQL = CurrentDb.OpenRecordset("select top 1 blink from Tabelle1")
ergebnis = ergebnisSQL.Fields(0).Value

laenge = Len(ergebnis)
ergebnis = Left(ergebnis, laenge - 1)
ergebnis = Right(ergebnis, laenge - 2)

Bild1.Picture = ergebnis