VB 怎么把相片存放到ACCESS数据库里面,还可以取出来?

On Error Resume Next
Dim strb() As Byte
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Binary As #1 '以二进制读方式打开源文件
Image1.Picture = LoadPicture(CommonDialog1.FileName)
fl = LOF(1) '获得文件长度
ReDim strb(fl) '从文件中读取内容并
Get #1, , strb ' 读到内存块中
Adodc1.Recordset.Fields("照片").AppendChunk strb 要用Appendchunk将照片加入到数据库
Adodc1.Recordset.Update
Close #1
前提是你首先要有一个通用对话框。然后有一个ADO与数据库相连。
希望对你有所帮助。

这种方法不好,还不如access只存路径,用一文件夹存图片,因为access数据库会随数据库大小而查询速度减慢,最后只会导致你数据库无法工作

在ACCESS数据库新建一个IMG字段，用来填写相片的路经，读取出来就跟读取信息一样了

1.存文件路径 推荐
2.以二进制存图片