<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 回答日時： 2004/08/13 14:32

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

参考URL：http://oshiete1.goo.ne.jp/kotaeru.php3?q=472113

No.2 回答者： tokutec 回答日時： 2004/08/18 10:47

回答が無い用ですので...

http://homepage1.nifty.com/MADIA/vb/vb_bbs/20030 …が参考になるかと...

参考URL：http://homepage1.nifty.com/MADIA/vb/vb_bbs/20030 …

この回答へのお礼

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

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

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

お礼日時：2004/08/19 16:08