Как сохранить на диск с помощью SaveFileDialog данных типа BLOB из ADO.NET и Microsoft Visual Basic .NET ?

Как сохранить на диск с помощью SaveFileDialog данных типа BLOB из ADO.NET и Microsoft Visual Basic .NET ?

у меня такая ситуация. форма состоит из ComboBox, две кнопки и три TextBox-a. в форме связ между таблицами идет один ко многим т.е основная таблица у меня RS а связанная Files.Таблицы Files имеет четыре поле
1-file_ID
2-file_Name
3-file_file
и 4-rs_ID (для связывания с основным таблицой RS

код формы:

Imports System.Data.SqlClient
Imports System.IO
--------------------------------------------------------------------------------------------
Public Class formAdd_Files

Private Sub RSBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RSBindingNavigatorSaveItem.Click
Me.FilesTableAdapter.Update(Me.R__SDataSet.Files)
'TODO: This line of code loads data into the 'R__SDataSet.RS' table. You can move, or remove it, as needed.
Me.RSTableAdapter.Update(Me.R__SDataSet.RS)

End Sub

Private Sub formAdd_Files_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'R__SDataSet.Files' table. You can move, or remove it, as needed.
Me.FilesTableAdapter.Fill(Me.R__SDataSet.Files)
'TODO: This line of code loads data into the 'R__SDataSet.RS' table. You can move, or remove it, as needed.
Me.RSTableAdapter.Fill(Me.R__SDataSet.RS)

End Sub
---------------------------------------------------------------------------------------------

Private Sub Сохранить файл_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim con As New SqlConnection _
("Server=IGD-ENGEENIER;uid=sa;pwd=;database=R__S")
Dim da As New SqlDataAdapter _
("Select * From Files", con)
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Dim openFileDialog1 As New OpenFileDialog()


da.MissingSchemaAction = MissingSchemaAction.AddWithKey

openFileDialog1.ShowDialog()
Dim fs As New FileStream _
(openFileDialog1.FileName, FileMode.OpenOrCreate, _
FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, fs.Length)
fs.Close()

con.Open()
da.Fill(ds, "Files")
Dim myRow As DataRow
myRow = ds.Tables("Files").NewRow()

'myRow("file_ID") = File_IDTextBox.Text
myRow("rs_ID") = Rs_IDTextBox.Text
myRow("file_Name") = File_NameTextBox.Text
myRow("file_file") = MyData
ds.Tables("Files").Rows.Add(myRow)
da.Update(ds, "Files")

fs = Nothing
MyCB = Nothing
ds = Nothing
da = Nothing

con.Close()
con = Nothing
MsgBox("Image saved to database")

End Sub
-----------------------------------------------------------------------------------------
Private Sub Загрузить файл_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Dim con As New SqlConnection _
("Server=IGD-ENGEENIER;uid=sa;pwd=;database=R__S")

Dim da As New SqlDataAdapter _
("Select * From Files", con)
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Dim saveFileDialog1 As New SaveFileDialog()

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

Dim MyData() As Byte
MyData = myRow("file_file")
Dim K As Long
K = UBound(MyData)

????????????здес у меня проблемы????????????
Dim fs As New FileStream _
(saveFileDialog1.FileName, FileMode.OpenOrCreate, _
FileAccess.Write)
????????????????????????????????????????????????????????


fs.Write(MyData, 0, K)
fs.Close()

fs = Nothing
MyCB = Nothing
ds = Nothing
da = Nothing

con.Close()
con = Nothing
MsgBox("Image retrieved")

End Sub

End Class

у меня такая ситуация. форма состоит из ComboBox, две кнопки и три TextBox-a. в форме связ между таблицами идет один ко многим т.е основная таблица у меня RS а связанная Files.Таблицы Files имеет четыре поле
1-file_ID
2-file_Name
3-file_file
и 4-rs_ID (для связывания с основным таблицой RS

код формы:

Imports System.Data.SqlClient
Imports System.IO
--------------------------------------------------------------------------------------------
Public Class formAdd_Files

Private Sub RSBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RSBindingNavigatorSaveItem.Click
Me.FilesTableAdapter.Update(Me.R__SDataSet.Files)
'TODO: This line of code loads data into the 'R__SDataSet.RS' table. You can move, or remove it, as needed.
Me.RSTableAdapter.Update(Me.R__SDataSet.RS)

End Sub

Private Sub formAdd_Files_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'R__SDataSet.Files' table. You can move, or remove it, as needed.
Me.FilesTableAdapter.Fill(Me.R__SDataSet.Files)
'TODO: This line of code loads data into the 'R__SDataSet.RS' table. You can move, or remove it, as needed.
Me.RSTableAdapter.Fill(Me.R__SDataSet.RS)

End Sub
---------------------------------------------------------------------------------------------

Private Sub Сохранить файл_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim con As New SqlConnection _
("Server=IGD-ENGEENIER;uid=sa;pwd=;database=R__S")
Dim da As New SqlDataAdapter _
("Select * From Files", con)
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Dim openFileDialog1 As New OpenFileDialog()


da.MissingSchemaAction = MissingSchemaAction.AddWithKey

openFileDialog1.ShowDialog()
Dim fs As New FileStream _
(openFileDialog1.FileName, FileMode.OpenOrCreate, _
FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, fs.Length)
fs.Close()

con.Open()
da.Fill(ds, "Files")
Dim myRow As DataRow
myRow = ds.Tables("Files").NewRow()

'myRow("file_ID") = File_IDTextBox.Text
myRow("rs_ID") = Rs_IDTextBox.Text
myRow("file_Name") = File_NameTextBox.Text
myRow("file_file") = MyData
ds.Tables("Files").Rows.Add(myRow)
da.Update(ds, "Files")

fs = Nothing
MyCB = Nothing
ds = Nothing
da = Nothing

con.Close()
con = Nothing
MsgBox("Image saved to database")

End Sub
-----------------------------------------------------------------------------------------
Private Sub Загрузить файл_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Dim con As New SqlConnection _
("Server=IGD-ENGEENIER;uid=sa;pwd=;database=R__S")

Dim da As New SqlDataAdapter _
("Select * From Files", con)
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Dim saveFileDialog1 As New SaveFileDialog()

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

Dim MyData() As Byte
MyData = myRow("file_file")
Dim K As Long
K = UBound(MyData)

????????????здес у меня проблемы????????????
Dim fs As New FileStream _
(saveFileDialog1.FileName, FileMode.OpenOrCreate, _
FileAccess.Write)
????????????????????????????????????????????????????????


fs.Write(MyData, 0, K)
fs.Close()

fs = Nothing
MyCB = Nothing
ds = Nothing
da = Nothing

con.Close()
con = Nothing
MsgBox("Image retrieved")

End Sub

End Class

Как это понять?

Хай извините
Просто я очень хочу найти ответь на этот вопрос. что на форуме не кого из специалистов нет?