buenos dias, las fotos no estan guarda en la base de datos estan en una carpeta en el disco duro te paso el codigo:
UBLIC SUB Button1_Click()
DIM Reporte AS File
DIM Contador AS Integer = 0
DIM captura AS Integer
DIM cadena AS String
MOD.res = MOD.$Con.Exec("select * from voluntarios where cedula ='" & TextBox1.Text & "'")
MOD.res.MoveFirst
captura = MOD.res.Count
cadena = MOD.res!foto
OPEN "/tmp/fichavoluntario.html" FOR CREATE AS #Reporte
PRINT #Reporte, "<html>"
PRINT #Reporte, " <head><title>Reporte Casos-</title></head>"
PRINT #Reporte, " <body topmargin = '2' leftmargin='2'>"
PRINT #Reporte, " <table align = 'center' width = 500 border = '2' cellpadding='0' cellspacing='0'>"
PRINT #Reporte, " <caption><h2>Ficha de Volutario</h2></caption>"
PRINT #Reporte, " <tr>"
PRINT #Reporte, " <td align = 'center'><b>Cedula</b></td>"
PRINT #Reporte, " <td align = 'center'><b>motivo</b></td>"
PRINT #Reporte, " <td align = 'center'><b>foto</b></td>"
PRINT #Reporte, " </tr>"
PRINT #Reporte, " <tr>"
'WHILE Contador < captura
PRINT #Reporte, " <td align = 'center'>" & MOD.res!cedula & "</td>"
PRINT #Reporte, " <td align = 'center'>" & MOD.res!nombre & "</td>"
PRINT #Reporte, " <td align = 'center'><img src=cadena?></td>"
PRINT #Reporte, " <td align = 'center'>" "<img border='0' src='cadena' width='100' height='100'>" "</td>" EN ESTA LINEA ES EL DETALLE QUE TE COMENTO.
PRINT #Reporte, " </tr>"
MOD.res.MoveNext
'DEC captura
'WEND }
PRINT #Reporte, " </table>"
PRINT #Reporte, " <hr>"
PRINT #Reporte, " <form>"
PRINT #Reporte, " <center>"
PRINT #Reporte, " <input type='button' value='Imprimir' OnClick='window.print()'>"
PRINT #Reporte, " <input type='button' value='Cerrar' OnClick='window.close();'>"
PRINT #Reporte, " </center>"
PRINT #Reporte, "</form>"
PRINT #Reporte, " </body>"
PRINT #Reporte, "</html>"
CLOSE #Reporte
EXEC ["firefox", "/tmp/fichavoluntario.html"]
EXEC ["wkhtmltopdf", "/tmp/reportlab.html", "/tmp/report.pdf"]
EXEC ["evince", "/tmp/report.pdf"]
END
las fotos las cargo asi:
PUBLIC SUB Button1_Click()
DIM con AS Integer
DIM query AS String
DIM pregunta AS Integer
DIM Foto_in AS String
Dialog.path = "/home/luis/proyecto/sin_foto.jpeg"
foto_in = File.Dir(Dialog.Path) & "/" & File.Name(Dialog.Path)
IF (TextBox1.Text = "") THEN
message.Info("Debe Introducir un Nº de Cédula")
TextBox1.Clear()
TextBox1.SetFocus
ELSE
IF (TextBox2.Text = "") THEN
message.Info("Debe Introducir Nombres")
TextBox2.Clear()
TextBox2.SetFocus
ELSE
IF (TextBox3.Text = "") THEN
message.Info("Debe Introducir apellidos")
TextBox3.Clear()
TextBox3.SetFocus
ELSE
IF (ComboBox1.Text = "") THEN
message.Info("Debe Introducir Sexo")
ComboBox1.Clear()
ComboBox1.SetFocus
ELSE
IF (ValueBox2.Value = "") THEN
message.Info("Debe Introducir Fecha de Nacimiento")
ValueBox2.Clear()
ValueBox2.SetFocus
ELSE
IF (TextBox5.Text = "") THEN
message.Info("Debe Introducir Cargo")
TextBox5.Clear()
TextBox5.SetFocus
ELSE
IF (TextBox4.Text = "") THEN
message.Info("Debe Introducir Dirección")
TextBox4.Clear()
TextBox4.SetFocus
ELSE
IF (TextArea1.Text = "") THEN
message.Info("Debe Observaciones")
TextArea1.Clear()
TextArea1.SetFocus
ELSE
MOD.res = MOD.$Con.Find("voluntarios", "cedula=&1", TextBox1.Text)
IF MOD.res.Count = 1 THEN
pregunta = Message.Warning("Persona ya existe")
TextBox1.Clear()
TextBox1.SetFocus
ELSE
query = "INSERT INTO voluntarios set cedula='" & textbox1.Text & "', nombre='" & textbox2.Text & "', apellido='" & textbox3.Text & "',foto='" & textbox6.Text & "',sexo='" & ComboBox1.Text & "',fechanac='" & ValueBox2.Value & "',fechaing='" & Valuebox1.text & "',direc='" & textbox4.Text & "',cargo='" & textbox5.Text & "',obser='" & TextArea1.Text & "'"
MOD.consulta(query)
IF MOD.connect() THEN
message.Info("Los dato se insertaron satisfactoriamente")
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
ValueBox2.Clear()
TextArea1.Clear()
ComboBox1.Clear()
PictureBox1.Picture = Picture.Load(Foto_in)
TextBox1.SetFocus
ELSE
message.Error("Los datos no se pudieron insertar")
END IF
ENDIF
ENDIF
ENDIF
ENDIF
END IF
ENDIF
ENDIF
ENDIF
ENDIF
END
PUBLIC SUB Button3_Click()
Dialog.Title = "Selecciona una imagen."
Dialog.Filter = ["*.xcf;*.png;*.jpg;*.jpeg;*.bmp", "Imagenes", "*.*", "Todos los ficheros"]
Dialog.path = "/home/luis/fotos/*.*"
IF Dialog.openfile() THEN RETURN
Ruta = File.Dir(Dialog.Path) & "/" & File.Name(Dialog.Path)
TextBox6.Text = ruta 'agrega la ruta a un textbox
PictureBox1.Picture = Picture.Load(Ruta)
END
Le agradeceria su ayuda gracias.
Foro 
Albacete
carora
