vb保存大二进制数据到access中，大部分成功偶尔不成功。数据库文件比较小。请帮忙解决

Question

如题！

Answer 1

'Don 't   use   CreatObject,if   "Server "   object   haven 't   yet   created.You   may   give   it   a   try   with   the   below   codes,GOOD   LUCK! ************************************************************************* 
'** 
'**   使用   ADODB.Stream   保存/读取文件到数据库 
'**   引用   Microsoft   ActiveX   Data   Objects   2.5   Library   及以上版本 
'** 
'**   -----   数据库连接字符串模板   --------------------------------------- 
'**   ACCESS数据库 
'**   iConcStr   =   "Provider=Microsoft.Jet.OLEDB.4.0;Persist   Security   Info=False "   &   _ 
'**           ";Data   Source=数据库名 " 
'** 
'**   SQL数据库 
'**   iConcStr   =   "Provider=SQLOLEDB.1;Persist   Security   Info=True; "   &   _ 
'**           "User   ID=用户名;Password=密码;Initial   Catalog=数据库名;Data   Source=SQL服务器名 " 
'** 
'************************************************************************* 
' 
'保存文件到数据库中 
Sub   s_SaveFile() 
        Dim   iStm   As   ADODB.Stream 
        Dim   iRe   As   ADODB.Recordset 
        Dim   iConcStr   As   String 
      
        '数据库连接字符串 
        iConcStr   =   "Provider=Microsoft.Jet.OLEDB.4.0;Persist   Security   Info=False "   &   _ 
                ";Data   Source=F:\My   Documents\客户资料1.mdb " 
      
        '读取文件到内容 
        Set   iStm   =   New   ADODB.Stream 
        With   iStm 
                .Type   =   adTypeBinary         '二进制模式 
                .Open 
                .LoadFromFile   "c:\test.doc " 
        End   With 
      
        '打开保存文件的表 
        Set   iRe   =   New   ADODB.Recordset 
        With   iRe 
                .Open   "表 ",   iConc,   adOpenKeyset,   adLockOptimistic 
                .AddNew                   '新增一条记录 
                .Fields( "保存文件内容的字段 ")   =   iStm.Read 
                .Update 
        End   With 
      
        '完成后关闭对象 
        iRe.Close 
        iStm.Close 
End   Sub '从数据库中读取数据,保存成文件 
Sub   s_ReadFile() 
        Dim   iStm   As   ADODB.Stream 
        Dim   iRe   As   ADODB.Recordset 
        Dim   iConc   As   String 
      
        '数据库连接字符串 
        iConc   =   "Provider=Microsoft.Jet.OLEDB.4.0;Persist   Security   Info=False "   &   _ 
                ";Data   Source=\\xz\c$\Inetpub\zj\zj\zj.mdb " 
      
        '打开表 
        Set   iRe   =   New   ADODB.Recordset 
        iRe.Open   "tb_img ",   iConc,   adOpenKeyset,   adLockReadOnly 
        iRe.Filter   =   "id=64 " 
      
        '保存到文件 
        Set   iStm   =   New   ADODB.Stream 
        With   iStm 
                .Mode   =   adModeReadWrite 
                .Type   =   adTypeBinary 
                .Open 
                .Write   iRe( "img ") 
                .SaveToFile   "c:\test.doc " 
        End   With 
      
        '关闭对象 
        iRe.Close 
        iStm.Close 
End   Sub