请问高手！如何把SQL数据库里的图片文件取出来存成一个JPG或GIF文件》？

Question

RSstream.Type = adTypeBinary
RSstream.Open
RSstream.Write rs.Fields("image").Value
RSstream.SaveToFile "c:\temp1.jpg", adSaveCreateOverWrite
RSstream.Close

Answer 1

要先定义一个Dim RSstream As New ADODB.Stream

Answer 2

给你一个例子看看吧：
Dim cnn As New ADODB.Connection
Dim RSstream As New ADODB.Stream
Dim rs As New ADODB.Recordset
cnn.Open "driver={sql server};server=(local);database=pubs;uid=sa;pwd="  '我这里是用大型数据，你可以改成小型也没关系但字段要注意一下。
With rs
    .ActiveConnection = cnn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockPessimistic
    .Open "select * from temp11"  '这个表中要有image字段类型是image或者是text类型的
End With
If rs.RecordCount <> 0 Then rs.MoveFirst
RSstream.Type = adTypeBinary
RSstream.Open
RSstream.Write rs.Fields("image").Value
RSstream.SaveToFile "c:\aa.jpg", adSaveCreateOverWrite    '保存为文件
RSstream.Close

Answer 3

Dim RSstream As New ADODB.Stream 这里的stream在VB里怎么没呢？这是个什么东西呀！请指教！

Answer 4

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=19363