Habe die Datenbank in eine ComboBox gelesen.
Den Pfad der in der Datenbank für das Bild steht will ich an die PicturBox übergeben.
In der Combobox stehen Vorname und Nachname einer Person bei Klick Pfad vom Bild an Picturebox.
Code in Form:
Private Sub cboGeraete_Click()
'Bei Auswahl eines Datensatzes in der ComboBox
'Bild Aus Datenbank an Picturebox übergeben
Dim intListIndex As Integer
Dim lngID As Long
Dim pic As String
On Error GoTo err_Handler ' Fehlerbehandlung aktivieren
'Index des ausgewählten Datensatzes
intListIndex = cboEdit.ListIndex
'Wenn etwas in der ComboBox ausgewählt ist...
If intListIndex > -1 Then
'Den in ItemData gespeicherten ID-Wert ermitteln:
lngID = cboGeraete.ItemData(intListIndex) 'ID ermitteln
'Verweis auf RecordSet setzen:
Set rsmain = New ADODB.Recordset
'Den entsprechenden Datensatz ermitteln...
With rsmain
.ActiveConnection = objConn
.CursorLocation = adUseClient
' SQL String festlegen (Quelle)
.Source = "SELECT Bild FROM tGeraete " & _
"WHERE idGeraet=" & lngID
.Open
End With
'Wenn ein Datensatz gefunden wurde ...
If Not rsmain.EOF Then
Set pic = rsmain.Fields("Bild")
Set pbGeraete.Picture = Loadpicture(pic)
Else ' wenn kein Eintrag gefunden wurde
MsgBox "Es ist ein Fehler aufgetreten !", vbCritical, Me.Caption
End If
rsmain.Close ' Recordset schließen
Set rsmain = Nothing ' Verweis (Speicher) freigeben
Else
MsgBox "Sie müssen erst den zu bearbeitenden" & vbCrLf & _
"Datensatz in der ComboBox auswählen!", _
vbInformation, Me.Caption
End If
On Error GoTo 0
Exit Sub
err_Handler:
'Bei nicht behandelten Fehlern
MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
vbCritical, "Fehler" ' Fehlermeldung ausgeben
End Sub
Den Pfad der in der Datenbank für das Bild steht will ich an die PicturBox übergeben.
In der Combobox stehen Vorname und Nachname einer Person bei Klick Pfad vom Bild an Picturebox.
Code in Form:
Private Sub cboGeraete_Click()
'Bei Auswahl eines Datensatzes in der ComboBox
'Bild Aus Datenbank an Picturebox übergeben
Dim intListIndex As Integer
Dim lngID As Long
Dim pic As String
On Error GoTo err_Handler ' Fehlerbehandlung aktivieren
'Index des ausgewählten Datensatzes
intListIndex = cboEdit.ListIndex
'Wenn etwas in der ComboBox ausgewählt ist...
If intListIndex > -1 Then
'Den in ItemData gespeicherten ID-Wert ermitteln:
lngID = cboGeraete.ItemData(intListIndex) 'ID ermitteln
'Verweis auf RecordSet setzen:
Set rsmain = New ADODB.Recordset
'Den entsprechenden Datensatz ermitteln...
With rsmain
.ActiveConnection = objConn
.CursorLocation = adUseClient
' SQL String festlegen (Quelle)
.Source = "SELECT Bild FROM tGeraete " & _
"WHERE idGeraet=" & lngID
.Open
End With
'Wenn ein Datensatz gefunden wurde ...
If Not rsmain.EOF Then
Set pic = rsmain.Fields("Bild")
Set pbGeraete.Picture = Loadpicture(pic)
Else ' wenn kein Eintrag gefunden wurde
MsgBox "Es ist ein Fehler aufgetreten !", vbCritical, Me.Caption
End If
rsmain.Close ' Recordset schließen
Set rsmain = Nothing ' Verweis (Speicher) freigeben
Else
MsgBox "Sie müssen erst den zu bearbeitenden" & vbCrLf & _
"Datensatz in der ComboBox auswählen!", _
vbInformation, Me.Caption
End If
On Error GoTo 0
Exit Sub
err_Handler:
'Bei nicht behandelten Fehlern
MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
vbCritical, "Fehler" ' Fehlermeldung ausgeben
End Sub
