******************************************************************************
'**
'**Save/read files to database using ADODB.Stream
'**Reference Microsoft ActiveXDataObjects2.5Library and above
'**
'**-----Database Connection String Template---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'**ACCESS database
'**iConcStr="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False"&_
'**";DataSource=database name"
'**
'**SQL database
'**iConcStr="Provider=SQLOLEDB.1;PersistSecurityInfo=True;"&_
'**"UserID=username;Password=password;InitialCatalog=database name;DataSource=SQL server name"
'**
'******************************************************************************************************
'
'Save the file to the database
Subs_SaveFile()
DimiStmAsADODB.Stream
DimiReAsADODB.Recordset
DimiConcStrAsString
'Database connection string
iConcStr="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False"&_
";DataSource=F:/MyDocuments/Customer Data 1.mdb"
'Read the file to the content
SetiStm=NewADODB.Stream
WithiStm
.Type=adTypeBinary' binary mode
.Open
.LoadFromFile"c:/test.doc"
EndWith
'Open the table that saves the file
SetiRe=NewADODB.Recordset
WithiRe
.Open "table", iConc, adOpenKeyset, adLockOptimistic
.AddNew'Add a new record
.Fields("Fields that save file content")=iStm.Read
.Update
EndWith
'Close the object after completion
iRe.Close
iStm.Close
EndSub
'Read data from the database and save it as a file
Subs_ReadFile()
DimiStmAsADODB.Stream
DimiReAsADODB.Recordset
DimiConcAsString