Visual Basic - Insertar imagenes

Life is soft - evento anual de software empresarial
   
Vista:

Insertar imagenes

Publicado por Luis (3 intervenciones) el 13/09/2009 21:41:21
Buenas...
tengo una base de datos en access, la cual cuenta con una tabla "TECNICOS", con un campo "FOTO", lo que deseo hacer es guardar la foto del personal en ese campo, he buscado en internet algunos ejemplos, pero la mayoria de ejemplos solo guardan la ruta y nombre de la imagen, o primero agregan un registro y luego actulizan, Ejemplo

rs.addNew(para agregar un registro en la base de datos)

rs.update (para actulizar)

el campo "FOTO" es del tipo "Objeto OLE"

el tipo programacion q uso es por codigo:

Set cmgraba = New ADODB.Command
With cmgraba
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = "insert into persona(nombre,apellido,fono1,fono2,direc,sw_estado,idguardia) " & _
"values (?,?,?,?,?,'A',?)"
.Parameters.Append .CreateParameter("nombre", adVarChar, adParamInput, 65, txtnombre.Text)
.Parameters.Append .CreateParameter("apellido", adVarChar, adParamInput, 65, txtapellido.Text)
.Parameters.Append .CreateParameter("fono1", adVarChar, adParamInput, 10, IIf(txtfono1.Text = "", "NINGUNO", txtfono1.Text))
.Parameters.Append .CreateParameter("fono2", adVarChar, adParamInput, 10, IIf(txtfono2.Text = "", "NINGUNO", txtfono2.Text))
.Parameters.Append .CreateParameter("direc", adVarChar, adParamInput, 95, IIf(txtdirec.Text = "", "NINGUNO", txtdirec.Text))
.Parameters.Append .CreateParameter("idguardia", adVarChar, adParamInput, 95, cboGuardia.Tag)
.Execute
End With

si alguien sabe como guardar imagenes de esta forma, por favor espero su ayuda.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Explorador maestro
- Chat con Winsock
- Spam Lan