AppendChunk 不支持此接口

Question

我在使用   ADODB.Recordset 的 AppendChunk方法时
rec("pictrue").AppendChunk Chunk()弹出了  不支持此接口 的窗口rec 设置如下
 Set rec = New ADODB.Recordset
    rec.ActiveConnection = ModConn.ADOconn
    rec.CursorType = adOpenStatic
    rec.LockType = adLockPessimistic

Answer 1

set rst=new adodb.recordser
rst.open "sql",conn ,adlockpessimistic,adopenstaticopen "path\filename" ......
get #1,by()      'by()是二进制数组
rst!xp.appendchunk by()   'rst!xp 指的是一个表中的image类型的字段或是text类型的字段

Answer 2

Dim DataFile As Integer, Fl As Long, Chunks As Integer
    Dim Fragment As Integer, Chunk() As Byte, I As Integer
    Const ChunkSize As Integer = 16384'在对ACCESE操作时，弹出不支持.AppendChunk接口的错误
'    DataFile = FreeFile 
 '   Open strFileName For Binary Access Read As DataFile
 '   Fl = LOF(DataFile)    
 '   If Fl = 0 Then
 '       Close DataFile
 '       MsgBox "打开图片文件失败，请重试！"
 '       Exit Sub
 '   End If
    
 '   Chunks = Fl \ ChunkSize
 '   Fragment = Fl Mod ChunkSize
    
 '   rec("pictrue").Value = Null
 '   ReDim Chunk(Fragment)
'    Get DataFile, , Chunk()
'    rec("pictrue").AppendChunk Chunk()'    ReDim Chunk(ChunkSize)
'    For I = 1 To Chunks
'        Get DataFile, , Chunk()
'        rec("pictrue").AppendChunk Chunk()
'    Next I
'Close DataFile

Answer 3

谢谢 txz1228(txz) rst!xp.appendchunk by() 
和
rec("pictrue").AppendChunk Chunk()两种写法应当是相同的，
！的写法我也试了，结果相同1、我使用的数据库是ACCESE 2000
pictrue的类型 是 备注2、    DataFile = FreeFile
    Open strFileName For Binary As DataFile
    ReDim Chunk(LOF(1))
    Do While Not EOF(1)
        Get #1, , Chunk
        I = I + 1
    Loop
    Close #1
    '还没有记录
    If rec.EOF Then
        rec.AddNew
    End If    rec("img") = Chunk()
    ‘rec!img.AppendChunk Chunk()
    rec.Update成功但添加到数据库的数据，不可以被图象框 显示
3、
************************************************8888
*    急求  ADO 操作 ACCESE 中图片的源代码      *
*
*        你要多少分我都给                      *
***********************************************8

Answer 4

你給我email地址﹐注明你的問題 我馬上可以給你寄過去
my email:[email protected]

Answer 5

我的问题是我在使用   ADODB.Recordset 的 AppendChunk方法对access 2000 操作时，总是出现不支持此接口的错误我希望有
ADO 操作 ACCESE 中图片的源代码      操作  备注字段的 都可以谢谢，，，记得我是要ADO，，，，DAO的我不需要收到后，我给你200分谢谢