在VB中用ADO编程时，如何处理图像数据，数据库是SQL Server2000?

Question

现在已经可以把图片添加到Image1控件中了，如何把图片写入到数据库呢？
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim stm As New ADODB.Stream
 ...
stm.Open
stm.Type = adTypeBinary
stm.LoadFromFile CommonDialog1.FileName
rs.AddNew
            For i = 0 To 3
                rs.Fields(i) = Trim(Text1(i).Text)
            Next i
            rs.Fields(4) = Str(DTPicker1.Value)
            rs.Fields(5) = stm.Read        
            rs.Update
            rs.Close
            stm.Close
            con.Close
是这样的吗？同样，如何对图片型数据进行查询呢？

Answer 1

不需把图片写入数据库,直接调用就行如:Image3.Picture = LoadPicture("c:" & "\tp2\" & "g0183.gif")