'若有照片，则保存照片的二进制码
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

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

你用这个代码:

Dim byteBuf() as Byte
If imgUserPicture.Picture <> 0 Then

ReDim byteBuf(FileLen(Path_Picture) - 1)
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

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

那么一边读取一边存储吧:

Dim byteBuf(10240) As Byte

If imgUserPicture.Picture <> 0 Then
Open Path_Picture For Binary As #1
Do While Not EOF(1)
Get #1, , byteBuf
For i = 0 To UBound(byteBuf)
mrc.Fields(2) = mrc.Fields(2) & byteBuf(i)
Next
Loop
Close #1
End If

[此贴子已经被作者于2006-2-8 22:14:08编辑过]

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

写入sql图片看下面的代码,注:工程引用ado2.5及以上版本才行,否则没有Stream
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As New ADODB.Stream
Private Sub Command1_Click() '读取图片
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=.;Initial Catalog=pubs;User Id=sa;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

End Sub

Private Sub Command2_Click() '写入图片
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=.;Initial Catalog=pubs;User Id=sa;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.LoadFromFile "c:\publogo.gif"
rs.Fields("logo").Value = mstream.Read
rs.Update

rs.Close
cn.Close

End Sub

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

是我做实验的代码，当然要改的了，文件是自已命名的。是个临时文件，原文是在msdn上

有了临时文件再用loadpicture载入就行了噻

[此贴子已经被作者于2006-2-10 13:28:22编辑过]

Dim mstream As New ADODB.Stream
ADODB.Stream是什么东东？呵呵

当然是ado2.5的流式文件类型啊