Private Sub tmrPrfrmDBLd_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrPrfrmDBLd.Tick tmrPrfrmDBLd.Enabled = False bgwPrfrmDBLd.RunWorkerAsync(2000) tmrPrfrmDBLd.Enabled = True End Sub Private Sub bgwPrfrmDBLd_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgwPrfrmDBLd.DoWork Try Dim sqlSelNewIss As String = "select IssueID from routTo where visible = 'True' and currownr = " & empID.ToString Dim DataSt As New DataSet DataSt = DataStore.GetDataset(sqlSelNewIss, sqlConnStr) For Each row As DataRow In DataSt.Tables(0).Rows Next 'Doing some task Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub bgwPrfrmDBLd_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgwPrfrmDBLd.ProgressChanged System.Threading.Thread.Sleep(15000) End Sub Private Sub bgwPrfrmDBLd_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgwPrfrmDBLd.RunWorkerCompleted End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)