Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 вставка картинки в access  [new]
Максим Н
Guest
Здравствуйте!

есть проект adp. необходимо иметь возможность выбрать картинку на диске через диалоговое окно и засунуть ее в базу. как это реализовать?

Спасибо.
28 дек 06, 11:59    [3592082]     Ответить | Цитировать Сообщить модератору
 Re: вставка картинки в access  [new]
A_l_e_x!
Member

Откуда:
Сообщений: 150
Хороший пример, я с него научился...

К сообщению приложен файл (pictures1.zip - 41Kb) cкачать
28 дек 06, 12:16    [3592234]     Ответить | Цитировать Сообщить модератору
 Re: вставка картинки в access  [new]
Максим Н
Guest
О, спасибо!!

А как картинку из access запихнуть в mssql?
28 дек 06, 13:14    [3592566]     Ответить | Цитировать Сообщить модератору
 Re: вставка картинки в access  [new]
A_l_e_x!
Member

Откуда:
Сообщений: 150
нащет mssql точно не знаю хотя думаю, что наверняка и в нем есть, в оракле есть поле типа blob, такой тип подразумевает собой хранение двоичных данных, в нем то и можно сохранять картинку.
29 дек 06, 10:21    [3596255]     Ответить | Цитировать Сообщить модератору
 Re: вставка картинки в access  [new]
Latuk
Member

Откуда: N 54°38', E 037°35'
Сообщений: 7310
Dim rs As ADODB.Recordset
Dim MStream As ADODB.Stream
Dim fd As Object 'FileDialog
Dim strSourseFName As String

'поиск файла
Set fd = Application.FileDialog(3) 'msoFileDialogFilePicker)
fd.Filters.Clear
fd.Filters.Add "Рисунок", "*.gif", 1
fd.Filters.Add "Все файлы", "*.*", 2
'Если файл выбран
If fd.Show Then

    ' имя и полный путь к файлу
    strSourseFName = fd.SelectedItems(1)
    '[BinData] [image] NULL
    Set rs = New ADODB.Recordset
    rs.Open "SELECT ID, BinData, Tmp FROM dbo.Pic_Picture_tbl WHERE ID =" & lngID, cnn, adOpenKeyset, adLockPessimistic, adCmdText
    Set MStream = New ADODB.Stream
    MStream.Type = adTypeBinary
    MStream.Open
    MStream.LoadFromFile strSourseFName 
    rs!BinData.Value = MStream.Read
    rs.Update
    rs.Close
    
    MStream.Close
    rs.Close
    Set rs = Nothing
    Set MStream = Nothing

    MsgBox "Loading complete.", vbInformation

End If
29 дек 06, 12:19    [3597330]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить