<VB6.0+SQLServer2000>Image型のバイナリデータを表示したい

質問

こんにちは。
VB6.0+SQLServer2000で開発を行っています。
Image型の項目を用意して、PictureBoxなりなんなりに表示したいのですが、バイナリデータの変換方法がわかりません。
どなたか教えてください。

とりあえず、今はこんなかんじでPG書いてます。
===============================================
Private Sub Command1_Click()
Dim rs As adodb.Recordset
Dim mstream As adodb.Stream
Dim strSql As String
On Error GoTo Err_Command1_Click

strSql = "select * from 車体画像 where 整理番号='00000001'"

Set rs = New adodb.Recordset
rs.Open strSql, cn, adOpenKeyset, adLockOptimistic

Set mstream = New adodb.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("画像データ").Value
'ここからどうすればいいのか分かりません…
Exit Sub

Err_Command1_Click:
MsgBox Error
End Sub

回答No.1

todo36 · ベストアンサー

http://oshiete1.goo.ne.jp/kotaeru.php3?q=472113

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=472113

回答No.2

tokutec

回答が無い用ですので...
http://homepage1.nifty.com/MADIA/vb/vb_bbs/200306_03060063.htmlが参考になるかと...

参考URL：

http://homepage1.nifty.com/MADIA/vb/vb_bbs/200306_03060063.html

お礼

返事遅れてスミマセン。
お2人ともありがとうございます。

え～結局streamで一回ローカルに保存して、その画像をパス指定で渡すようにしました。

ありがとうございました。