怎样把一幅图片存到sql server数据库中，又用编程的方式把它绘制出来

Question

将图片转成二进制存入数据库，读的时候再转回来，我见过ASP的
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)'将值转为二进制Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "pic",conn,3,2
rs.addnew
rs("big").appendchunk mydata'添加到数据库

Answer 1

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim stm As New ADODB.StreamPrivate Sub SavePictureToDB(cn As ADODB.Connection)
On Error GoTo EH
    rs.Open "select ImagePath,ImageValue from tbl_Image", cn, adOpenKeyset, adLockOptimistic
    CommonDialog1.ShowOpen
    Text1.Text = CommonDialog1.FileName
    
    With stm
         .Type = adTypeBinary
         .Open
         .LoadFromFile CommonDialog1.FileName
    End With
    With rs
         .AddNew
         .Fields("ImagePath") = Text1.Text
         .Fields("ImageValue") = stm.Read
         .Update
    End With
    Set stm = Nothing
    rs.Close
    Set rs = Nothing
Exit Sub
EH: MsgBox Err.Description, vbInformation, "Error"
End Sub
Private Sub LoadPictureFromDB(cn As ADODB.Connection)
On Error GoTo EH
    Dim strTemp As String
    strTemp = "c:\temp.tmp" 'temp file
    rs.Open "select ImagePath,ImageValue  from tbl_image", cn, , , adCmdText
    With stm
        .Type = adTypeBinary
        .Open
        .Write rs("ImageValue")
        .SaveToFile strTemp, adSaveCreateOverWrite
        .Close
    End With
    Image1.Picture = LoadPicture(strTemp)
    Set stm = Nothing
    rs.Close
    Set rs = Nothing
Exit Sub
EH: MsgBox Err.Description, vbInformation, "Error"
End Sub

Answer 2

谢谢 mydreamer(风间苍月) 和 ny64(海岛) 好像前面说的方法是图片已经存在电脑里了,我们这里要做的是图片还在纸上画着
是根据纸上的图片数据存在数据库里,然后再绘制成图
有谁做过吗?

Answer 3

http://expert.csdn.net/Expert/topic/1396/1396407.xml?temp=.5285456