Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

'Открываем соединение с БД

conn.Open "localhost", "user", "psw"

sb.SimpleText = "Ready"

sb.SimpleText = "Loading image..."

sb.Refresh

Dim ra As Long

'Создаем Recordset

Set rs = conn.Execute("select * from blob_test", ra)

'Производим связывание данных

Set imgImg.DataSource = rs

'Здесь выполняется фактическая пересылка данных

'и вывод изображения на экран

imgImg.DataField = "img"

sb.SimpleText = "Ready"

...