สวัสดีครับ ผมมีปัญหา เรื่อง การบันทึกรูปภาพที่เป็น binary เเล้วก็ดึงมาใช้ ครับ ขอตัวอย่างโค๊ดได้มั้ยครับ

ds.Table("land").Rows(0)("Picture")

Private tmpFileName As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'Reading a picture from disk and put it in a bytearray
        Using fo As New OpenFileDialog With
            {.Filter = "JpG (*.jpg)|*.jpg|Gif (*.gif)|*.gif|All files (*.*)|*.*"}
            If fo.ShowDialog = DialogResult.OK Then
                tmpFileName = fo.FileName
                Call LoadImage(tmpFileName)
            End If
        End Using
    End Sub
    Private Sub LoadImage(ByRef picturePath As String)
        Me.Label2.Text = tmpFileName
        Dim fs As New IO.FileStream(picturePath, _
       IO.FileMode.Open)
        Dim br As New IO.BinaryReader(fs)
        Dim byteArray = br.ReadBytes(CInt(fs.Length))
        br.Close()
        'just to show the sample without a fileread error
        Dim ms As New IO.MemoryStream(byteArray)
        Me.PictureBox1.Image = Image.FromStream(ms)
    End Sub
    Private Sub ShowImage()
        Dim sqlImage As String
        sqlImage = "SELECT PICTURE  FROM land"
        sqlImage &= "  WHERE LANDID ='1'"



        With Conn

            If .State = ConnectionState.Open Then .Close()

            .ConnectionString = strConnstring

            .Open()

        End With



        da = New SqlDataAdapter(sqlImage, Conn)

        da.Fill(ds, "land")

        da.SelectCommand.CommandText = sqlImage

        da.Fill(ds, "land")



        If ds.Tables("land").Rows.Count <> 0 Then

            IsFindImage = True

           
            Call LoadImage(ds.Tables("land").Rows(0).Item("PICTURE"))
        Else

            IsFindImage = False

        End If

    End Sub

 Dim strSQL As String
        Dim cmd As SqlCommand
        Dim lngRows As Integer
        Dim photo As Byte()

        Dim strConnstring As String = "Data Source=.\SQLSERVER;Initial Catalog=GIS;Integrated Security=True;User ID=sa;Pwd=sspe"
        Dim cn As New SqlConnection(strConnstring)
        photo = GetPhoto(tmpFileName) ' ---- อ่านไฟล์ภาพเข้าตัวแปร Byte array

        ' TextBox1.Text = tmpFileName
        ' ---- เทคนิคการนำข้อมูล binary (byte array) เข้าฐานข้อมูล ให้ใช้พารามิเตอร์นะครับ
        TextBox1.Text = tmpFileName

        strSQL = "INSERT INTO land (PICTURE,PICTURENAME) "
        strSQL &= " VALUES ('" & tmpFileName & "',"
        strSQL &= "@photo)"
        cmd = New SqlCommand(strSQL, cn) ' ---- ตัวแปร cn นี่ผมลากใส่ฟอร์มกำหนด Connection String จาก wizard นะ
        ' ---- ดูวิธีการส่งค่าให้กับพารามิเตอร์ดีๆ Path.GetFileName เป็นวิธีการเอามาแต่ชื่อไฟล์ จากพาธยาวๆ

        cmd.Parameters.Add("@filename", SqlDbType.NVarChar, 500).Value = Path.GetFileName(tmpFileName)

        cmd.Parameters.Add("@photo", SqlDbType.Image, photo.Length).Value = photo

        If (cn.State = ConnectionState.Closed) Then cn.Open()

        lngRows = cmd.ExecuteNonQuery() ' ---- ยิง SQL ไป execute.
        MsgBox(lngRows & "บันทึกเรียบร้อย")
        cn.Close()

        PictureBox1.Image = Nothing ' ---- ลบภาพพรีวิวออก.
    End Sub

        Dim cmd As SqlCommand
        Dim lngRows As Integer
        Dim photo As Byte()
        Dim strConnstring As String = "Data Source=.\SQLSERVER;Initial Catalog=GIS;Integrated Security=True;User ID=sa;Pwd=sspe"
        Dim cn As New SqlConnection(strConnstring)
        photo = GetPhoto(tmpFileName) ' ---- อ่านไฟล์ภาพเข้าตัวแปร Byte array

        Dim sqlupdate As String

        sqlupdate = "update land "

        sqlupdate &= " set  PICTURENAME= '" & "@photo" & "',"
        sqlupdate &= " PICTURE= '" & tmpFileName & "'"

        sqlupdate &= " where LANDID = '" & txtLANDID.Text & "'"

        cmd = New SqlCommand(sqlupdate, cn) ' ---- ตัวแปร cn นี่ผมลากใส่ฟอร์มกำหนด Connection String จาก wizard นะ
        ' ---- ดูวิธีการส่งค่าให้กับพารามิเตอร์ดีๆ Path.GetFileName เป็นวิธีการเอามาแต่ชื่อไฟล์ จากพาธยาวๆ

        ' cmd.Parameters.Add("@filename", SqlDbType.NVarChar, 500).Value = Path.GetFileName(tmpFileName)
        cmd.Parameters.Add("@photo", SqlDbType.Image, photo.Length).Value = photo


        If (cn.State = ConnectionState.Closed) Then cn.Open()
        lngRows = cmd.ExecuteNonQuery() ' ---- ยิง SQL ไป execute.
        MsgBox(lngRows & "บันทึกเรียบร้อย")
        cn.Close()