SQL数据字段是image的,我的窗体上有一个picture控件，一个通用对话框，两个按钮，一个按钮是打开照片，一个是保存，现在我想单击"打开照片"后弹出对话框给用户选择照片，按确定后picture控件显示用户选择的照片，再单击保存按钮，可以把照片保存到数据库里去，请问要实现这些功能代码要怎么写啊？可以给个例子吗？谢谢啊，搞了一个上午也没搞懂，只好在这里求助了

[此贴子已经被作者于2006-2-10 17:20:43编辑过]

leon2新年好啊
有点启发了，一会我试一下，听说有个load picture可以动态加载图片的是不是？
我想按了打开图片，弹出对话框后让用户选择图片，然后picture里才显示用户选择的图片，这步要怎么做呢

我知道怎么打开照片了，

cdlTest是通用对话框
dim Path_Picture as string '保存路径
Private Sub cmdOpenPicture_Click()
cdlTest.DialogTitle = "打开照片"
On Error Resume Next
cdlTest.CancelError = True
cdlTest.FileName = App.Path
cdlTest.Filter = "bmp图象(.bmp)|*.Bmp|JPEG图象(.JPEG)|*.JPG|GIF图象(.GIF)|*.GIF|所有文件|*.*"
cdlTest.ShowOpen
If Err = cdlCancel Then Exit Sub
Path_Picture = cdlTest.FileName
UserPicture.Picture = LoadPicture(Path_Picture)
End Sub
这样就可以动态加载图片了，不过还没试可不可以保存到数据库里

那要怎样才能判断Image框里是否有添加照片呢？

就是想判断UserPicture里有没有照片，呵呵，谢谢了哦

我就是先打开照片显示在在图像框里，然后在把图像框里的保存到数据库里，下次读取就从数据库里读二进制数据的，
顺便问一下，读取了数据库里图片的二进制数据后会自动换回原来的图片的吗？中间要不要做什么处理的？

'若有照片，则保存照片的二进制码
Dim byteBuf() as Byte
If imgUserPicture.Picture <> 0 Then
Open Path_Picture For Binary As #1
Get #1, , byteBuf
For i = 0 To UBound(byteBuf)
mrc.Fields(2) = mrc.Fields(2) & byteBuf(i)
Next
End If

我想把二进制保存到数据库里，写了上面的代码后提示我下标越界，要怎么写才能保存到数据库中呢？

我试了一下你那个代码，发生益出了哦~

我用了这个网上说的方法后成功的保存了图片了
[URL=http://www.ddvip.net/program/vb/index3/397.htm]http://www.ddvip.net/program/vb/index3/397.htm[/URL]
哈哈，我的电子通讯录就快完成了，到时发上来和大家分享哈

Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("logo").Value
mstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWrite
这一段是什么意思呢？