vb二进制存入Access数据库中的文件，如何导出来？

答案:2 悬赏:80 手机版

解决时间 2021-03-02 14:44

提问者网友：活着好累
2021-03-02 10:07

最佳答案

五星知识达人网友：北城痞子
2021-03-02 10:41

Private SubCommand3_Click()
    Dim sqlres As ADODB.Recordset
    Set sqlres = New ADODB.Recordset
    sqlres.Open "select * from xs where 学号='" &Trim(Text1.Text) & "'", connectstring, adOpenDynamic,adLockPessimistic
    Dim stream As ADODB.stream
    Set stream = New ADODB.stream
    stream.Mode = adModeReadWrite
    'Image1.Picture = LoadPicture("")
    If Not IsNull(sqlres.Fields("照片")) Then
     stream.Type = adTypeBinary
     stream.Open
     stream.Write sqlres.Fields("照片")
     stream.SaveToFile "filename",adSaveCreateOverWrite
     Image1.Picture =LoadPicture("filename")
     sqlres.Close
     stream.Close
    End If
End Sub给个例子吧你自己再根据你的情况修改一下

全部回答

1楼网友：迟山
2021-03-02 11:19

你还用流的方式以二进制的方式读出来就可以了。

但是，在数据库里边存储图片这种情况很少见，一般是将图片的路径存储到数据库中，把图片上传到服务器上。算是一点小小的建议吧。

祝你成功！

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息