请高手帮我看看！为什么只能存文字面不能存图片？

Question

对，我加了一个ADODC来关联！

Answer 1

Public Sub SavePic(ByVal pPicPath As String)
    Dim Rs As New ADODB.Recordset
    dim adoCn As New ADODB.Connection
    Dim bytPicData() As Byte
    dim strCn As String
 
    Open pPicPath For Binary As #1
    ReDim bytPicData(LOF(1) - 1)
    Get #1, , bytPicData()
    Close #1    strCn = "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=databasename;Data Source=Server;Password=;"
    adoCn.Open strCn    Rs.Open "SELECT * FROM dPicture", adoCn, adOpenKeyset, adLockOptimistic
    Rs("PicData").AppendChunk bytPicData()
    Rs.Update    Set Rs = Nothing
End Sub

Answer 2

foreverforyou(为情所困)就是看不懂呀！请帮加注释好吗？谢谢！