！出错了！用ADO打开Access数据库写图片到其中一个二进制格式的字段

DIM Filnum as integer
filnum=FREEFILE
Open strfilename For Binary As #1
改为 Open strfilename For Binary Access Read As #filnum
Get #1, , btyget()
改为
Get #filnum, , btyget()
close#1
改为
close #filnum

解决方案 »

  1.   

    Open strfilename For Binary Access Read As filnum()
      

  2.   

    谢谢lanying(蓝鹰) ，我也试了
    但我不需要打开太多的文件，每次打开一个就可以了
      

  3.   

    http://www.csdn.net/Develop/Read_Article.asp?id=12507例子！
      

  4.   

    在For lngblockindex = 1 To lngblockcount
    之前
    加入 ReDim btyget(lngblocksize)
      

  5.   

    我按Tadpole0510(需心学习，玩命) 的改了后基本上是shawls(小山(坚持VB,学Delphi和C#)) 说的那网址上的源代码一样了，但就是不行！！真奇怪！！！
    我用的access是用vb自带的“可视化数据管理”建的，不会有什么设置上的问题吧？如果有，可能会是那些呢？
      

  6.   

    我的E-mail是：    [email protected]
      

  7.   

    终于行了！！！！我重建了数据库，谢谢大家的帮助
    尤其是 Tadpole0510(需心学习，玩命)  ，谢谢你
    还有，我不该怀疑你的技术：）不好意思......谢谢
    可以的话以后多帮忙