***********************************************
**
'** Сохранить/прочитать файлы в базу данных с помощью adodb.stream
'** Справочник Microsoft ActiveXdataObjects2.5Library и выше
**
'** ----- Строка подключения к базе данных Шаблон-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.
'** База данных доступа
'** iconcstr = "Provider = microsoft.jet.oledb.4.0; PersisteCurityInfo = false" & _
'** "; dataSource = имя базы данных"
**
** База данных SQL
'** iconcstr = "Provider = sqloledb.1; PersistsecurityInfo = true;" & _
'** "userId = userName; пароль = пароль;
**
'*****************************************************
'
'Сохраните файл в базу данных
Subs_savefile ()
DiMistmasAdodb.stream
Dimireasadodb.recordset
DIMICONCSTRASSTRING
'Строка подключения к базе данных
iconcstr = "Provider = microsoft.jet.oledb.4.0; PersistsecurityInfo = false" & _
"; DataSource = f:/mydocuments/data 1.mdb"
'Прочтите файл в контент
Setistm = newadodb.stream
С помощью
.Type = adtypebinary 'двоичный режим
.Открыть
.Loadfromfile "c: /test.doc"
Энд
'Откройте таблицу, которая сохраняет файл
Setire = newadodb.recordset
Фарольм
.Open "таблица", iconc, adposenkeyset, adlockoptimist
.Addnew'Add новая запись
.Fields ("Поля, которые сохраняют содержимое файла") = istm.read
.Обновлять
Энд
'Закройте объект после завершения
IRE.Close
ISTM.Close
Заканчивая
'Прочитайте данные из базы данных и сохраните их как файл
Subs_readfile ()
DiMistmasAdodb.stream
Dimireasadodb.recordset
DIMICONCASSTRING