*************************************************************************
'**
'**使用ADODB.Stream保存/讀取文件到數據庫
'**引用MicrosoftActiveXDataObjects2.5Library及以上版本
'**
'**-----數據庫連接字符串模板---------------------------------------
'**ACCESS數據庫
'**iConcStr="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False"&_
'**";DataSource=數據庫名"
'**
'**SQL數據庫
'**iConcStr="Provider=SQLOLEDB.1;PersistSecurityInfo=True;"&_
'**"UserID=用戶名;Password=密碼;InitialCatalog=數據庫名;DataSource=SQL服務器名"
'**
'*************************************************************************
'
'保存文件到數據庫中
Subs_SaveFile()
DimiStmAsADODB.Stream
DimiReAsADODB.Recordset
DimiConcStrAsString
'數據庫連接字符串
iConcStr="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False"&_
";DataSource=F:/MyDocuments/客戶資料1.mdb"
'讀取文件到內容
SetiStm=NewADODB.Stream
WithiStm
.Type=adTypeBinary'二進制模式
.Open
.LoadFromFile"c:/test.doc"
EndWith
'打開保存文件的表
SetiRe=NewADODB.Recordset
WithiRe
.Open"表",iConc,adOpenKeyset,adLockOptimistic
.AddNew'新增一條記錄
.Fields("保存文件內容的字段")=iStm.Read
.Update
EndWith
'完成後關閉對象
iRe.Close
iStm.Close
EndSub
'從數據庫中讀取數據,保存成文件
Subs_ReadFile()
DimiStmAsADODB.Stream
DimiReAsADODB.Recordset
DimiConcAsString