Вставить документ в БД

[fishh]

Здравствуйте!!!
Существует прога "Делопроизводство". В ней сохраняются записи от кого какие документы пришли в какое время и т.д. Сейчас возникла необходимость прикреплять некоторые доки к записям. В БД было добавлено поле OLE "Вложение". В котором должен хранится документ не известного происхождения (Word, Excel и т.д.). Как реализовать данную функцию на VB?

[Денис]

Уточните формат базы данных.

[trash]

Раз OLE, значит Access.

[fishh]

Формат БД - Access
А подробнее про OLE можно? я пробовала, но ничего не вышло

[Денис]

Формат БД - Access
А подробнее про OLE можно? я пробовала, но ничего не вышло

Потом ваши юзеры нажимают на этом поле правой клавишей мышки один раз и в открывшемся меню выбирают пункт "Добавить объект" (левой клавишей мышки, один раз), после чего в открывшемся окошке выбирают точечку "Из файла", нажимают кнопку "обзор" и выбирают свой файл. после чего нажимают кнопочку "ОК" и всё окей.

[dub]

если требуется сохранять документ в БД, поле МEMO, и записывать в него

Код: Выделить всё

Sub add_pic(opt As String)
Dim dbt As Database
Dim rst As DAO.Recordset

Dim Filename As String
Dim FileBin As String

CD1.Filter = "Графические файлы  (*.bmp;*.jpg;*.gif;*.wmf;*.cur;*.ico)|*.bmp;*.jpg;*.gif;*.wmf;*.cur;*.ico"
CD1.FilterIndex = 0
CD1.ShowOpen

Filename = CD1.Filename
If Filename = Empty Then Exit Sub

Open Filename For Binary As #1
FileBin = String$(LOF(1), " ")
Get #1, 1, FileBin
Close #1

Set dbt = OpenDatabase(App.Path & "\db3.mdb")

Select Case opt
    Case "kof"
    Set rst = dbt.OpenRecordset("SELECT * FROM main WHERE id LIKE '" & rskof.Fields("id") & "'")
    Case "zap"
    Set rst = dbt.OpenRecordset("SELECT * FROM zap WHERE id LIKE '" & rszap.Fields("id") & "'")
End Select

With rst
.Edit
.Fields("pic") = FileBin
.Update
End With

Set rst = Nothing
Set dbt = Nothing

End Sub


когда давно было, но работает

[Ser-Robotiaga]

Приведенный код для DAO. А для DAO можно без извращений, так как эта технология вполне поддерживает OLE. А вот если БД написана в ADO, то тут вопрос сложный, по крайней мере для меня.

[Roman Koff]

Сохранять документы на диске а в базе держать ссылки на файлы не катит?

[Ser-Robotiaga]

Не катит. Интересно прикрутить OLE. Самое интересное, что при создании БД в Access, в Access в нем все работает. Но когда пишешь форму на VB, возникают проблемы.

[Twister]

Код: Выделить всё

Set rst = dbt.OpenRecordset("SELECT * FROM main WHERE id LIKE '" & rskof.Fields("id") & "'")

Не надо советовать людям применять такую вот ересь. Здесь как минимум три косяка. Хотя общая идея кода верна.

Сохранять документы на диске а в базе держать ссылки на файлы не катит?

Тоже решение из серии "на скоряк". При масштабировании базы такие "решения" могут встать боком.

Автор: как именно требуется производить манипуляции с BLOB-полем, через стандартный интерфейс Access или там своя форма?

[Ser-Robotiaga]

Я хоть и не автор этой темы, но возьму на себя смелость утверждать, что автору нужно работать через форму на VB. Да и для меня это актуальная тема.