HELP!采用ado对象读写sql server的ntext和image字段

Question

用rs.fields("").GetTrunk读取
用rs.fields("").AppendTrunk写入

Answer 1

Adodb.Stream!---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey

Answer 2

http://www.csdn.net/expert/topic/773/773787.xml?temp=.1130335

Answer 3

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.StreamSet cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=<name of your SQL Server>;
Initial Catalog=pubs;User Id=<Your Userid>;Password=<Your Password>"Set rs = New ADODB.Recordset
rs.Open "Select * from pub_info", cn, adOpenKeyset, adLockOptimisticSet mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("logo").Value
mstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWriters.Close
cn.Close
---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey