关于图片在SQL中的保存问题

Question

下面代码能运行，但保存不进内容  On Error GoTo err
  Dim StmPic As ADODB.Stream    Set StmPic = New ADODB.Stream
    StmPic.Type = adTypeBinary         
    StmPic.Open                        
    StmPic.LoadFromFile (P_SelFilePath)         
    M_adoRS.AddNew
    M_adoRS.Fields("Pic").Value = StmPic.Read  （此处不能保存，有时保存什么也没有）
    M_adoRS.Update
    StmPic.Close
  Exit Sub
err:
  MsgBox err.Description

Answer 1

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=19363

Answer 2

这中都有很多代码的，可以找到。不过我在想这样的一个问题，如果我保存了很多图片，然后我想随意的读出一张，那是怎么做呢，难道是用一个id，按照输入的id读出相对应的图片？

Answer 3

首先看这
M_adoRS.Fields("Pic").Value = StmPic.Read  我感觉没有指定读取的大小就问题,我建议用2进制的方式写入数据库,在写入前,先把图片的2进制数据读出来,然后保存,文件的2进制方式读取文件,楼主应该会吧,记住一定要把整个文件的内容都读出来.
再读取数据库的时候,先读3进制,然后一次写入图像文件中,就不会有问题了.