Option Explicit
Dim cn As ADODB.Connection, rs As ADODB.Recordset, bildPfad As String
' Bild in Variable (String) lesen
Public Function ReadPicture(sFilename As String) _
  As String
 
  Dim F As Integer
  Dim sInhalt As String
 
  F = FreeFile
  Open sFilename For Binary As #F
  sInhalt = Space$(LOF(F))
  Get #F, , sInhalt
  Close #F
 
  ReadPicture = sInhalt
End Function
 
Private Sub cmdAnzeigen_Click()
    ShowPicture (rs!bild)
End Sub
 
Private Sub Command1_Click()
    On Error Resume Next
    With cmDialog
        .CancelError = True
        .DialogTitle = "Datei Öffnen"
        .Filter = _
        "Jpegs(*.jpg)|*.jpg|Bitmaps(*.bmp)|*.bmp"
        .ShowOpen
 
    End With
    bildPfad = cmDialog.FileName
    rs.AddNew
    rs.Fields("bild").Value = ReadPicture(bildPfad)
    rs.Update
    On Error GoTo 0
    Err.Number = 0
End Sub
 
' Bild aus Datenbank laden und anzeigen
Public Sub ShowPicture(ByVal sInhalt As String)
 
  Dim F As Integer
 
  ' Bilddatei temporär erstellen
  F = FreeFile
  Open App.Path & "\Bild.tmp" For Output As #F
  Print #F, sInhalt;
  Close #F
 
  ' Bild anzeigen
  Image1.Picture = LoadPicture(App.Path & "\Bild.tmp")
 
  ' temporäre Datei löschen
  Kill App.Path & "\Bild.tmp"
End Sub
 
 
Private Sub Form_Load()
 Set cn = SQL_connect 'ODBC
 Set rs = SQL_recordset(cn, "select * from Bilder") 'ODBC
 
End Sub
 
 
 
'-----verbindung zu DB ------------
 
  Public Function SQL_connect() As ADODB.Connection
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
 
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER=233.33.11.111;" _
            & "DATABASE=xxx;" _
            & "UID=xxx;" _
            & "PWD=xxxx;" _
            & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
 
conn.CursorLocation = adUseClient
conn.Open
Set SQL_connect = conn
 
End Function
 
Public Function SQL_recordset(conn As ADODB.Connection, sql As String) As _
  ADODB.Recordset
 
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim mystream As ADODB.Stream
 
Set mystream = New ADODB.Stream
mystream.Type = adTypeBinary
rs.Open sql, conn, adOpenStatic, adLockOptimistic
mystream.Open
Set SQL_recordset = rs
End Function