SoloCodigo

Hola a todos:

Tras mucho intentarlo aun no he conseguido visualizar una foto de una base de datos access, la foto esta copo tipo ole y utilizo para la conexion a la base de datos DAO.

Me sale un error 481, La imagen no es valida, y me da eror en esta linea
Image1.Picture = LoadPicture(sBmp

Alguien sabe porque?

El codigo que tengo escrito es:
Private Sub Form_Load()
    Dim i As Integer
 
    ' conectamos a la BD y abrimos el recordset
    'Set db = OpenDatabase(App.Path & "\MisFotos.mdb")
    Set rs5 = DB.OpenRecordset("SELECT * FROM cd4")
    ' cargamos el combo con el campo "Nombre"
    Do Until rs5.EOF
        Combo1.AddItem rs5("Tema")
        rs5.MoveNext
    Loop
    Image1.Stretch = True
End Sub

Private Sub Combo1_Click()
    ' seleccionamos el campo "Foto" del nombre seleccionado
    Set rs5 = DB.OpenRecordset("SELECT Foto FROM cd4 WHERE Tema ='" & Combo1.Text & "'")
    CargaFoto
End Sub

Private Sub CargaFoto()
    Dim lLen As Long, sBmp As String
    Dim aByte() As Byte
    ' vamos a crear un archivo temporal en el directorio de la aplicación
    sBmp = "C:\temp.bmp"
    With rs5
        lLen = .Fields("Foto").FieldSize
        ReDim aByte(lLen) As Byte
        aByte = .Fields("Foto").GetChunk(0, lLen)
        Open sBmp For Binary As #1
        Put #1, , aByte
        Close #1
    End With
    Image1.Picture = LoadPicture(sBmp)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ' eliminamos el archivo temporal
    Kill "C:\temp.bmp"
End Sub

Graciass

vale muchas gracias, ahora ya me va, pero tengo una duda, si en la select pongo un where porque da error? me da error de sintaxis en la clausula from.

No esta bien escrito? muchisimas gracias por todo

Set rs2 = DB.OpenRecordset("SELECT distinct Subtema from " & nomTabla & "where Tema ='" & cmbTema.Text & "'", dbOpenDynaset)

vale, muchisimas gracias, ya me funciona