C# と VB.NET の質問掲示板

OracleのBLOB型画像をVBで表示させたい　　
初めまして。ゆたかと申します。

VB6　＆　Oracle8.1.7.0　を使用しています。

早速質問なのですが、OracleのDBに取りこんだBLOB型の画像を、
きちんと取りこめたかどうか確認したいために
VBにて表示させたいのですが、どのようなコーディングを
行えばよいのでしょうか？

Oracleに接続するところまではできています。
(Oracleには以下の表に1行入っています。
　lob表・lob_no number(1),lob_b blob)


＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Option Explicit
    Private cnn As ADODB.Connection
    Private rec As ADODB.Recordset

Private Sub Form_Load()
     
    
    Dim strUserID As String
    Dim strPassword As String
    Dim strDataBaseName As String
    
    strUserID = "TESTUSER"
    strPassword = "TESTPASS"
    strDataBaseName = "TESTDB"
    
    ' ADOのオブジェクト変数を宣言する
    Set cnn = New ADODB.Connection
    Set rec = New ADODB.Recordset
                           
    ' Oracleとの接続を確立する
    cnn.Open "Provider=MSDAORA;User ID=" & strUserID & ";Password=" & _
                        strPassword & ";Data Source=" & strDataBaseName
                                
    ' SQLステートメントを指定してレコードセットを作成する
    rec.Open "select lob_no from lob", cnn, _
        adOpenKeyset, adLockOptimistic
    
    If Not rec.EOF Then
        Text1.Text = rec.Fields(0)
    End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

    cnn.Close
    Set cnn = Nothing
    
End Sub

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

上記コーディングでは、「' SQLステートメントを指定してレコードセットを作成する」
のところで、lob表のlob_no列をSelectし、Text1.Textに表示することで、
Oracleへの接続が正常だということを試しています。

この部分をBLOB型をSelectして、それをVBの画面で表示させるには
どのようにすればよいのでしょうか？

よろしくお願い致します。

■No11295 (やじゅ さん) に返信

> ここらへんが参考になるかな
> 
> VBでBLOBの画像を表示
> http://blog.goo.ne.jp/marco_may/e/80ec467a280c2d45514a03c577eebfb1
> 
> (7)BLOB型の利用方法：画像データをテーブルに設定
> http://www.mitene.or.jp/~rnk/TIPS_VB_oo4o.htm#Link7

やじゅ様

ご回答いただきありがとございます！
上記ＵＲＬ大変に参考にさせていただきました。
特に、> (7)BLOB型の利用方法：画像データをテーブルに設定
> http://www.mitene.or.jp/~rnk/TIPS_VB_oo4o.htm#Link7
の方の出来はすばらしいです。