(28-09-19, 08:48 PM)asemshahen5 كتب : محتاج التعديل على الكود backgroundworker mysql progressbar

[مشروع] مثال للعمل مع الـBackgroundWorker

(01-10-19, 05:21 AM)asemshahen5 كتب :

PHP كود :

   Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        For Each row As DataRow In dtEmployee_Table.Tables(0).Rows
            DataGridView1.Rows.Add(row.ItemArray)
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Control.CheckForIllegalCrossThreadCalls = False
        dtEmployee_Table.Clear()
        Dim connSQL = "Data Source=(Local);Initial Catalog=ImportFromExcel;Integrated Security=True"
        Dim da As New SqlDataAdapter("select * from Full_Tree_Account order by AccountID ", connSQL)
        da.Fill(dtEmployee_Table)
        DataGridView1.ColumnCount = dtEmployee_Table.Tables(0).Columns.Count
        Dim daEM As New SqlDataAdapter("select * from Empty_Tree_Account order by AccountID ", connSQL)
        Dim dtEM As New DataTable
        daEM.Fill(dtEM)
        ComboBox1.DataSource = dtEM
        ComboBox1.DisplayMember = "AccountNameAR"
        With DataGridView1
            .RowsDefaultCellStyle.SelectionBackColor = Color.BlueViolet
            .RowsDefaultCellStyle.SelectionForeColor = Color.White
            .ColumnHeadersDefaultCellStyle.BackColor = Color.SkyBlue
            .DefaultCellStyle.WrapMode = DataGridViewTriState.True
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
            .DefaultCellStyle.Font = New Font("Times New Roman", 12, FontStyle.Bold)
            .ColumnHeadersDefaultCellStyle.Font = New Font("Times New Roman", 12, FontStyle.Bold)
            .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(0).DefaultCellStyle.BackColor = Color.Azure
            .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(1).Width = 354
            .Columns(1).HeaderText = "إسم الموظف"

            .Columns(2).Width = 354
            .Columns(2).HeaderText = "الوظـيـفـه"
        End With

        ComboBox1.Text = ""
        If Not BackgroundWorker1.IsBusy Then
            BackgroundWorker1.RunWorkerAsync()
        End If
    End Sub 


فقط غيير الاستعلام لاسماء جدولك و اعمدتك .

(01-10-19, 09:23 PM)asemshahen5 كتب : استبدل هذا :

PHP كود :

     Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        For Each row As DataRow In dtEmployee_Table.Tables(0).Rows
            DataGridView1.Rows.Add(row.ItemArray)
        Next
      End Sub 


بهذا :

PHP كود :

        Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
          DataGridView1.Rows.Clear()
          For Each row As DataRow In dtEmployee_Table.Tables(0).Rows
              DataGridView1.Rows.Add(row.ItemArray)
          Next
        End Sub 


يعني أضف هذا السطر قبل تعبئة الجدول :

PHP كود :

DataGridView1.Rows.Clear() 


(01-10-19, 10:32 PM)asemshahen5 كتب : راجع هذا المقال بخصوص البروغراس بار

بخصوص السؤال الاخير الافضل وضع BackgroundWorker لكل عملية .

لكنك تستطيع استخدامها لاكثر من عملية و إعادة تخصيص البروغراس بار في كل عملية حيث الماكس الخاص به يكون عدد السجلات الموجودة في الداتا تابيل او الداتا سيت كما في المقال الذي في الاعلى .