********************************************************
'**
'** Speichern/lese Dateien mit adodb.stream in der Datenbank in der Datenbank
'** Referenz Microsoft ActiveXDataObjects2.5Library und höher
'**
'** ----- Datenbankverbindungszeichenfolge Vorlage-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'** Zugriffsdatenbank
'** iconcstr = "provider = microsoft.jet.oledb.4.0; PersistSecurityInfo = false" & _
'** "; DataSource = Datenbankname"
'**
'** SQL -Datenbank
'** iconcstr = "Provider = SQLOLEDB.1; PersistSecurityInfo = true;" & _
'** "userId = userername; password = password; initialCatalog = Datenbankname; DataSource = SQL Server Name"
'**
'***************************************************
''
'Speichern Sie die Datei in der Datenbank
Subs_saveFile ()
Dimistmasadodb.stream
Dimireasadodb.recordset
Dimiconcstrassstring
'Datenbankverbindungszeichenfolge
iconcstr = "provider = microsoft.jet.oledb.4.0; PersistSecurityInfo = false" & _
"; DataSource = f:/mydocuments/kundendaten 1.mdb"
'Lesen Sie die Datei zum Inhalt durch
Setistm = newoDoDB.Stream
Witstm
.Type = adypebinary 'binärer Modus
.Offen
.LoadfromFile "c: /test.doc"
Endwith
'Öffnen Sie die Tabelle, die die Datei speichert
Setire = newAdoDB.Recordset
Witre
.Open "Tabelle", iconc, adoptiereneSet, Adlockoptimistik
.Addnew'add einen neuen Rekord
.Fields ("Felder, die Dateiinhalte speichern") = iStm.read
.Aktualisieren
Endwith
'Schließen Sie das Objekt nach Abschluss
IRE.CLOSE
istm.close
Ende
'Lesen Sie Daten aus der Datenbank und speichern Sie sie als Datei
Sub_readfile ()
Dimistmasadodb.stream
Dimireasadodb.recordset
Dimiconcasstring