VBでBLOBの画像を表示

前回の続き

SQL = "select IMAGE from TBL where ID=1"
RS.Open SQL, DB
If Not IsNull(RS![IMAGE]) Then
PDAT = RS.Fields(0).Value
Open "temp.jpg" For Binary As #1
Put #1, , PDAT
Close #1
Picture1.Picture = LoadPicture("temp.jpg")
End If

今朝は遠くまで空気が澄んでいて、久々に富士山が見えた。
週末お花見をする人は手をあげて(^-^)/

VBでBLOB

久々にログインしてみたのでテンプレートも変えて、ついでに記事も入れてみよう。

こないだ仕事で使ったオラクルBLOBへの画像登録手順。
接続はADOを使用。

Dim DB As ADODB.Connection
Dim RS As New ADODB.Recordset
Dim SQL As String
Dim PDAT() As Byte

Set DB = CreateObject("ADODB.Connection")
DB.Open "Provider=OraOLEDB.Oracle;Data Source=dsn;", "user", "pass"

SQL = "insert into TBL(ID,IMAGE) values(1,EMPTY_BLOB())"
DB.Execute (SQL)
SQL = "select IMAGE from TBL where ID=1"
Set RS.ActiveConnection = DB
RS.CursorLocation = adUseClient
RS.CursorType = adOpenStatic
RS.Source = SQL
RS.Open , , adOpenStatic, adLockOptimistic
If Not RS.EOF Then
Open "c:\imagesample.jpg" For Binary As #1
ReDim PDAT(LOF(1) - 1)
Get #1, , PDAT
Close #1
RS.Fields(0).AppendChunk (PDAT)
RS.Update
End If
RS.Close
Set RS = Nothing

DB.Close
Set DB = Nothing

ひさびさに書いたら疲れた(汗)
登録した画像を表示する手順はまた今度♪