¡Hola amigo del Foro.
He tratado de guardar una imagen (foto) en una base de datos que tengo conectada con sentencia DAO, y para ello en la base existe un campo ole llamado Foto, pero al momento de guardar me sale "Error de conversion de tipo de datos", y me destaca la la linea que puse con rojo mas abajo, este es el código del boton "Guardar"

Private Sub cmdGuardar_Click()
If Trim(txtApellidos.Text) = "" Then MsgBox "¡Primero debe ingresar todos los datos, o pinchar en Cancelar!", vbCritical, "Nuevo Ingreso": Exit Sub 'Avisa sin un Text.Bx no fue llenado.
Set Rs = Db.OpenRecordset("Select Count(*)As Conteo From Biometrico")

Contador = Rs!Conteo 'Almacenamos el número total de registros en esta variable.

Set Rs = Nothing 'Libera el espacio que dejó en memoria el objeto de consulta de selección(Rs).
'Consulta de Selección de tipo (Añadir, Modificar, Eliminar, Lectura).
Set Rs = Db.OpenRecordset("Select * FROM Biometrico")

With Rs
.AddNew 'A la espera de grabar.
Select Case Contador 'Equivale a Rs!Conteo.Aquí ocupamos la variable
'Contador en ves de Rs!Conteo, ya que el objeto Rs ya había
'estado cerrado, pero la variable Contador si se quedó con su valor.
Case 0
Rs.Fields(0) = 1 'Permite grabar el Id autonumérico cuando la Base
'ha sido compactada o borrada.
Case Else
lblCodigo.Caption = Rs.Fields(0) 'Ya sabemos por qué usamos esta variable en ves de Rs!Conteo.

End Select

Rs.Fields(1) = txtCodigo.Text
Rs.Fields(2) = txtApellidos.Text
Rs.Fields(3) = txtNombres.Text
Rs.Fields(4) = txtRut.Text
Rs.Fields(5) = txtDigito.Text
Rs.Fields(6) = cboEmpresa.Text
Rs.Fields(7) = cboOcupacion.Text
Rs.Fields(8) = txtOcupacion.Text
Rs.Fields(9) = txtFono.Text
Rs.Fields(10) = picFoto.Picture (picFoto.Image da mismo error)

.Update
End With


MsgBox "¡El ingreso se guardó correctamente!", 64, "¡AVISO AL USUARIO!"

For Each ct In Controls
If TypeOf ct Is TextBox Then ct.Text = ""
Next ct
cboEmpresa.Text = "": cboOcupacion.Text = ""
lblCodigo.Caption = ""
txtApellidos.SetFocus

End Sub
Como de costumbre les envío un saludo y gracias por su ayuda.

fasirio

Hola,
Mira si te vale este ejemplo:

Código:

Function GuardarFoto(ByVal sFoto As String) As Byte()
 Dim b() As Byte
 Open sFoto For Binary As #1
 ReDim b(FileLen(sFoto))
 Get #1, , b
 Close #1
 GuardarFoto = b
End Function

A la función le pasamos la ruta completa de donde está guardada la foto
p.e. "C:\Mis Fotos\Foto_3211.jpg"
(Admite los formatos mas usuales, .bmp, .jpg, .gif..)

Código:

 rs.Fields("Foto").AppendChunk GuardarFoto(sRuta)
 rs.Update

Saludos