********************************************************************************
'**
'** Enregistrer / lire des fichiers dans la base de données à l'aide d'Adodb.stream
'** Référence Microsoft ActiveXDataObjects2.5Library et au-dessus
'**
'** ----- chaîne de connexion de la base de données Modèle-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'** Base de données d'accès
'** iconcstr = "provider = Microsoft.jet.oledb.4.0; persistanceSecurityInfo = false" & _
'** "; dataSource = nom de base de données"
'**
'** base de données SQL
'** iconcstr = "provider = sqloledb.1; persistanceSecurityInfo = true;" & _
'** "userId = username; mot de passe = mot de passe; InitialCatalog = Nom de la base de données; DataSource = SQL Server Nom"
'**
'**********************************************************************************************************
'
'Enregistrer le fichier dans la base de données
Subs_savefile ()
Dimistmasadodb.stream
Dimireasadodb.recordset
Dimiconcstrassstring
'Chaîne de connexion de la base de données
iconcstr = "provider = Microsoft.Jet.oledb.4.0; persistanceSecurityInfo = false" & _
"; DataSource = f: / mydocuments / données client 1.mdb"
'Lisez le fichier sur le contenu
Setistm = newadodb.stream
Withistm
.Type = mode binaire adtypebinary
.Ouvrir
.Loadfromfile "c: /test.doc"
Fin
'Ouvrez le tableau qui enregistre le fichier
Setire = newadodb.recordset
Avec
.Open "Table", iconc, adoptenKeyset, adlockoptimiste
.Addnew'add un nouveau record
.Fields ("champs qui enregistrent le contenu du fichier") = istm.read
.Mise à jour
Fin
'Fermez l'objet après l'achèvement
ire.close
istm.close
Fin
'Lisez les données de la base de données et enregistrez-la en tant que fichier
Subs_readfile ()
Dimistmasadodb.stream
Dimireasadodb.recordset
Dimiconcassstring