21-03-19, 11:04 AM
السلام عليكم ورحمة الله
عندي كود يسحب الداتا من موقعي
طبعا في تاخير خفيف عند السحب وخصوصا اذا كانت المعلومات كبيره
شغلت االكود مع backgroundworker والحمدالله شغال تمام
بس محتاج اضافه واحده وهيه
progressbar
على ان يعمل ال progressbar لغاية اكمال المعلومات
هذا الكود الاولي
اسحب الداتا في ال ComboBox1
وهذا الكود الثاني
بس حاولت اضبط اضافه ال progressbar بس مع الاسف ما ضبط
جزاكم الله خير وشكرا
عندي كود يسحب الداتا من موقعي
طبعا في تاخير خفيف عند السحب وخصوصا اذا كانت المعلومات كبيره
شغلت االكود مع 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 بس مع الاسف ما ضبط
جزاكم الله خير وشكرا