Сохранение файла в базу и выгрузка на диск

[Frot]

Добрый день! Пишу диплом, есть необходимость сохранить файл в базу MS Access с помощью VBA по одной кнопке и засунуть другой файл в базу по нажатию другой кнопки... Заранее благодарен!!!

[Twister]

А что уже было сделано?

[Frot]

А что уже было сделано?

Нашел вот такой вот примерчик, но он не работает, говорит, что не знает что такое Stream

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

Dim objStream As New ADODB.Stream
    Dim rst As New ADODB.Recordset
   
    CurrentProject.Connection.Execute "delete * from t1"
    With rst
        .Open "t1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        With objStream
            .Type = adTypeBinary
            .Open
            .LoadFromFile "d:\test.doc"
            rst.AddNew "f1", .Read(adReadAll)
            rst.Update
            .Close
        End With
        .Close
        .Open
        With objStream
            .Open
            .Write rst(0)
            .SaveToFile "d:\test1.doc"
            .Close
        End With
    End With

[Twister]

А он знает, что такое ADODB.Recordset?
Может библиотеку подключить?

[alibek]

Какая версия ADO подключена? Ранние версии ADO не знали, что такое Stream.

[Frot]

А он знает, что такое ADODB.Recordset?
Может библиотеку подключить?

А как???

[Frot]

А он знает, что такое ADODB.Recordset?
Может библиотеку подключить?

Кстати, знает

А как узнать версию ADODB (стоит M$ Office 2003)

[Frot]

Да, и еще: какой тип поля должен быть чтобы в него можно было пихать файлы?
ПОМОГИТЕ ПЛИЗ!!! Мне диплом через полнедели сдавать, а у меня эта херня не работает ((

[GSerg]

А ты не сдашь диплом через полнедели с такими знаниями.

http://bbs.vbstreets.ru/viewtopic.php?t=25635 почитай на досуге.

[Frot]

А ты не сдашь диплом через полнедели с такими знаниями.

http://bbs.vbstreets.ru/viewtopic.php?t=25635 почитай на досуге.

Да не нужны мне знания васика... Мне нужна процедура, которая запихнет в базу файл... А с остальным уж сам разберусь!!!
Причем процедуру я уже нашел. не могу понять почему она не работает, и какой тип поля ей нужен! Помогите же кто-нибудь, а?!!