MARCO's FREE MEMO

携帯フォトや備忘録などをちょこっと…

広告

※このエリアは、60日間投稿が無い場合に表示されます。記事を投稿すると、表示されなくなります。

VBでBLOBの画像を表示

2006年03月31日 19時23分40秒 | Database
前回の続き

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 | トップ | 迷惑カキコ拒否機能付き掲示板 »
最新の画像もっと見る

コメントを投稿

Database」カテゴリの最新記事