انتقال یک تصویر از یک جدول به جدول دیگر

[teymoorei]

سلام
من از کد زیر برای ذخیره تصاویر استفاده می کنم ، حالا می خوام به جای استفاده از OpenFileDialog از یه جایگزین استفاده کنم تا یک تصویر رو که مثلا در Table1 ذخیره شده رو در Table2 هم ذخیره کنم .

Private Sub InsertRow(ByVal filename As String, ByVal [width] As Integer, ByVal [height] As Integer)
Try
Dim sampleImage As New Bitmap(width, height)
Dim bm As New Bitmap(filename)
Dim mStream As New System.IO.MemoryStream
Dim ImageBytes As Byte()
Dim g As Graphics = Graphics.FromImage(sampleImage)
g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width, bm.Height), GraphicsUnit.Pixel)
sampleImage.Save(mStream, Imaging.ImageFormat.Png)
ImageBytes = mStream.ToArray
g.Dispose()
bm.Dispose()
sampleImage.Dispose()
Dim cmd As New SqlCommand("Insert Into Table5 (ID,Picture) Values (@ID@Picture)", Connection)
cmd.Parameters.AddWithValue("@ID", lblCat3.Text)
cmd.Parameters("@Picture").Value = ImageBytes
If Connection.State = ConnectionState.Closed Then Connection.Open()
cmd.ExecuteNonQuery()
Connection.Close()
ExpandablePanel1.Text = "اطلاعات با موفقیت ذخیره شد"
LoadData()
Catch ex As Exception
End Try
End Sub

InsertRow(OpenFileDialog1.FileName, 200, 300)

اگه ممکنه دوستان راهنمایی کنند .

[teymoorei]

واقعا باید ریشه یابی کرد که چرا دوستان اینقدر کم کار شدند ، فکر نمی کنم سوالای من برای دوستان استاد من چندان مشکل باشه .

[teymoorei]

واقعا چه باید کرد .