如何在vb中显示数据库中(sql_server)的图片内容

Question

GetChunk 方法 (ADO)
         返回大型文本或二进制数据 Field 对象的全部或部分内容。语法variable = field.GetChunk( Size )返回值返回变体型。参数Size   长整型表达式，等于所要检索的字节或字符数。说明使用 Field 对象的 GetChunk 方法检索其部分或全部长二进制或字符数据。在系统内存有限的情况下，可使用 GetChunk 方法处理部分而非全部的长整型值。GetChunk 调用返回的数据将赋给“变量”。如果 Size 大于剩余的数据，则 GetChunk 仅返回剩余的数据而无需用空白填充“变量”。如果字段为空，则 GetChunk 方法返回 Null。每个后续的 GetChunk 调用将检索从前一次 GetChunk 调用停止处开始的数据。但是，如果从一个字段检索数据然后在当前记录中设置或读取另一个字段的值，ADO 将认为已从第一个字段中检索出数据。如果在第一个字段上再次调用 GetChunk 方法，ADO 将把调用解释为新的 GetChunk 操作并从记录的起始处开始读取。如果其他 Recordset 对象不是首个 Recordset 对象的副本，则访问其中的字段不会破坏 GetChunk 操作。如果 Field 对象的 Attributes 属性中的 adFldLong 位设置为 True，则可以对该字段使用 GetChunk 方法。如果在 Field 对象上使用 Getchunk 方法时没有当前
AppendChunk 方法 (ADO)
         将数据追加到大型文本、二进制数据 Field 或 Parameter 对象。语法object.AppendChunk Data参数object   Field 或 Parameter 对象。Data   变体型，其中含有要追加到对象的数据。说明使用 Field 或 Parameter 对象的 AppendChunk 方法可将长二进制或字符数据填写到对象中。在系统内存有限的情况下，可以使用 AppendChunk 方法对长整型值进行部分而非全部的操作。字段如果 Field 对象 Attributes 属性中的 adFldLong 位被设置为真，则可以对该字段使用 AppendChunk 方法。对 Field 对象的第一个 AppendChunk 调用将数据写入字段，覆盖所有现有的数据，随后的 AppendChunk 调用则添加到现有数据。如果将数据追加到一个字段，然后设置或读取当前记录中另一个字段的值，ADO 则认为已将数据追加到第一个字段。如果在第一个字段上再次调用 AppendChunk 方法，那么 ADO 将调用解释为新的 AppendChunk 操作并覆盖现有数据。访问其他 Recordset 对象（并非第一个 Recordset 对象的副本）中的字段将不会破坏 AppendChunk 操作。调用 Field 对象的 AppendChunk 时如果没有当前记录，将发生错误。参数如果 Parameter 对象 Attributes 属性中的 adFldLong 位被设置为真，则可以对该参数使用 AppendChunk 方法。

Answer 1

谢谢，
我做了一个{显示}
        Dim stream1  As New ADODB.Stream
        stream1.Type = adTypeBinary
        stream1.Open
        
        stream1.Write adoPrimaryRS.Fields("poto")
        stream1.SaveToFile (App.Path + "\tmp01.jpg")
        Set imgpoto.Picture = LoadPicture(App.Path + "\tmp01.jpg")
        stream1.Close{保存}
        stream1.Type = adTypeBinary
        stream1.Open
        stream1.LoadFromFile (strimgpath)
        adoPrimaryRS.Fields("poto") = stream1.Read
        stream1.Close
但速度较慢，不知各位有没有好的办法

Answer 2

Sql Server 中有一种数据类型Image，最大长度可达2GB。SQL Server 为操作此类型提供了专门函数 Textptr(列名)，以Varbinary类型的数据形式返回指向某个Image数据列的文本指针，在检验返回的文本指针正确有效后，可以在别的函数中对该指针进行引用。如果在使用Textptr函数前没有用通过Insert或Update语句对该数据列进行初始化，则返回Null。
如：Textptr('table.column',Text_ptr)
注意，调用该函数时，数据列前必需加上正确的表名。
再详细的就自己查帮助吧

Answer 3

修正，不是Textptr('table.column',Text_ptr)，而是TextValid('table.column',text_ptr)
另再提供几个函数readtext()，writetext()，updatetext()。其中最后两个函数不作日志，除非加上with log