¹ØÓÚVB´æÕÕƬµÄÎÊÌâ~

³õѧVB£¬×î½üÔÚÄÃVB+ACCESSдһ¸ö¼òÒ׵ĸöÈËÐÅÏ¢¹ÜÀíϵͳ
ÇëÎÊÈçºÎÈÃʹÓÃÕß¿ÉÒÔ×ÔÐмÓÔØÕÕƬ¡£
È»ºóÕâ¸öͼƬ´æÈëACCESSÖÐ
ÇëÎÊÐèҪʲô¿Ø¼þÀ´Íê³ÉÕâ¸ö¹¦ÄÜ£¬»¹ÓÐÍê³ÉÕâ¸ö¹¦ÄܵĴóÌå˼·£¿
ºÃÏñ½çÃæÉÏûÓÐÕâÑùµÄ¿Ø¼þ£¬ÊDz»ÊÇÒªÔÚ²¿¼þÖÐѡijѡÏîÀ´¼ÓÔؿؼþ£¿
лл¸÷λÁË~

---

ÒýÓÃ

Sub s_ReadFile()
    Dim iStm As ADODB.Stream
    Dim iRe As ADODB.Recordset
    '´ò¿ª±í
Set iRe = New ADODB.Recordset
¡®µÃµ½×îÐÂÌí¼ÓµÄ¼Í¼
    iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly
    '±£´æµ½Îļþ
    Set iStm = New ADODB.Stream
    With iStm
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write iRe("photo")
¡®ÕâÀï×¢ÒâÁË,Èç¹ûµ±Ç°Ä¿Â¼Ï´æÔÚtest1.jpg,»á±¨Ò»¸öÎļþдÈëʧ°ÜµÄ´íÎó.
        .SaveToFile App.Path & "\test1.jpg"
    End With
 

    Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
  '¹Ø±Õ¶ÔÏó
    iRe.Close
    iStm.Close

Private Sub Command1_Click()
Call s_ReadFile
E