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

[remanwang]

如题，我从这些字段中读出的都是<Long Text>，不知为什么？

[Azi03]

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

[Montaque]

Adodb.Stream!

---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey

[remanwang]

拜托各位回答问题能否多说两句，详细一点好吗?

[duckcn]

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

[Montaque]

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream

Set 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, adLockOptimistic

Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("logo").Value
mstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWrite

rs.Close
cn.Close


---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey