Aprire Microsoft Office Access , selezionare la scheda "Crea" e selezionare " Struttura maschera " per creare un nuovo modulo . Fare clic con il modulo per visualizzare la " Finestra delle proprietà ".
2 Fare clic sulla scheda "Dati" . Accanto a "Source Object ", digitare il nome della tabella che contiene i dati binari lunghi . Selezionare "Form" sotto " Tipo di selezione . " Fare clic sulla scheda "Evento" e accanto a " Al clic " select "[ Event Procedure ] " per aprire la finestra di Microsoft Visual Basic .
3
Digitare il seguente sotto " Form_Load " per chiamare la funzione di estrarre dati binari lunghi dal vostro tavolo in un file :
imagetofile "C: \\ Immagini \\ exportedImage.jpg ", [ immagine ] Alberghi
modificare il percorso se si desidera che l'immagine essere esportati in un altro percorso e un nome di file diverso . " [ Immagine] " è il campo della tabella che contiene i dati binari lunghi
4
Copia e incolla il seguente funzione nel vostro modulo : .
Public Function imagetofile ( strFile As String , ByRef Campo As Object ) As Long Dim
FileNumber As Integer Dim
byteData ( ) As Byte
imagetofile = 0
FileNumber = FreeFile
Apri strFile Per accesso binario Scrivi come FileNumber
byteData = Campo
Put # filenumber , , byteData
imagetofile = LOF ( FileNumber ) per
End Function
5
Chiudere il " Microsoft Visual Basic " finestra e destro del mouse su " Form1 ". Selezionare " View Form" per esportare i dati binari e creare un file di immagine .
Programmazione © www.354353.com