[dubai.eig]

السلام عليكم ورحمة الله

عندي كود يسحب الداتا من موقعي

طبعا في تاخير خفيف عند السحب وخصوصا اذا كانت المعلومات كبيره

شغلت االكود مع backgroundworker  والحمدالله شغال تمام

بس محتاج اضافه واحده وهيه

progressbar
على ان يعمل ال progressbar لغاية اكمال المعلومات

هذا الكود الاولي

كود :

   Public Sub Carga()
       Dim adapter As New MySqlDataAdapter("select * from cq_dxstation", connection)
       Dim table As New DataTable()
       adapter.Fill(table)
       ComboBox1.DataSource = table
       ComboBox1.ValueMember = "dxcallsign"
       ComboBox1.DisplayMember = "dxcallsign"
   End Sub


   Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       Carga()
   End Sub

اسحب الداتا في ال ComboBox1


وهذا الكود الثاني

كود :

   Public Sub Gettodatag()
       Dim com As String = String.Format("SELECT id,dati ,time ,mode ,band FROM cq_qso Where dxcallsign like  '{0}' and  cals like  '{1}' order by dati DESC ", Opencontest, Label10.Text)
       Dim Adpt As New MySqlDataAdapter(com, connection)
       Dim ds As New DataSet()
       Adpt.Fill(ds, "cq_qso")

       DataGridView1.DataSource = ds
       DataGridView1.DataMember = "cq_qso"
       DataGridView1.Columns(0).Visible = False
       DataGridView1.Columns(1).HeaderCell.Value = "Date"
       DataGridView1.Columns(1).Width = "100"

       DataGridView1.Columns(2).HeaderCell.Value = "UTC"
       DataGridView1.Columns(2).Width = "100"

       DataGridView1.Columns(3).HeaderCell.Value = "Mode"
       DataGridView1.Columns(3).Width = "100"

       DataGridView1.Columns(4).HeaderCell.Value = "Band"
       DataGridView1.Columns(4).Width = "100"
       DataGridView1.Columns(5).HeaderCell = New CheckHeaderCell
       Label11.Text = DataGridView1.Rows.Count - 0

   End Sub
   Private Sub BackgroundWorker2_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker2.DoWork
       Gettodatag()
   
   End Sub

بس حاولت اضبط اضافه ال progressbar  بس مع الاسف ما ضبط

جزاكم الله خير وشكرا