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

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 25 を表示中)
■11285 / )  VB6.0 Oracle BLOB型
□投稿者/ ゆたか (1回)-(2007/12/11(Tue) 17:00:00)

分類:[VB6 以前] 

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の画面で表示させるには
どのようにすればよいのでしょうか?

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

返信 編集キー/


管理者用

- Child Tree -