access存取mysql,VB/VBA中实现数据库中的文件存取-Access软件网

时　间:2007-11-6 8:52:13

作　者:摘　要:VB/VBA中实现数据库中的文件存取

正　文:

'VB/VBA中实现数据库中的文件存取

'示例数据库为ACCESS数据库,用SQL数据库的话,只需要改连接字符串

'

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

'**

'** 使用 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

'ACCESS数据库的连接字符串

iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _

";Data Source=F:\My Documents\客户资料1.mdb"

'SQL数据库的连接字符串

iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _

"User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"

'读取文件到内容

Set iStm = New ADODB.Stream

With iStm

.Type = adTypeBinary    '二进制模式,如果是用text/ntext字段保存纯文本数据,则改用 adTypeText

.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"

if iRe("img").ActualSize>0 Then

'保存到文件

Set iStm = New ADODB.Stream

With iStm

.Mode = adModeReadWrite

.Type = adTypeBinary '二进制模式,如果是用text/ntext字段保存纯文本数据,则改用 adTypeText

.Open

&

Access软件网QQ交流群(群号:41208985)

-----------------------------------------

江阴  钱玉炜

    QQ：1343954660    

欢迎您访问我的专栏：