图片存储问题

[tang800710]

我写了一个过程专门存储及读取IMAGE字段的信息,过程如下:

'存储图片信息
Public Function SaveImageToField(ByVal strImageFile As String, fldCol As Field) As Boolean
On Error GoTo ErrHand

Dim Images() As Byte

Open strImageFile For Binary As #1
ReDim Images(LOF(1))
Get #1, 1, Images()
Close #1

fldCol.AppendChunk Images

SaveImageToField = True

Exit Function
ErrHand:
MsgBox Err.Description, vbInformation, "提示 "
End Function

'提取图片信息
Public Function GetImageForField(fldCol As Field) As IPictureDisp
On Error GoTo ErrHand

Dim objPic As IPictureDisp
Dim Images() As Byte

If IsNull(fldCol.Value) Then Exit Function

ReDim Images(fldCol.ActualSize - 1)
Images() = fldCol.GetChunk(fldCol.ActualSize)
If objFSO.FileExists(App.Path & "\tmg.dat") Then objFSO.DeleteFile App.Path & "\tmg.dat"

Open App.Path & "\tmg.dat" For Binary As #1
Put #1, , Images()
Close #1

Set objPic = LoadPicture(App.Path & "\tmg.dat")

objFSO.DeleteFile App.Path & "\tmg.dat"

Set GetImageForField = objPic

Exit Function
ErrHand:
MsgBox Err.Description, vbInformation, "提示"
End Function

我觉得这两个过程执行效率不是很好,还望哪位大侠有什么高招多赐教一些,感谢!
在新的一年里,祝大家心想事成,万事大吉!

[ghosthjt]

应该用ADO的steam流进行读写，关于ado的stream用法，请参考ADO手册

[leimin]

VB6向SQL SERVER存取图象:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;258038

[tang800710]

感谢ghosthjt(天煞孤星)及leimin(黄山光明顶) ,在新年的第一天我又学会一个技术了,万分感谢二位,祝你们好运!

[wenzhou960]

你这不是VB吗？
和数据库没有关系！还是换区吧！