| 投稿日 | ： 2002/08/28(Wed) 18:01 |
| 投稿者 | ： Honda |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: オブジェクト型のデータの扱いについて |
> 本題ですが、DBに「OLE オブジェクト型」でテーブルを作り、そこにVBから登録し、
> 読込もしたいのです。パスをもたすのではなく（パスを持たせた場合はそのデータを消されたら表示で
> きませんよね）データそのものをDBにもたせたいのです。
> いろいろHPなど検索しているのですが、なかなかみつかりません。
> ヨロシクおねがいします。また説明不足の点がありましたら、ご指摘ください。
DAOでの方法です、ADOでは試したことがありません
BMPのみです
レコードへの書き込みも要領はおなじです
Binaryモードで配列に読み込み、GetChunkの変わりにAppendChunkで
データをレコードに送ります。引数は配列です。
Sub RecordToFile(RS As Recordset)
Dim lngFSize As Long 'フィールドサイズ
Dim bytArray() As Byte 'データを読み込む配列
'フィールドサイズ取得
lngFSize = RS(0).FieldSize
'データ無しなら終了
If lngFSize = 0 Then
Exit Sub
End If
'配列をフィールドサイズ分確保
ReDim bytArray(lngFSize)
'配列にデータコピー
bytArray = RS(0).GetChunk(0, lngFSize)
'ファイルに書き込み
Open "test.bmp" For Binary As #1
Put #1, , bytArray
Close #1
'表示
picTest.Picture = LoadPicture("test.bmp")
'配列クリア
Erase bytArray
End Sub