Red de conocimiento informático - Material del sitio web - ¿Cómo convertir a binario en VB.net y guardarlo en Accees?

¿Cómo convertir a binario en VB.net y guardarlo en Accees?

Establezca el tipo de campo en objeto antiguo en la base de datos de acceso.

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)