Как использовать фоновый рабочий при загрузке данных в DataReader
Привет, Ребята...
Кто-нибудь из вас знает, как использовать background worker при загрузке или заполнении данных из базы данных с помощью DataReader in VB.NET-что?
Пожалуйста помочь....
вот мой код для заполнения данных:
Public Sub PopulateAudit() Dim strSELECT As String = "SELECT * FROM tblsystemaudit " _ & " WHERE jdate='" & dtpDate.Text & "' " _ & " AND juser LIKE '" & txtUser.Text & "%' " _ & " AND jmachine LIKE '" & txtMachine.Text & "%' " _ & " AND jform LIKE '" & txtForm.Text & "%' " _ & " AND jaction LIKE '" & txtAction.Text & "%' " _ & " ORDER BY PK DESC" Dim DReader As New DataClassReader DReader.strSELECTSQL = strSELECT DReader.ReadData() dtgView.Rows.Clear() Dim a As Integer = 0 Do While DReader.PinoyLDataReader.Read dtgView.Rows.Add() With DReader.PinoyLDataReader dtgView.Item(0, a).Value = .Item("jdate") dtgView.Item(1, a).Value = .Item("jtime") dtgView.Item(2, a).Value = .Item("juser") dtgView.Item(3, a).Value = .Item("jmachine") dtgView.Item(4, a).Value = .Item("jform") dtgView.Item(5, a).Value = .Item("jaction") dtgView.Item(6, a).Value = .Item("jreference") dtgView.Item(7, a).Value = .Item("jcomments") End With a = a + 1 Loop DReader.PinoyLDataReader.Close() End Sub
.теперь вы можете сказать мне, как использовать фоновый рабочий здесь, где его разместить?..
пожалуйста, помогите мне...
заранее спасибо, ребята..