Visual Basic - Insertar una Foto

Life is soft - evento anual de software empresarial
 
Vista:

Insertar una Foto

Publicado por Daniel (6 intervenciones) el 04/10/2006 14:49:53
Buenos Dias soy novato programando en visual basic y necesito que en un modulo de inclusion de choferes pueda tambien almacenar una foto en la base de datos!!! saludos y 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

RE:Insertar una Foto

Publicado por Pedro (93 intervenciones) el 04/10/2006 17:47:04
Como no te expliques un poco mejor... ¿Qué tipo de base de datos usa?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Insertar una Foto

Publicado por Daniel (6 intervenciones) el 04/10/2006 19:42:24
Uso una BD en Access aqui te muestro el codigo del modulo que hace la coneccion:

Public Conexion As ADODB.Connection

Sub Main()
On Error GoTo solucion
Set Conexion = New ADODB.Connection
With Conexion
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = App.Path & "\Base de Datos\Choferes.mdb"
.Open
If .State = 1 Then
frmchoferes.Show
Else
End
End If
End With
Exit Sub
solucion:
If Err.Number = -2147467259 Then
MsgBox "Falló La Conexión, Llamar al Servicio Tecnico", vbCritical, "Mensaje Critico"
Else
MsgBox Err.Number & Err.Description
End If
End Sub

Este codigo no tiene nada que ver con lo que pregunto, de todas formas en la BD el campo donde va hacer almacenada la foto es de tipo OLE!!!

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Insertar una Foto

Publicado por Coronel (6 intervenciones) el 04/10/2006 20:13:35
Sencillo:

Open s For Binary As #1
ReDim b(FileLen(s))
Get #1, , b
Close #1
Recordset("Foto").AppendChunk b

La variable "s" está declarada como String y la matriz "b" como Byte
Ah! "s" es la ruta y el archivo donde está la foto (bmp, jpg, gif, etc)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar