|
分類:[VB.NET/VB2005 以降]
お世話になります。
PictureBoxに表示された画像を
BLOB型のテーブル項目にInsertしたいのですが、
以下のソースをご覧ください。
Private Sub S_Ins_Pic()
Dim lsSql As String = ""
Try
Dim pBlob As OracleParameter
'' 画像格納先のPATHを指定
Dim lfs As New System.IO.FileStream("C:\TEMP\PICTURE.jpg", IO.FileMode.Open, IO.FileAccess.Read)
Dim fileSize As Integer = CInt(lfs.Length)
Dim blobData(fileSize - 1) As Byte
lfs.Read(blobData, 0, lfs.Length)
'' SQL文作成
lsSql = ""
lsSql = lsSql & " INSERT INTO T_IMAGE"
lsSql = lsSql & " VALUES"
lsSql = lsSql & " ("
lsSql = lsSql & " :blobData"
lsSql = lsSql & " ,sysdate"
lsSql = lsSql & " )"
'' テーブルへInsert開始
Dim cmd As New OracleCommand(lsSql, MyBase.poMdiForm.moDBCon.moDbCon)
'' BLOB型の変数バインド
pBlob = cmd.Parameters.Add("blobdata", OracleDbType.Blob)
pBlob.Value = blobData
'' SQL実行
cmd.ExecuteNonQuery()
Catch ex As Exception
Throw ex
End Try
End Sub
上記は画像ファイルのPathを指定して、BLOB型であることを指定してInsertしているのですが、
はじめにPathを指定する部分の処理を、
PictureBoxの画像を指定するようにしたいのですが、
どうしてもその書き方がわかりませんでした。
どなたか、わかる方いらっしゃましたら
教えてくださりませんでしょうか?
目的としては、
画像ファイルを縮小して、PictureBoxに表示させ、
その縮小させた画像(PictureBoxの画像)をInsertさせたいのです。
表示させたらそのままInsertさせたいので、
フォルダに一時的に保存するというのもやりたくないのです。
大変申し訳ないのですが、
ご教授ください。 よろしくお願いします。
|