Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program Microsoft Office Access , vyberte záložku " Vytvoriť " a vyberte " Návrh formulára " vytvoriť nový formulár . Kliknite pravým tlačidlom myši na formulár sa zobrazí " Zoznam vlastností . "
2
Kliknite na záložku " Data " . Vedľa " zdrojového objektu , " zadajte názov tabuľky obsahujúce dlhé binárne dáta . Vyberte " formulár " pod " Typ výberu . " Kliknite na " udalosť " kartu a vedľa " On Kliknite na " vyberte " [ Procedúra udalosti ] " otvorte základnom okne Visual Microsoft .
3
Zadajte nasledujúce pod " Form_Load " volať funkcie extrahovať dlhé binárne dáta z tabuľky do súboru :
imageToFile " C : \\ Images \\ exportedImage.jpg " , [ Image ]
Upravte cestu , ak chcete , aby sa obrázok byť vyvezený do inej cesty a iným názvom súboru . " [ Image ] " je pole v tabuľke obsahujúci dlhej binárne dáta
4
Skopírujte a vložte nasledujúci funkciu do svojho modulu : .
Public Function imageToFile ( strFile As String , ByRef pole As Object ) As Long Dim
filenumber As Integer
Dim byteData ( ) Ako Byte
imageToFile = 0
filenumber = FreeFile
Otvoriť strFile Pre Binary Access Napíšte Ako filenumber
byteData = pole
Put # filenumber , , byteData
imageToFile = LOF ( filenumber )
End Function
5
Zatvorte okno " Microsoft Visual Basic " a kliknite pravým tlačidlom myši " Form1 . " Zvoľte " Zobraziť formulár " exportovať binárne dáta a vytvoriť súbor s obrázkom .