¿Cómo convertir a binario en VB.net y guardarlo en Accees?
Img pública As Byte()'Matriz de bytes para procesamiento de imágenes.
img = mi . computadora . sistema de archivos. leer todos los bytes (ruta del archivo)'La ruta del archivo es la ruta del archivo de imagen.
El resto es la operación de inserción en la base de datos.
? ¿oscuro? ¿cn? ¿Como? ¿Nuevo? OleDb. conexión oledb(" Proveedor = Microsoft. Jet . OLEDB.4.0 ¿Datos? Fuente = Data.mdb ")
¿Dim? comunicación? ¿Como? OleDb. OleDbCommand
com? =?¿Nuevo? OleDb. OleDbCommand(?_
"¿Insertar? en?Photo(BuFan_F,PhotoNo,Photo)?Value("?& amp?i.CobBuFan.Text.Trim?&?"','"? &? Me.txtNo.Text.Trim?&?",@image)",?cn)
Agregue la matriz binaria que almacena los datos de la imagen a la base de datos.
comm.Parameters.Add("@image ", _
OleDb.OleDbType.Binary, ?img.Length). ¿valor? =?img
¿Y si? cn. ¿estado? =?Estado de la conexión. ¿Cerrado? ¿Entonces qué? cn. Abierto()? Abra una conexión de base de datos.
comm.ExecuteNonQuery()? Ejecutar comandos de base de datos.
¿Y si? cn. ¿estado? =?Estado de la conexión. ¿abierto? ¿Entonces qué? cn. Cerca()? Cierra la conexión a la base de datos
MessageBox. Show("La imagen se ha guardado correctamente en la base de datos", "¿Listo"? MessageBoxButtons está bien. MessageBoxIcon. Información)