Есть база данных SQL, с перечнем пользователей и их фото. Фото содержится в поле MMOBJS.LNL_BLOB таблицы MMOBJS.
Пишу программу на VB.Net для чтения данных из базы и отображения их в DataGridView. С этим проблем нет. Данные вывожу, и фильтрую их по разным полям.
Также, могу отобразить и фото выбранного пользователя и сохранить его фото.
Не могу сделать сохранение всех фото разом (каждого пользователя в отдельный файл со своим именем.
При загрузке формы получаю в DataGrid таблицу с номером, ФИО и колонкой с фотками. Private Sub Frm_Image_Export_Load(sender As Object, e As EventArgs) Handles MyBase.Load
OpenConnection() ' open our connection before
Dim da As New SqlDataAdapter
Dim dt As DataTable ' declaration data table
Dim bs As New BindingSource()
da = New SqlDataAdapter("Select emp.SSNO As 'Табельный №', emp.LASTNAME As 'Фамилия', emp.FIRSTNAME As 'Имя', emp.MIDNAME As 'Отчество', MMOBJS.LNL_BLOB As 'Фото' FROM EMP INNER JOIN BADGE ON EMP.ID = BADGE.EMPID INNER JOIN UDFEMP ON UDFEMP.ID = EMP.ID INNER JOIN DEPT on UDFEMP.DEPT = DEPT.ID INNER JOIN BADGSTAT ON BADGE.STATUS = BADGSTAT.ID INNER JOIN MMOBJS ON MMOBJS.EMPID = BADGE.EMPID", connections)
dt = New DataTable
da.Fill(dt)
bs = New BindingSource()
bs.DataSource = dt
DataGridView1.DataSource = bs
BindingNavigator1.BindingSource = bs
Dim band As DataGridViewBand = DataGridView1.Columns(4)
band.Visible = False
connections.Close() ' close connections
End Sub
Далее, по клику на кнопке, хочу добиться сохранения всех фоток выведенного датагрида в папку, в формате один файл одно фото пользователя. Однако получается опять только сохранение фоток по одной, кликакая на строке датагрида и нахимая кнопку сохранения.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Path As String = IO.Path.Combine(Application.StartupPath, "Images",
" " + DataGridView1.CurrentRow.Cells(0).Value.ToString +
" " + DataGridView1.CurrentRow.Cells(1).Value.ToString +
" " + DataGridView1.CurrentRow.Cells(2).Value.ToString +
" " + DataGridView1.CurrentRow.Cells(3).Value.ToString +
"" + ".jpg")
Dim Dir As String = System.IO.Path.GetDirectoryName(Path)
Try
If Not System.IO.Directory.Exists(Dir) Then
System.IO.Directory.CreateDirectory(Dir)
End If
Catch ex As Exception
MessageBox.Show("Error: Saving Image Failed ->>" & ex.Message.ToString())
End Try
'For Each selectedItem As DataGridViewRow In DataGridView1.SelectedRows
SqlBlob2File(Path)
'Next
'SqlBlob2File("c:\tmp2\copyoftestfile.jpg")
End Sub
Private Sub SqlBlob2File(ByVal DestFilePath As String)
OpenConnection() ' open our connection before
Dim PictureCol As Integer = 4 ' the column # of the BLOB field
'Dim cn As New SqlConnection("server=localhost;integrated security=yes;database=NorthWind")
Dim cmd As New SqlCommand("Select emp.SSNO As 'Табельный №', emp.LASTNAME As 'Фамилия', emp.FIRSTNAME As 'Имя', emp.MIDNAME As 'Отчество', MMOBJS.LNL_BLOB As 'Фото' FROM EMP INNER JOIN BADGE ON EMP.ID = BADGE.EMPID INNER JOIN UDFEMP ON UDFEMP.ID = EMP.ID INNER JOIN DEPT on UDFEMP.DEPT = DEPT.ID INNER JOIN BADGSTAT ON BADGE.STATUS = BADGSTAT.ID INNER JOIN MMOBJS ON MMOBJS.EMPID = BADGE.EMPID where EMP.SSNO = @SSNO", connections)
cmd.Parameters.AddWithValue("@SSNO", DataGridView1.CurrentRow.Cells(0).Value)
Dim dr As SqlDataReader = cmd.ExecuteReader(CommandBehavior.SequentialAccess)
'dr.Read()
If dr.HasRows Then
While dr.Read
Dim b(dr.GetBytes(PictureCol, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte
dr.GetBytes(PictureCol, 0, b, 0, b.Length)
Dim fs As New System.IO.FileStream(DestFilePath, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
fs.Write(b, 0, b.Length)
fs.Close()
End While
End If
dr.Close()
connections.Close() ' close connections
End Sub
Если же выделить весь датагрид стразу (все строки мышкой) и нажать кнопку - получаю ошибку: System.IO.IOException: "Процесс не может получить доступ к файлу "C:\Users\Admin\source\repos\LenelDataBrowser\LenelDataBrowser\bin\Debug\Images\ название.jpg", так как этот файл используется другим процессом." Создается один файл с фото и все, дальше перебор и сохранение не идут.
Подскажите ошибку в коде пожалуйста. Как переписать правильно?