Option Explicit
 
Dim rstRecordset As ADODB.Recordset
Dim cnnConnection As ADODB.Connection
Dim strStream As ADODB.Stream
Dim BildPfad As String
 
 
Public Function LoadPictureFromDB(rs As ADODB.Recordset)
 
    Set strStream = New ADODB.Stream
    strStream.Type = adTypeBinary
    strStream.Open
 
    strStream.Write rs.Fields("Bild").Value
 
    strStream.SaveToFile "C:\Temp.bmp", adSaveCreateOverWrite
    Image1.Picture = LoadPicture("C:\Temp.bmp")
    Kill ("C:\Temp.bmp")
    LoadPictureFromDB = True
 
End Function
 
Public Function SavePictureToDB(rs As ADODB.Recordset, _
    sFileName As String)
 
    Dim oPict As StdPicture
    Set oPict = LoadPicture(sFileName)
 
    rs.AddNew
 
    Set strStream = New ADODB.Stream
    strStream.Type = adTypeBinary
    strStream.Open
    strStream.LoadFromFile sFileName
    rs.Fields("Bild").Value = strStream.Read
 
    Image1.Picture = LoadPicture(sFileName)
    SavePictureToDB = True
 
    rs.Update
End Function
 
Private Sub cmd_cancel_Click()
    LoadPictureFromDB rstRecordset
End Sub
 
Private Sub cmd_ok_Click()
    SavePictureToDB rstRecordset, BildPfad
End Sub
 
Private Sub cmdEinfügen_Click() ' Hier wird cmDialog geöffnet und pfad 
' ausgewählt
    On Error Resume Next
    With cmDialog
        .CancelError = True
        .DialogTitle = "Datei Öffnen"
    End With
    BildPfad = cmDialog.FileName
        .Filter = _
        "Jpegs(*.jpg)|*.jpg|Bitmaps(*.bmp)|*.bmp"
        .ShowOpen
 
    End With
    BildPfad = cmDialog.FileName
    On Error GoTo 0
    Err.Number = 0
End Sub
 
 
Private Sub Form_Load()
   Set cnnConnection = New ADODB.Connection
    Set rstRecordset = New ADODB.Recordset
 
    cnnConnection.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
        "SERVER=213.70.108.32;" & _
        "DATABASE=a_auto; " & _
        "User Id=a_auto;Password=mau43;" & _
        "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
 
    rstRecordset.Open "Select * from Bilder", cnnConnection, adOpenKeyset, _
      adLockOptimistic
 
 
End Sub