Conoscere come accedere ai dati lunghi binari da una tabella di database può rendere l'applicazione di database più dinamico . Microsoft Office Access è comunemente usato per la progettazione di database locali . Dati binari lungo viene utilizzato per memorizzare i file di immagine in una tabella di database . È possibile utilizzare Visual Basic, Applications Edition (VBA) per esportare i dati binari in un file. VBA è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine in Access e altre applicazioni di Office. Istruzioni
1
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 < br >
Apri strFile Per accesso binario Scrivi come FileNumber
byteData = Campo
Put # filenumber , , byteData
imagetofile = LOF ( FileNumber ) per < p > 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 .
