!!!! 一个vb-->>Access 图形存取的问题。

Question

AppendChunk 方法 (ADO)
将数据追加到大型文本、二进制数据 Field 或 Parameter 对象。GetChunk 方法 (ADO)
返回大型文本或二进制数据 Field 对象的全部或部分内容。

Answer 1

http://202.112.105.52/vb/contents.asp?item=数据库操作
到这个地方去一下看一看有没有帮助。

Answer 2

是可以用GETCHUNK方法取二进制数据，可是取出来如何显示在PICTUREBOX中呢？

Answer 3

关于 在Access数据库中使用图片
请察看：www.archtide.com
详细地址：http://210.75.132.33/lakes/detail.asp?id=63

Answer 4

wxj_lake 你说的那个东东我以前看过，它是用的OLE控件，DAO支持那种方式
我用的ADO，不支持：( 

Answer 5

图形在Access中是以OLE存放的，用getchunk是解决不了的，可以调api，非常简单。

Answer 6

绝对是用ADO的GetChunk和AppendChunkBinary方法，具体用法我不必说了，但Access中对应的字段应为二进制型才行，从设计界面是无法创建这种类型的字段的，可以用SQL语句创建，如"Alter Table 表名 Add 字段名 Binary"，这样就OK了，我的一个系统就是这样做的。

Answer 7

sorry,上次发的有点小误，下面是可用的一些代码：
'存图形的代码
Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)Sub SavePictureToAdodc(rs As ADODB.Recordset, ByVal FileName As String)
    Dim Length As Long, f As Integer
    Length = FileLen(FileName)
    
    ReDim bArray(Length + 12) As Byte, bArray2(Length) As Byte
    bArray(0) = &H6C: bArray(1) = &H74
    RtlMoveMemory bArray(4), Length, 4
    
    f = FreeFile
    Open FileName For Binary As #f
    Get #f, , bArray2
    Close #1
    
    RtlMoveMemory bArray(8), bArray2(0), Length
    
    rs("相片").AppendChunk bArray
End SubPrivate Sub imgPhoto_Click()
    On Error Resume Next
    With CommonDialog1
        .DialogTitle = "载入图片"
        .Filter = "(点阵图)*.bmp|*.bmp"
        .CancelError = True
        .ShowOpen
        If Err.Number <> cdlCancel Then
            Set imgPhoto.Picture = LoadPicture(.FileName)
            SavePictureToAdodc Adodc1.Recordset, .FileName
        End If
    End With
End SubPrivate Sub Command3_Click() ' 确定新增按钮
    On Error GoTo ErrMsg
    Adodc1.Recordset.Update
    Exit Sub
ErrMsg:
    MsgBox Err.Description, vbExclamation, "员工资料 - Update"
End Sub看看合用不，自己组织一些吧！

Answer 8

用ADO可以.查看一下仅2个月的问答,我问过同样的问题,并已解决.主要问题在于:字段中的内容比实际图象文件多了一部分,在转化时,需将这多余的部分去除. 

Answer 9

WXJ_LAKE真是对不起，我23号才收到你的MAIL，可是22号我已经给完分了。不好意思。
你那个程序对我很有用。