- PR -

SQLServer2000のテーブルのImage列を印刷したい

1
投稿者投稿内容
LANVIN
大ベテラン
会議室デビュー日: 2007/03/12
投稿数: 211
投稿日時: 2007-06-30 15:40
　何度も質問してすいません。

先日,IIJIMASさんのおかげでSQLServer2000のテーブルに
JPEGファイルを登録したり、取り出したりできるように
なりました。

取り出してVB2005のフォーム上のピクチャボックスに
表示はできるのですが、
　最後に何とかActiveReportsNETのPictureコントロールに
表示させたいのですが、
型DataDynamics.ActiveReports.Imageの値をStringに変換できませんのエラーに
なってしまいます。

Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()

con.Open()
da.Fill(ds, "WWHIN")
Dim myRow As DataRow
myRow = ds.Tables("WWHIN").Rows(0)

Dim MyData() As Byte
MyData = myRow("imgField")

この行でｴﾗｰ Picture.Image = System.Drawing.Image.FromFile(ByteArrayToImage(MyData))
Picture.Image = ByteArrayToImage(MyData))
としても
型DataDynamics.ActiveReports.Imageの値をSystem.Drawing.Imageに変換できませんのエラーになってしまいます。

'*****************
Public Shared Function ByteArrayToImage(ByVal b As Byte()) As Image
Dim imgconv As New ImageConverter
Dim img As Image = CType(imgconv.ConvertFrom(b), Image)
Return img
End Function

申し訳ありません、お力貸していただけないでしょうか。
宜しくお願いします。
1

スキルアップ／キャリアアップ（JOB@IT）