Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '< ภาพรูปภาพ
Dim sql As String
sql = "SELECT CustomerPicture FROM Customers"
comm = New OleDbCommand(sql, conn)
adapter = New OleDbDataAdapter(comm)
Dim data As New DataSet
adapter.Fill(data, "cat")
Dim photo() As Byte = data.Tables("cat").Rows(0)("CustomerPicture")
Dim streamPhoto As New MemoryStream
streamPhoto.Write(photo, 78, photo.Length - 78)
PictureBox1.Image = Image.FromStream(streamPhoto)
End Sub
คือว่ามันดึงแล้ว Error บรรทัดที่ 9 อ่ะครับ (ผมติดต่อฐานข้อมูลได้หมดแล้วอ่ะครับ ) ติดตรงที่ Dim photo() As Byte = data.Tables("cat").Rows(0)("CustomerPicture")
cmd = New SqlCommand("select imgfile from myimages where imgname=@param", conn)
cmd.Parameters.Add("@param", SqlDbType.NVarChar, 30)
Dim img As Byte() = DirectCast(cmd.ExecuteScalar(), Byte())
Dim streamPhoto As New MemoryStream()
streamPhoto.Write(img, 0, img.Length)
Dim bit As New Bitmap(streamPhoto)
cmd = New SqlCommand("select imgfile from myimages where imgname=@param", conn)
cmd.Parameters.Add("@param", SqlDbType.NVarChar, 30)
Dim img As Byte() = DirectCast(cmd.ExecuteScalar(), Byte())
Dim streamPhoto As New MemoryStream()
streamPhoto.Write(img, 0, img.Length)
Dim bit As New Bitmap(streamPhoto)
PictureBox1.Image = bit
เห่อๆ โทษทีครับ ผมอธิบายไม่ถูก เอา function ไปใช้เลยอะคับ
function นี้ผมให้หารูปภาพโดยส่ง รหัสของภาพยนต์มา (movId) แล้ว return เป็นรูปประเภท bitmap Code (VB.NET)
Public Shared Function GetMovieImg(ByVal movId As String) As Bitmap
Try
cmd = New SqlCommand("SELECT movImg from Movie WHERE movId = @movId ", conn)
cmd.Parameters.Add("@movId", SqlDbType.NVarChar).Value = movId
Dim img As Byte() = DirectCast(cmd.ExecuteScalar(), Byte())
Dim str As New MemoryStream()
str.Write(img, 0, img.Length)
Dim bit As New Bitmap(str)
Return bit
Catch ex As Exception
Return Nothing
End Try
End Function
Load balance : Server 02
