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

[wangdan1600]

现在已经可以把图片添加到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
是这样的吗？

同样，如何对图片型数据进行查询呢？

[lcsfxs]

不需把图片写入数据库,直接调用就行如:

Image3.Picture = LoadPicture("c:" & "\tp2\" & "g0183.gif")

[wangdan1600]

不能使用本地数据，因为有好多人访问该数据，图片若在本地，那别人就没法访问到。