请问有没有办法将图片以二进制的行式存入sqlserver2000数据库中
以二进制的方法读出来

用VB做的,不用其它语言

如果这个垃圾不愿意把问题的具体内容作为标题的话
我愿意浪费点时间提醒大家不要浪费时间点开这个帖子才知道问题的内容
你急又不关我的事情。

呵呵.
这问题很网上很多..代码也很多.

http://bbs.bc-cn.net/viewthread.php?tid=156938
这是上期PK赛中参赛源码的链接，心中有剑的就是用的你所说的方式。自己去看看吧
只能说明论坛中有很多人都是一上来就直接发帖要源码，平时就没想过去看看别人的帖，也从来不关心别人的问题。

甚至都不能为帮他解答问题的人着想把具体问题作为标题

这样只能让更多的高手没兴趣看他的帖子

在这里有答案:
http://www.lshsoft.net/lshbbs/index.asp?boardid=23

从数据库中读取图片(Adodb.Stream)'从数据库中读取图片(Adodb.Stream)
Public Function GetImageFromDB(Rs As ADODB.Recordset, cFieldName As String, strImageFile As String) As Boolean

On Error GoTo ErrExit
If IsNull(Rs.Fields(cFieldName).Value) Then
GoTo ErrExit
Else
Dim stm As ADODB.Stream
Set stm = New ADODB.Stream
stm.Type = adTypeBinary
stm.Open
stm.Write Rs.Fields(cFieldName).Value
stm.SaveToFile strImageFile, adSaveCreateOverWrite
stm.Close
Set stm = Nothing
End If
GetImageFromDB = True
Exit Function
ErrExit:
GetImageFromDB = False
End Function

保存图片到数据库(Adodb.Stream)'保存图片到数据库(Adodb.Stream)
Public Sub SaveImageToDB(Rs As ADODB.Recordset, cFieldName As String, strImageFile As String)
Dim stm As ADODB.Stream
Set stm = New ADODB.Stream
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile strImageFile
Rs.Fields(cFieldName).Value = stm.Read
Rs.Update
stm.Close
Set stm = Nothing
End Sub

晕, 我刚进论谈才二\三天,不知道什么,不用这么说我吧,难道你们刚开始进来就这么厉害!!!!!!!!!!!!!!!!

[此贴子已经被作者于2007-8-2 21:23:21编辑过]

有些人提问就提问就是了，偏用这么一个鬼标题

假如我是高手，我的每分每秒都很珍贵，我是不是要花时间查看或者解答一个连标题都不能表述清楚的问题呢？