数据库学习:在数据库中存取文件(转)[@more@]

'*************************************************

'**

'** 使用 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: est.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=xzc$Inetpubzjzjzj.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: est.doc"

End With

'关闭对象

iRe.Close

iStm.Close

End Sub