高手们,高分求解问题,内详....

Question

建议：多看其它网站：(只列出前八大最佳)
http://www.zarr.net
http://www.vbhelp.bet
http://www.21code.com
http://www.vbthunder.com
http://www.easthot.net
http://www.freevbcode.com
http://www.vbaccelerator.com
http://jinesc.6600.org

Answer 1

http://expert.csdn.net/Expert/topic/1432/1432192.xml?temp=.7071497

Answer 2

在ACCESS有一个字段类型为OLE图片..

Answer 3

同意chanet(初学者，别笑！)，你应该建立一个库来存储图片，然后再读；要不然你就直接读取图片。想要留下mail

Answer 4

Public Sub WriteBinary(ByRef Fld As ADODB.Field,DiskFile As String) Dim FileLength As Long              '′标识文件长度
Dim SourceFile As Long              '′定义自由文件号
Dim I As Long                       '′定义循环变量 
SourceFile = FreeFile               '′提供一个尚未使用的文件号
Open DiskFile For Binary Access Read As SourceFile
FileLength = LOF(SourceFile)        '′得到文件长度
If FileLength = 0 Then              '′判断文件是否存在
   Close SourceFile
Else
        Fld.value = Null
        ReDim ByteData(FileLength - 1)
        Get SourceFile, , ByteData()        '′读到内存块中
        Fld.AppendChunk ByteData()          '′写入字段
        Close SourceFile                    '′关闭源文件
    End If
End Sub
存到ole对象后就可以对picture进行绑定