1
Abra Microsoft Office Access , seleccione la pestaña "Crear " y seleccionar " Diseño de formularios " para crear un nuevo formulario. Haga clic en el formulario para mostrar la " Hoja de propiedades ".
2
clic en la pestaña "Datos" . Al lado de " Objeto de origen ", escriba el nombre de la tabla que contiene los datos binarios largos . Seleccione " Form " en " Tipo de selección ". Haga clic en la ficha " Evento " y junto a " El Click" select "[ Procedimiento de evento ] " para abrir la ventana de Microsoft Visual Basic .
3
Escriba lo siguiente en " Form_Load " para llamar la función de extraer los datos binarios de longitud desde su mesa en un archivo:
imagetofile "C : \\ Images \\ exportedImage.jpg ", [ imagen]
editar la ruta si desea que la imagen la exportación a otro camino y un nombre de archivo diferente. " [ Imagen] " es el campo de la tabla que contiene los datos binarios largos
4
Copie y pegue la siguiente función en el módulo: .
Public Function imagetofile ( strFile As String , ByRef Campo As Object ) As Long
FileNumber Dim As Integer Dim
byteData () As Byte
imagetofile = 0
FileNumber = FreeFile
strFile abierto para acceso binario Write Como FileNumber
byteData = Field