堀川です、こんにちは


-----Original Message-----
From: 徐 仁松 [mailto:who@example.co.jp] 
Sent: Wednesday, March 13, 2002 1:15 PM
To: who@example.ne.jp
Subject: [ml-msde-beg:00147] VB 　 ADO でバイナリデータの取得


>GetChunkで取り出そうとしましたが、”このコンテキストで操作は許可されて
いませ
>ん。”
>というエラーが出て、取得出来ませんでした。


単純なbinaryデータであれば、次のようにします。

    Dim rd As ADODB.Recordset

    'バイナリデータを受け取るためのByte型動的配列変数を宣言する
    Dim dt() As Byte

   'バイナリデータをレコードセットから受け取るためのバリアント変数
    Dim vt As Variant

    'レコードセットを取得する
    Set rd = レコードセットを取得する命令

    'レコードのバイナリデータをバリアント変数に一度格納する
        vt =  rd![ バイナリデータの列名 ]

    '配列が入っているかどうかテストするときは、IsArray関数です
    If IsArray(vt) Then
    
           MsgBox "配列がバリアント変数に入っています"

           'バリアントに入っているバイト型配列データを取得する
           dt() = vt

           'そのバイナリデータの確認           
               MsgBox CStr(CInt(dt(0)))
               MsgBox CStr(CInt(dt(1)))
               MsgBox CStr(CInt(dt(2)))
                         以下、略
    End If
    


------------------------------------
（株）日本技術ソフト開発
  　    　堀川　明  (Akira Horikawa)
    ０３月１５日（金曜日）　１２時２３分記
        mailto:who@example.ne.jp
        http://www.horikawa.ne.jp/msde/