Hola, les escribo por este problema que tengo:
he checado en las faq un ejemplo para el ingreso de archivos .jpeg a un campo OLE de una BD de access, y me ha resultado, pero el problema que tengo ahora es al momento de actualizar ese archivo.
les platico lo que yo hago es lo siguiente:
al momento de pulsar un boton para actualizar la foto (archivo .jpeg) hago esto:
Private Sub cmdActuaizaFoto_Click()
dialogo2.Filter = "Archivos JPG|*.jpg|Archivos GIF|*.gif|Archivos BMP|*.bmp" ' filtrar
dialogo2.ShowOpen
If dialogo2.FileName <> "" Then
With DaEnv01 ' conexion a la bd
Dim mystream2 As New Stream ' declaramos el stream para leer las fotos
mystream2.Open
mystream2.Type = adTypeBinary ' le decimos que nuestra imagen es de tipo binario
picFoto.Picture = LoadPicture(dialogo2.FileName)
mystream2.LoadFromFile dialogo2.FileName
.comUpdateFoto mystream2.Read, txtNumCtrl.Text
"aqui me marca el error que es tipo de datos incorrectos para el parametro"
mystream2.Close ' Cerrar Stream
end With
MsgBox "La Foto del empleado se ha actualizado", vbInformation, "Sistema"
End If
End Sub
algún comentario al respecto