В продолжение предыдущего вопроса: Сохранение фоток из базы хочется применить данную процедуру не напрямую к результатам DataGrid, а к отфильтрованным данным грида с помощью BindingSource.Filter.
Исходные данные: Есть главная форма с DataGrid, Textbox, DatatimePicker, Combobox. В DataGrid вывожу результаты основного селекта из базы, с помощью остальных компонентов делаю поиск и фильтрацию результатов.
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ConfigurationManager.RefreshSection("connectionStrings")
OpenConnection()
Dim da As New SqlDataAdapter
Dim ds As New DataSet()
Dim bs As New BindingSource()
da = New SqlDataAdapter("Select EMP.ID As 'ID Записи', badge.ID As 'Пропуск', emp.SSNO As 'Табельный №', emp.LASTNAME As 'Фамилия', emp.FIRSTNAME As 'Имя', emp.MIDNAME As 'Отчество', BADGSTAT.NAME As 'Статус Пропуска', DEPT.NAME As 'Организация', BADGE.ACTIVATE As 'Дата Активации', BADGE.DEACTIVATE 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 ORDER BY EMP.LASTNAME ASC", connections)
ds = New DataSet
da.Fill(ds, "Sbt_EMP_list")
bs = New BindingSource()
bs.DataSource = ds.Tables("Sbt_EMP_list")
DataGridView1.DataSource = bs
Dim band As DataGridViewBand = DataGridView1.Columns(10)
band.Visible = False
Dim adapter As SqlDataAdapter
Dim adapter2 As SqlDataAdapter
adapter = New SqlDataAdapter("Select BADGSTAT.NAME from BADGSTAT order by NAME", connections)
adapter2 = New SqlDataAdapter("Select DEPT.NAME from DEPT order by Name", connections)
Dim dt_tt As New DataTable
Dim dt_tt2 As New DataTable
adapter.Fill(dt_tt) 'заполняем созданную таблицу данными из запроса
adapter2.Fill(dt_tt2)
Me.cb_badgestat.Items.Clear() 'очистили комбобокс от предыдущих значений
Me.cb_deptname.Items.Clear() 'очистили комбобокс от предыдущих значений
For Each r As DataRow In dt_tt.Rows
Me.cb_badgestat.Items.Add(r(0).ToString) 'заполняем комбобокс значениями единственного столбца нашей таблички
Next
For Each r As DataRow In dt_tt2.Rows
Me.cb_deptname.Items.Add(r(0).ToString) 'заполняем комбобокс значениями единственного столбца нашей таблички
Next
connections.Close() 'close our connection
da.Dispose() ' close data adapter
pic_box.Image = My.Resources.image_no_photo
stb_panel1.Text = DataGridView1.Rows.Count
Try
'Using connection As New SqlConnection(strCN)
If ConnectionState.Open Then
stb_panel2.Text = "Подключение к: " + " " + connections.DataSource + " " + "активно."
stb_panel3.Text = "База данных: " + " " + connections.Database
'stb_panel2.Text = connections.DataSource
Else
stb_panel2.Text = "Подключение к: " + " " + connections.DataSource + " " + "закрыто."
stb_panel3.Text = "База данных: " + " " + connections.Database
End If
'End Using
Catch ex As DataException
MessageBox.Show(ex.Message)
End Try
End Sub
Далее, например фильтрую данные поиском по Фамилии в базе:
Private Sub Txt_lname_TextChanged(sender As Object, e As EventArgs) Handles txt_lname.TextChanged
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.ID As 'ID Записи', badge.ID As 'Пропуск', emp.SSNO As 'Табельный №', emp.LASTNAME As 'Фамилия', emp.FIRSTNAME As 'Имя', emp.MIDNAME As 'Отчество', BADGSTAT.NAME As 'Статус Пропуска', DEPT.NAME As 'Организация', BADGE.ACTIVATE As 'Дата Активации', BADGE.DEACTIVATE 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 ORDER BY EMP.FIRSTNAME", connections)
dt = New DataTable
da.Fill(dt)
bs = New BindingSource()
bs.DataSource = dt
DataGridView1.DataSource = bs
bs.Filter = "Фамилия LIKE '" & txt_lname.Text & "%' AND Имя LIKE '" & txt_fname.Text & "%' AND Отчество LIKE '" & txt_midname.Text & "%'"
connections.Close() ' close connections
da.Dispose() ' close data adapter
stb_panel1.Text = DataGridView1.Rows.Count
End Sub
Поиск фильтрует по Фамилии, Имени, Отчеству, Диапазону дат, Организации.
Как итог - получаю отфильтрованный BindingSource() отображенный в DataGrid. Так вот, необходимо сохранить все фотографии из базы, применительно к полученному фильтру. Не нужно каждый раз сохранять весь объем фото из базы. В прошлом примере я для пробы делал выборку в новый DataGrid на отдельно открываемой форме вообще всех записей с фото и сохранение всех фото.
Надеюсь мысль понятна ))) На качество кода не претендую, пишу в меру познаний.
stb_panel1.Text = DataGridView1.Rows.Count
) ?DataGridView1.Rows
успешно фильтруется. Вы пробовали выгрузить картинки? Насколько я понимаю, должны выгрузиться только те, которые отображаются в таблице.DataGrid
?