sql保存对象文件(程序实现).docVIP

sql保存对象文件(程序实现) 下面给出用程序实现的两种方法. 方法1.用ADO.Stream对象,以VB程序为例子 ************************************************************************* ** ** 使用 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