Visual Basic.NET - Guardar imágenes en Access

   
Vista:

Guardar imágenes en Access

Publicado por Connetix (17 intervenciones) el 10/08/2008 13:02:50
Hola,
Estoy buscando un buen ejemplo que me explique cómo guardar imágines de un picturebox en una base de datos de access mediante visualbasic 2005.
Gracias anticipadas
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:Guardar imágenes en Access

Publicado por RICARDO MANCILLA (23 intervenciones) el 11/08/2008 03:39:22
hola ???

En acces tu no debes guardar imagenes, solamente guardas la ruta donde se encuentra ubicada esa imagen, ahi te va un ejemplo q pide buscar la imegen y guarda la ruta en la variable "FileName"

Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory=My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "Archivos de imagen (*.JPEG)|*.jpg|Todos los archivos (*.*)|*.*"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
FileName = OpenFileDialog.FileName 'aqui guarda la ruta en la variable
Me.IMAGEN.Image = New Bitmap(FileName) 'carga la imagen en el picturebox
End If

este codigo lo puedes ubicar en el evento click del picturebox o en un boton.

Suerte!!!

AMERICA
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:Guardar imágenes en Access

Publicado por Roberto Vallejo (1 intervención) el 19/10/2015 01:59:28
Hola,


Estoy creando una bd en access 2013 y quiero guardar la ruta de un archivo de imagen, quiero que através de un boton de comando abrir el explorador, seleccionar el archivo y guardar solo la ruta del mismo, para que posteriormente en un informe o consulta pueda visualizar la imagen, he estado utilzando este codigo pero no lo he enlzadao al boton de comando cuando lo enlazo se detiene, que debo hacer o que me falta? alguien me puede ayudar?

1
2
3
4
5
6
7
8
9
10
Private Sub RutaFoto_AfterUpdate()
'Asignación de la ruta al control de imagen llamado
'ImagenInmo pero como imagen -Picture-
 
    If Not IsNull(RutaFoto) Then
        ImagenInmo.Picture = RutaFoto
    Else
        ImagenInmo.Picture = ""
    End If
End Sub


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:Guardar imágenes en Access

Publicado por Carlos (1 intervención) el 26/08/2008 03:31:11
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public Sub ver()
        Try
            With datos.Tables(0).Rows(posicion)
                Me.PictureBox1.Image = Nothing
                Me.TextBox1.Text = .Item("ced_empleado")
                Me.TextBox2.Text = .Item("apellidos_empleado")
                Me.TextBox3.Text = .Item("nombres_empleado")
 
                If .Item("foto_empleado") = "Ninguno" Then
                    Me.PictureBox1.Image = Nothing
                Else
                    Me.PictureBox1.Image = System.Drawing.Image.FromFile(Ruta & "fotos" & .Item("foto_empleado"))
 
                End If
 
            End With
 
        Catch
 
        End Try
end sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Len(Trim(Me.TextBox1.Text)) = 0 Then
            MsgBox("Debe seleccionar un empleado")
            Exit Sub
        End If
        Me.PictureBox1.Image = Nothing
        Dim k As New OpenFileDialog
        k.Filter = "*.jpg|*.jpg|*.bmp|*.bmp|.*png|*.png"
        k.InitialDirectory = "c:"
        If k.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.PictureBox1.Image = Nothing
            FileCopy(k.FileName, Ruta & "fotos" & Me.TextBox1.Text & ".jpg")
            Me.PictureBox1.Image = System.Drawing.Image.FromFile(k.FileName)
            foto = Me.TextBox1.Text & ".jpg"
 
        End If
    End Sub
 
public sub guardar()
Dim pi As String
            pi = "insert into Empleado values(" & Me.TextBox1.Text & ",'" & Me.TextBox2.Text & "','" & foto & "')"
            If Con.State = ConnectionState.Closed Then Con.Open()
            Dim cma As New OleDb.OleDbCommand(pi, Con)
            cma.ExecuteNonQuery()
            Con.Close()
            MsgBox("Empleado Guardado")
            Habilitar(Me, False)
            Limpiar(Me)
end sub
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