画像を表示するには？ (ID:117601)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6.0 Oracle8iを使用しております 以下のコードでOracle Dim pic(3) = Picture1 For i = 1 To 3 code = CStr(i) Set pic(i) = Picture1 strSQL = "SELECT PICTURE FROM etc where sprno = 'AAAAAAAAAA' and no = " & code Set objOraDyn = OraDB.CreateDynaset(strSQL, ORADYN_DEFAULT) Set objOraBlb = objOraDyn.Fields(0).Value objOraBlb.CopyToFile pic(i).Picture Set objOraBlb = Nothing Set objOraDyn = Nothing Next