3、********************************** 保存文件到数据库中 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 sour
4、ce=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
5、 .open "表", iconc, adopenkeyset, adlockoptimistic .addnew 新增一条记录 .fields("保存文件内容的字段") = istm.read .update end with 完成后关闭对象 ire.close istm.close end sub 从数据库中读取数据,保存成文件 sub s_readfile() dim istm as adodb.strea
6、m 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
7、_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"