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

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

我想输入 Image 字段数据时就和字符串字段没什么区别吧，只不过输入的变量的值是一个 Byte 变量数组，就像:

Dim byteBuf() As Byte
'Open ... For Binary As #1
'Get #1, , byteBuf
'Close #1
rs("Image") = byteBuf

不知道能不能正常运行，我没试过。

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 有没有图片吗?可以判断:

If UserPicture.Picture = 0 Then
' NO PICTURE
End If

[此贴子已经被作者于2006-2-8 16:42:38编辑过]

4楼的方法也对，但这个方法不好。如果图片改了路径就完了。所以最好是将图片转成二进制文件读取。

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

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