Wert aus SQL Sting übergeben

03/05/2008 - 10:25 von Jürgen Großmann | Report spam
Hallo zusammen
Ich habe einen SQL String siehe unten
Ich möchte nun den wert aus tbl_cd.frontcover an ein "Bildelement"
übergeben.
der Wert wird in der Tabelle folgendermaßen gespeichert.
D:\cd archive\cover\a\peter_maffay_-_lange_schatten_a.jpg
Wie bekomme ich nun das bild angezeigt?
Gruß Jürgen

strSQLListefüllen = " select tbl_cd.cdid, tbl_cd.CDName, tbl_cd.cdinterpret,
tbl_CDTitel.TitleID, tbl_CDTitel.CDNr, tbl_CDTitel.Titel,
tbl_Interpreten.interpretID, tbl_Interpreten.Interpreten, tbl_cd.frontcover"
strSQLListefüllen = strSQLListefüllen & " from tbl_interpreten inner join
(tbl_cd inner join tbl_cdtitel on tbl_cd.cdid = tbl_cdtitel.cdnr) on
tbl_interpreten.interpretid = tbl_cd.cdinterpret"

If Me!lst_Interpret <> 0 Then ' wenn im Listenfeld Hersteller ein
Eintrag selektiert wurde
grp1 = Me![lst_Interpret].Column(0)
If Me![lst_CDName] <> 0 Then ' wenn im Listenfeld Modell
ein Eintrag selektiert wurde
grp2 = Me![lst_CDName].Column(0)
strSQLListefüllen = strSQLListefüllen & " WHERE
(tbl_cdtitel.cdnr) =" & grp2 ' nur der gewàhlte Hersteller
strSQLListefüllen = strSQLListefüllen & " ORDER BY tbl_CD.CDName
" ' Sortierung nach Modell und Typ
Else
strSQLListefüllen = strSQLListefüllen & " WHERE
(tbl_interpreten.interpretid) = " & grp2 ' nur das gewàhlte Modell
strSQLListefüllen = strSQLListefüllen & " ORDER BY tbl_cd.CDName
"
End If
Else
End If
 

Lesen sie die antworten

#1 Thomas Möller
03/05/2008 - 10:48 | Warnen spam
Hallo Jürgen,

"Jürgen Großmann" schrieb:
Ich habe einen SQL String siehe unten
Ich möchte nun den wert aus tbl_cd.frontcover an ein "Bildelement"
übergeben.
der Wert wird in der Tabelle folgendermaßen gespeichert.
D:\cd archive\cover\a\peter_maffay_-_lange_schatten_a.jpg
Wie bekomme ich nun das bild angezeigt?
Gruß Jürgen

strSQLListefüllen = " select tbl_cd.cdid, tbl_cd.CDName,
tbl_cd.cdinterpret, tbl_CDTitel.TitleID, tbl_CDTitel.CDNr,
tbl_CDTitel.Titel, tbl_Interpreten.interpretID,
tbl_Interpreten.Interpreten, tbl_cd.frontcover"
strSQLListefüllen = strSQLListefüllen & " from tbl_interpreten inner
join (tbl_cd inner join tbl_cdtitel on tbl_cd.cdid = tbl_cdtitel.cdnr)
on tbl_interpreten.interpretid = tbl_cd.cdinterpret"

If Me!lst_Interpret <> 0 Then ' wenn im Listenfeld Hersteller
ein Eintrag selektiert wurde
grp1 = Me![lst_Interpret].Column(0)
If Me![lst_CDName] <> 0 Then ' wenn im Listenfeld
Modell ein Eintrag selektiert wurde
grp2 = Me![lst_CDName].Column(0)
strSQLListefüllen = strSQLListefüllen & " WHERE
(tbl_cdtitel.cdnr) =" & grp2 ' nur der gewàhlte Hersteller
strSQLListefüllen = strSQLListefüllen & " ORDER BY
tbl_CD.CDName " ' Sortierung nach Modell und Typ
Else
strSQLListefüllen = strSQLListefüllen & " WHERE
(tbl_interpreten.interpretid) = " & grp2 ' nur das gewàhlte Modell
strSQLListefüllen = strSQLListefüllen & " ORDER BY
tbl_cd.CDName "
End If
Else
End If



Du musst jetzt zwei Schritte erledigen:
1. Pfad zum Bild ermitteln
2. Bild anzeigen lassen


Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strPfadBild As String

Set db = CurrentDb()
Set rst = db.OpenRecordset(strSQLListefüllen)

'Pfad zum Bild ermitteln
If Not rst.EOF
strPfadBild = Nz(rst!frontcover,"")
End If

'Bild anzeigen lassen
If Len(strBildPfad) >0 Then
Me!DeinBildSteuerelement.Picture = strBildPfad
Else
MsgBox "Kein Bild vorhanden"
End If

rst.Close
Set rst=Nothing
Set db = Nothing



HTH
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen