存储图片

Question

存：
    Dim rs As New ADODB.Recordset
    Dim Rss As New ADODB.Stream
    rs.Open "select * from try", CN, adOpenStatic, adLockOptimistic
    Rss.Type = adTypeBinary
    Rss.Open
    Rss.LoadFromFile App.Path & "\1.jpg"
    rs.AddNew
    rs.Fields("a1") = Text11.Text
    rs.Fields("a2") = Rss.Read
    rs.Update
    rs.Closea2为ole字段读：
    Dim rs As New ADODB.Recordset
    Dim Rss As New ADODB.Stream
    rs.Open "select * from try", CN
    Rss.Type = adTypeBinary
    Rss.Open
    If Not rs.EOF Then
        Rss.Write rs.Fields("a2")
        Rss.SaveToFile App.Path & "\tmp.jpg"
        Image1.Picture = LoadPicture(App.Path & "\tmp.jpg")
        Text2.Text = rs.Fields("a1")
        Kill App.Path & "\tmp.jpg"
    End If
    rs.Close

Answer 1

谢谢，我把它改为这样了：
Dim rs As New ADODB.Recordset
Dim Rss As New ADODB.Stream
Dim cnn As ADODB.Connection
Dim cnstr As String
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\pic.mdb;Mode=ReadWrite;Persist Security Info=False"
Set cnn = New ADODB.Connection
cnn.Open cnstr
rs.Open "test", cnn, adOpenStatic, adLockOptimistic
Rss.Type = adTypeBinary
Rss.Open
Rss.LoadFromFile App.Path & "\1.jpg"
rs.AddNew
rs.Fields("a1") = "PICTURE"
rs.Fields("a2") = Rss.Read
rs.Update
rs.Close
cnn.Close