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

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