Cómo mostrar o archivar en vb
Establecer rs = con.Execute("select * from tsb")
Hacer hasta rs.EOF
Si rs.Fields(0).Value = Item.Text Luego
Salir Do
Fin
rs.MoveNext
Bucle
Si rs. Fields(7).ActualSize = 0 Then
Imagen1.Picture = LoadPicture(App.Path y "\NotPic.jpg")
Else
Dim PicFile As String 'Declara una variable de ruta de imagen
Dim byt() As Byte 'Declara una matriz binaria para recibir información de la base de datos
Dim lngch As Long
PicFile = App. Path amp; "\BokPic\" amp; rs.Fields(0).Value amp ".jpg"
'Crea un archivo de imagen usando el número del libro como nombre de archivo para la variable. value
ReDim byt(rs.Fields(7).ActualSize)
'ActualSize indica la longitud real del valor del campo
byt = rs.Fields( 7).Value
p>'Obtener la información de la imagen de la base de datos
lngch = FreeFile 'Obtener el número de archivo gratuito
'Agregar el valor de bytes de la matriz binaria a el archivo PicFile
Abrir PicFile para binario como #lngch
Poner #lngch, , byt
Cerrar #lngch
Imagen1.Picture = LoadPicture(PicFile)
End If
rs.Close
Establecer rs = Nothing
Programa de imagen de archivo de datos SQL previamente escrito, en el que Imagen1 es un control PictureBox.
El tipo de campo de la tabla de imágenes almacenada en SQL debe ser tipo de imagen.
Además, el elemento debe ser un cuadro de texto para ingresar el nombre del archivo de la imagen.
En la base de datos de este programa, hay dos campos para almacenar el nombre del archivo y la imagen. La función de este programa es ingresar el nombre del archivo de la imagen para encontrar la imagen en la base de datos, leer. y mostrarlo.