各們老鳥,誰能告訴我,怎樣一幅圖片保存到數據庫中

Question

最好是通過存儲過程進行保存,謝謝!!

Answer 1

http://www.dapha.net/down/list.asp?id=1490

Answer 2

http://www.dapha.net/down/list.asp?id=1486

Answer 3

If PhotoPath = "" Then
     PhotoPath = App.Path & "\照片\photo.jpg"
  End If
    Dim RstStm As ADODB.Stream
    Set RstStm = New ADODB.Stream
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    RstStm.Type = adTypeBinary
    Dim sql As String
    sql = "select photo from zgrsb where zgid=" & Val(LblCode.Caption)
    RstStm.Open
    RstStm.LoadFromFile PhotoPath
    rst.Open sql, CnnToData, adOpenDynamic, adLockOptimistic, adCmdText
    rst!photo = RstStm.Read
    rst.Update
            CnnToData.CommitTrans