Иногда нам необходимо сохранить словесную статью в базу данных для дальнейшего поиска и использования, но как это сделать? Ниже приведены два метода хранения текстовых документов в базе данных.
Первый способ: сохранить весь текстовый документ в базе данных, что не только сохраняет содержимое вордового документа, но и сохраняет формат в ворде.
Если при сохранении используется база данных SQL Server, поле, в котором сохраняется документ Word, должно использовать тип данных «Двоичный». Если используется база данных ACCESS, следует использовать объект OLE.
Полный исходный код выглядит следующим образом:
'Загрузить любой файл из базы данных на локальную:
Открытая функция LoadFile(ByVal col As ADODB.Field, ByVal FileName As String) As Boolean 'Получить двоичные данные
При ошибке GoTo myerr:
Dim arrBytes() как байт
Dim FreeFileNumber как целое число
lngsize = col.ActualSize
arrBytes = col.GetChunk(lngsize)
Номер СвободногоФайла = СвободныйФайл
Открыть имя файла для двоичного доступа. Записать как #FreeFileNumber.
Поместите #FreeFileNumber, , arrBytes
Закрыть #FreeFileNumber
ЗагрузитьФайл = Истина
тьфу:
Если Номер ошибки <> 0 Тогда
ЗагрузитьФайл = Ложь
Ошиб.Очистить
Конец, если
Конечная функция
'Загрузка файлов из локальной базы данных
Открытая функция UpLoadFile(ByVal FileName, ByVal col As ADODB.Field) Как логическое значение
При ошибке GoTo myerr:
Dim arrBytes() как байт
Dim FreeFileNumber как целое число
Номер СвободногоФайла = СвободныйФайл
Открыть имя файла для двоичного файла как #FreeFileNumber
n = LOF(НомерФайла)
ReDim arrBytes (от 1 до n) как байт
Получить #FreeFileNumber, , arrBytes
Закрыть #FreeFileNumber
col.AppendChunk(arrBytes)
UpLoadFile = Истина
тьфу:
Если Номер ошибки <> 0 Тогда
UpLoadFile = Ложь
Ошиб.Очистить
Конец, если
Конечная функция
Второй метод:
При проектировании базы данных поля дизайна включают: wjmc (имя файла), wjsx (расширение файла), Wjnr (содержимое файла имеет двоичный тип данных). (Если база данных использует базу данных доступа, содержимое файла представляет собой старый объект, а база данных сервера sql — изображение)
Программа может работать со всеми типами файлов.
Дим Вэньцзянь в роли струны
Тусклый RD как байт
Тусклый размер до тех пор, пока
ConstMYSIZE = 1048576
Dim WENJIANN() как байт
Dim Rs как новый ADODB.Recordset
Rs.Откройте выбор * из wj, Cn, 1, 3
Rs.AddNew
Rs!wjmc = Mid(Name, 1, InStr(Name, .) - 1)
Rs!wjsx = Mid(Name, InStr(Name, .) + 1)
'имя - это имя файла плюс расширение
Открытое имя файла для двоичного доступа, прочитанное как #1
РАЗМЕР = LOF(1)
Делать, пока РАЗМЕР - MYSIZE >= 0
ReDim WENJIANN(MYSIZE) как байт
Получите #1, , WENJIANN
Rs!wjnr.AppendChunk WENJIANN
РАЗМЕР = РАЗМЕР - МОЙ РАЗМЕР
Петля
Если РАЗМЕР > 0 Тогда
ReDim WENJIANN (РАЗМЕР) как байт
Получите #1, , WENJIANN
Rs!wjnr.AppendChunk WENJIANN
Конец, если
Закрыть #1
Обновление рупий
Установить Rs=Ничего
Если вам нужна эта статья, добавьте ее в закладки.