****************************************************************************************
'**
'** Guardar/leer archivos en la base de datos usando ADODB.Stream
'** Referencia Microsoft ActiveXDataObjects2.5Library y arriba
'**
'** ----- Cadena de conexión de base de datos Plantilla-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------
'** Base de datos de acceso
'** icONCSTR = "Provider = Microsoft.Jet.OLEDB.4.0; PersistSeCurityInfo = FALSE" & _
'** "; DataSource = Nombre de la base de datos"
'**
'** Base de datos SQL
'** iconcstr = "proveedor = sqloledb.1; persistsecurityInfo = true;" & _
'** "userId = username; contraseña = contraseña; inicialCatalog = nombre de la base de datos; dataSource = SQL Servidor Nombre"
'**
'*****************************************************************************************************
'
'Guarde el archivo en la base de datos
Subs_saveFile ()
Dimistmasadodb.stream
Dimireasadodb.Recordset
Dimiconcstrastring
'Cadena de conexión de base de datos
iconcstr = "Provider = Microsoft.Jet.OLEDB.4.0; PERSISSECURITYINFO = FALSE" & _
"; DataSource = f:/myDocuments/Data de cliente 1.mdb"
'Lea el archivo al contenido
Setistm = newadodb.stream
Witistm
.Type = AdTypeBinary 'Modo binario
.Abierto
.LoadFromFile "c: /test.doc"
Fin
'Abra la tabla que guarda el archivo
Setire = newadoDB.RecordSet
Chiflado
.Open "tabla", iconc, adoenkeyset, adlockoptimista
.Addnew'add un nuevo disco
.Fields ("campos que guardan contenido del archivo") = istm.read
.Actualizar
Fin
'Cierre el objeto después de la finalización
ira.clar
ISTM. CLOSE
Endsub
'Lea los datos de la base de datos y guárdelo como un archivo
Subs_readFile ()
Dimistmasadodb.stream
Dimireasadodb.Recordset
Dimiconcastración