منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] سؤال : الاستخدام الصحيح ل BackgroundWorker او Threading
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] سؤال : الاستخدام الصحيح ل BackgroundWorker او Threading
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة : 19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
#1
04-10-17, 04:33 PM
السلام عليكم ورحمة الله


اسفسر عن الطريقه الصحيحه في التعامل مع  ل BackgroundWorker او Threading

عندي كود شغال تمام بس المشكله عند عمل الكود يبحث في قاعدة البيانات واذا القاعدة كبيره يعلق البرنامج ويتاخر

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

الكود هذا هو  

كود :
  Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
       Dim com As String = String.Format("Select PFX From DB Where PFX='{0}' and Ba = '" & ban.Text & "'", Trim(PFX.Text))
       Dim ds = New DataSet
       Dim da = New SQLiteDataAdapter(com, con)
       da.fill(ds)
       If (ds.Tables(0).Rows.Count > 0) Then
           Multi.Text = PFX.Text

       Else
           Multi.Text = PFX.Text
           Multi.BackColor = SystemColors.Info

       End If



       If contestnx = "All Asian" And Continentx = "AS" and WORK.Text = "AS" And ban.Text = "160M" Then
           Points.Text = "3"

       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "AS" And ban.Text = "80M" Or ban.Text = "10M" Then
           Points.Text = "2"



       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "160M" Then
           Points.Text = "9"


       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "80M" Or ban.Text = "10M" Then
           Points.Text = "6"

       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "40M" or ban.Text = "20M" Or ban.Text = "15M" Then
           Points.Text = "3"


       ElseIf contestnx = "All Asiant" And Continentx = "NA" Or Continentx = "SA" Or Continentx = "EU" Or Continentx = "OC" And WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" Or WORK.Text = "NA" Then
           Points.Text = "0"


       ElseIf contestnx = "All Asiant" And WORKinfo.PFX.Text = PFXX Then
           Points.Text = "0"
       End If



بارك الله فيكم وجزاكم الف خير
البحث
الرد }}}
تم الشكر بواسطة:
Rabeea Qbaha غير متصل
مراقب منتدى
المشاركات : 669
المواضيع 88
الإنتساب : Aug 2016
السمعة : 97
الشكر: 798
تم شكره 1154 مرات في 488 مشاركات
#2
04-10-17, 09:56 PM
(04-10-17, 04:33 PM)dubai.eig كتب : السلام عليكم ورحمة الله


اسفسر عن الطريقه الصحيحه في التعامل مع  ل BackgroundWorker او Threading

عندي كود شغال تمام بس المشكله عند عمل الكود يبحث في قاعدة البيانات واذا القاعدة كبيره يعلق البرنامج ويتاخر

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

الكود هذا هو  

كود :
  Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
       Dim com As String = String.Format("Select PFX From DB Where PFX='{0}' and Ba = '" & ban.Text & "'", Trim(PFX.Text))
       Dim ds = New DataSet
       Dim da = New SQLiteDataAdapter(com, con)
       da.fill(ds)
       If (ds.Tables(0).Rows.Count > 0) Then
           Multi.Text = PFX.Text

       Else
           Multi.Text = PFX.Text
           Multi.BackColor = SystemColors.Info

       End If



       If contestnx = "All Asian" And Continentx = "AS" and WORK.Text = "AS" And ban.Text = "160M" Then
           Points.Text = "3"

       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "AS" And ban.Text = "80M" Or ban.Text = "10M" Then
           Points.Text = "2"



       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "160M" Then
           Points.Text = "9"


       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "80M" Or ban.Text = "10M" Then
           Points.Text = "6"

       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "40M" or ban.Text = "20M" Or ban.Text = "15M" Then
           Points.Text = "3"


       ElseIf contestnx = "All Asiant" And Continentx = "NA" Or Continentx = "SA" Or Continentx = "EU" Or Continentx = "OC" And WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" Or WORK.Text = "NA" Then
           Points.Text = "0"


       ElseIf contestnx = "All Asiant" And WORKinfo.PFX.Text = PFXX Then
           Points.Text = "0"
       End If



بارك الله فيكم وجزاكم الف خير

قم باضافه backgroundworker الى المشروع

كود :
   Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
       Dim com As String = String.Format("Select PFX From DB Where PFX='{0}' and Ba = '" & ban.Text & "'", Trim(PFX.Text))
       Dim ds = New DataSet
       Dim da = New SQLiteDataAdapter(com, con)
       da.fill(ds)
       If (ds.Tables(0).Rows.Count > 0) Then
           Multi.Text = PFX.Text

       Else
           Multi.Text = PFX.Text
           Multi.BackColor = SystemColors.Info

       End If



       If contestnx = "All Asian" And Continentx = "AS" And WORK.Text = "AS" And ban.Text = "160M" Then
           Points.Text = "3"

       ElseIf contestnx = "All Asiant" And Continentx = "AS" And WORK.Text = "AS" And ban.Text = "80M" Or ban.Text = "10M" Then
           Points.Text = "2"



       ElseIf contestnx = "All Asiant" And Continentx = "AS" And WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "160M" Then
           Points.Text = "9"


       ElseIf contestnx = "All Asiant" And Continentx = "AS" And WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "80M" Or ban.Text = "10M" Then
           Points.Text = "6"

       ElseIf contestnx = "All Asiant" And Continentx = "AS" And WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "40M" Or ban.Text = "20M" Or ban.Text = "15M" Then
           Points.Text = "3"


       ElseIf contestnx = "All Asiant" And Continentx = "NA" Or Continentx = "SA" Or Continentx = "EU" Or Continentx = "OC" And WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" Or WORK.Text = "NA" Then
           Points.Text = "0"


       ElseIf contestnx = "All Asiant" And WORKinfo.PFX.Text = PFXX Then
           Points.Text = "0"

   End Sub
و في كود ال button استخدم الكود الاتي لتشغيل البحث 
كود :
           BackgroundWorker1.RunWorkerAsync

تستطيع ايضا وضع صوره GIF تدل على ان عمليه البحث جاريه 
اة مجرد كتابه عن طريق label 
اذا اردت فعل ذلك قم بعرض الصوره او النص عند بدء العمليه 
و قم بأخفاءها عند انتهاء عمل البحث في backgroundworker في الكود الاتي :

كود :
   Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
label1.Visible =False   
   End Sub


البحث
الرد }}}
تم الشكر بواسطة: dubai.eig , asemshahen5
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة : 19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
#3
05-10-17, 12:11 AM
(04-10-17, 09:56 PM)Rabeea Qbaha كتب :
(04-10-17, 04:33 PM)dubai.eig كتب : السلام عليكم ورحمة الله


اسفسر عن الطريقه الصحيحه في التعامل مع  ل BackgroundWorker او Threading

عندي كود شغال تمام بس المشكله عند عمل الكود يبحث في قاعدة البيانات واذا القاعدة كبيره يعلق البرنامج ويتاخر

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

الكود هذا هو  

كود :
  Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
       Dim com As String = String.Format("Select PFX From DB Where PFX='{0}' and Ba = '" & ban.Text & "'", Trim(PFX.Text))
       Dim ds = New DataSet
       Dim da = New SQLiteDataAdapter(com, con)
       da.fill(ds)
       If (ds.Tables(0).Rows.Count > 0) Then
           Multi.Text = PFX.Text

       Else
           Multi.Text = PFX.Text
           Multi.BackColor = SystemColors.Info

       End If



       If contestnx = "All Asian" And Continentx = "AS" and WORK.Text = "AS" And ban.Text = "160M" Then
           Points.Text = "3"

       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "AS" And ban.Text = "80M" Or ban.Text = "10M" Then
           Points.Text = "2"



       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "160M" Then
           Points.Text = "9"


       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "80M" Or ban.Text = "10M" Then
           Points.Text = "6"

       ElseIf contestnx = "All Asiant" And Continentx = "AS" and WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "40M" or ban.Text = "20M" Or ban.Text = "15M" Then
           Points.Text = "3"


       ElseIf contestnx = "All Asiant" And Continentx = "NA" Or Continentx = "SA" Or Continentx = "EU" Or Continentx = "OC" And WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" Or WORK.Text = "NA" Then
           Points.Text = "0"


       ElseIf contestnx = "All Asiant" And WORKinfo.PFX.Text = PFXX Then
           Points.Text = "0"
       End If



بارك الله فيكم وجزاكم الف خير

قم باضافه backgroundworker الى المشروع

كود :
   Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
       Dim com As String = String.Format("Select PFX From DB Where PFX='{0}' and Ba = '" & ban.Text & "'", Trim(PFX.Text))
       Dim ds = New DataSet
       Dim da = New SQLiteDataAdapter(com, con)
       da.fill(ds)
       If (ds.Tables(0).Rows.Count > 0) Then
           Multi.Text = PFX.Text

       Else
           Multi.Text = PFX.Text
           Multi.BackColor = SystemColors.Info

       End If



       If contestnx = "All Asian" And Continentx = "AS" And WORK.Text = "AS" And ban.Text = "160M" Then
           Points.Text = "3"

       ElseIf contestnx = "All Asiant" And Continentx = "AS" And WORK.Text = "AS" And ban.Text = "80M" Or ban.Text = "10M" Then
           Points.Text = "2"



       ElseIf contestnx = "All Asiant" And Continentx = "AS" And WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "160M" Then
           Points.Text = "9"


       ElseIf contestnx = "All Asiant" And Continentx = "AS" And WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "80M" Or ban.Text = "10M" Then
           Points.Text = "6"

       ElseIf contestnx = "All Asiant" And Continentx = "AS" And WORK.Text = "NA" Or WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" And ban.Text = "40M" Or ban.Text = "20M" Or ban.Text = "15M" Then
           Points.Text = "3"


       ElseIf contestnx = "All Asiant" And Continentx = "NA" Or Continentx = "SA" Or Continentx = "EU" Or Continentx = "OC" And WORK.Text = "SA" Or WORK.Text = "EU" Or WORK.Text = "OC" Or WORK.Text = "NA" Then
           Points.Text = "0"


       ElseIf contestnx = "All Asiant" And WORKinfo.PFX.Text = PFXX Then
           Points.Text = "0"

   End Sub
و في كود ال button استخدم الكود الاتي لتشغيل البحث 
كود :
           BackgroundWorker1.RunWorkerAsync

تستطيع ايضا وضع صوره GIF تدل على ان عمليه البحث جاريه 
اة مجرد كتابه عن طريق label 
اذا اردت فعل ذلك قم بعرض الصوره او النص عند بدء العمليه 
و قم بأخفاءها عند انتهاء عمل البحث في backgroundworker في الكود الاتي :

كود :
   Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
label1.Visible =False   
   End Sub





شكرا على الرد

بس غريبه ان الكود ما اشتغل

عندما احط الكود في ال button   بدون backgroundworker   يكون شغال تمام

بس عندما احط الكود في ال backgroundworker   لا يعمل


كذا الكود يكون شغال تمام
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
      Dim com As String = String.Format("Select PFX From DB Where PFX='{0}' and Ba = '" & ban.Text & "'", Trim(PFX.Text))
      Dim ds = New DataSet
      Dim da = New SQLiteDataAdapter(com, con)
      da.fill(ds)
      If (ds.Tables(0).Rows.Count > 0) Then
          Multi.Text = PFX.Text

      Else
          Multi.Text = PFX.Text
          Multi.BackColor = SystemColors.Info

      End If




   End Sub




بس اذا حطيته في BackgroundWorker1_DoWork  لا يعمل والا يطلع لي رساله غلط 

كود :
 Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
         Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
      Dim com As String = String.Format("Select PFX From DB Where PFX='{0}' and Ba = '" & ban.Text & "'", Trim(PFX.Text))
      Dim ds = New DataSet
      Dim da = New SQLiteDataAdapter(com, con)
      da.fill(ds)
      If (ds.Tables(0).Rows.Count > 0) Then
          Multi.Text = PFX.Text

      Else
          Multi.Text = PFX.Text
          Multi.BackColor = SystemColors.Info

      End If

  End Sub
      Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
Label14.Visible =False  
  End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       BackgroundWorker1.RunWorkerAsync
   End Sub



شكرا
البحث
الرد }}}
تم الشكر بواسطة:
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة : 19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
#4
05-10-17, 12:22 AM
هل ال BackgroundWorker   لا يعمل مع SQLite  ؟ 

غريبه
البحث
الرد }}}
تم الشكر بواسطة:
a.ahmed غير متصل
عضو مبدع
المشاركات : 176
المواضيع 1
الإنتساب : Oct 2017
السمعة : 51
الشكر: 0
تم شكره 267 مرات في 175 مشاركات
#5
05-10-17, 12:24 AM
PHP كود :
Dim cmd As New SQLiteCommand("SELECT COUNT(id) FROM [DB] WHERE [PFX]=@param1 AND [Ba]=@param2", con)
cmd.Parameters.AddWithValue("@param1", Trim(PFX.Text))
cmd.Parameters.AddWithValue("@param2", ban.Text)
If con.State <> ConnectionState.Open Then con.Open()
If cmd.ExecuteScalar > 0 Then
    Multi.Text = PFX.Text
    Multi.BackColor = Nothing
Else
    Multi.Text = PFX.Text
    Multi.BackColor = SystemColors.Info
End If
con.Close() 
البحث
الرد }}}
تم الشكر بواسطة: dubai.eig
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة : 19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
#6
05-10-17, 12:41 AM
(05-10-17, 12:24 AM)a.ahmed كتب :
PHP كود :
Dim cmd As New SQLiteCommand("SELECT COUNT(id) FROM [DB] WHERE [PFX]=@param1 AND [Ba]=@param2", con)
cmd.Parameters.AddWithValue("@param1", Trim(PFX.Text))
cmd.Parameters.AddWithValue("@param2", ban.Text)
If con.State <> ConnectionState.Open Then con.Open()
If cmd.ExecuteScalar > 0 Then
    Multi.Text = PFX.Text
    Multi.BackColor = Nothing
Else
    Multi.Text = PFX.Text
    Multi.BackColor = SystemColors.Info
End If
con.Close() 

شكرا عزيزي

بس نفس المشكله

 في ال button  شغال تمام 

وفي ال backgroundworker    غير شغال

غريبه
البحث
الرد }}}
تم الشكر بواسطة:
a.ahmed غير متصل
عضو مبدع
المشاركات : 176
المواضيع 1
الإنتساب : Oct 2017
السمعة : 51
الشكر: 0
تم شكره 267 مرات في 175 مشاركات
#7
05-10-17, 12:51 AM
PHP كود :
Private con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Button1.Enabled = False
    bg1.RunWorkerAsync()
End Sub

Private WithEvents bg1 As New System.ComponentModel.BackgroundWorker
Private Sub bg1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bg1.DoWork
    Dim cmd As New SQLiteCommand("SELECT COUNT(id) FROM [DB] WHERE [PFX]=@param1 AND [Ba]=@param2", con)
    cmd.Parameters.AddWithValue("@param1", Trim(PFX.Text))
    cmd.Parameters.AddWithValue("@param2", ban.Text)
    If con.State <> ConnectionState.Open Then con.Open()
    If cmd.ExecuteScalar > 0 Then
        Multi.Invoke(Sub() Multi.Text = PFX.Text)
        Multi.BackColor = Nothing
    Else
        Multi.Text = PFX.Text
        Multi.BackColor = SystemColors.Info
    End If
    con.Close()
    Button1.Invoke(Sub() Button1.Enabled = True)
End Sub 
البحث
الرد }}}
تم الشكر بواسطة: dubai.eig , dubai.eig
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة : 19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
#8
05-10-17, 08:35 AM (آخر تعديل لهذه المشاركة : 05-10-17, 09:05 AM {2} بواسطة dubai.eig.)
(05-10-17, 12:51 AM)a.ahmed كتب :
PHP كود :
Private con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Button1.Enabled = False
    bg1.RunWorkerAsync()
End Sub

Private WithEvents bg1 As New System.ComponentModel.BackgroundWorker
Private Sub bg1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bg1.DoWork
    Dim cmd As New SQLiteCommand("SELECT COUNT(id) FROM [DB] WHERE [PFX]=@param1 AND [Ba]=@param2", con)
    cmd.Parameters.AddWithValue("@param1", Trim(PFX.Text))
    cmd.Parameters.AddWithValue("@param2", ban.Text)
    If con.State <> ConnectionState.Open Then con.Open()
    If cmd.ExecuteScalar > 0 Then
        Multi.Invoke(Sub() Multi.Text = PFX.Text)
        Multi.BackColor = Nothing
    Else
        Multi.Text = PFX.Text
        Multi.BackColor = SystemColors.Info
    End If
    con.Close()
    Button1.Invoke(Sub() Button1.Enabled = True)
End Sub 


تسلم تعبتك معاي 

نفس المشكله 

عندما اضغط على Button1_Click

ما يعطيني الناتج فقط يشغل لي امر تغيير اللون  Multi.BackColor = SystemColors.Info

اما الناتج الثاني ما يطلع 
 Multi.Text = PFX.Text

احترت في الموضوع 

للعلم جربة كود ثاني في ال BackgroundWorker 

واشتغل تمام  




هذا الكود

كود :
       conXC.Close()
       Try
           conXC.Open()
           Dim cmd As New SQLiteCommand("select * from DBqsos", conXC)
           Dim rd As SQLiteDataReader
           rd = cmd.ExecuteReader
           While rd.Read
               ComboBox2.Items.Add(rd(2))
           End While
           conXC.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
           conXC.Close()
       End Try
       conXC.Close()
البحث
الرد }}}
تم الشكر بواسطة:
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة : 19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
#9
05-10-17, 11:54 AM
اخيرا اشتغل الكود 

مع البحث حصلت موضوع يتكلم عن BackgroundWorker

طلع معاي الكود كذا

كود :
Private Sub checkstatus()

  Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
      Dim com As String = String.Format("Select PFX From DB Where PFX='{0}' and Ba = '" & ban.Text & "'", Trim(PFX.Text))
      Dim ds = New DataSet
      Dim da = New SQLiteDataAdapter(com, con)
      da.fill(ds)
      If (ds.Tables(0).Rows.Count > 0) Then
          Multi.Text = PFX.Text

      Else
          Multi.Text = PFX.Text
          Multi.BackColor = SystemColors.Info

      End If

   End Sub

   Private Delegate Sub checkstatusDel()

   Private WithEvents bg1 As New System.ComponentModel.BackgroundWorker

      Private Sub bg1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bg1.DoWork
 
        Invoke(New checkstatusDel(AddressOf checkstatus))
   End Sub


واشتغل تمام

ضفت فقط 
كود :
   Private Delegate Sub checkstatusDel()


و

كود :
        Invoke(New checkstatusDel(AddressOf checkstatus))


بصراحه ما عرفت سبب  ليش ما اشتغل الكود قبل ولماذا اشتغل الان مع التغييرات الواضحه فوق
البحث
الرد }}}
تم الشكر بواسطة:
a.ahmed غير متصل
عضو مبدع
المشاركات : 176
المواضيع 1
الإنتساب : Oct 2017
السمعة : 51
الشكر: 0
تم شكره 267 مرات في 175 مشاركات
#10
05-10-17, 12:05 PM
PHP كود :
Private con As New SQLiteConnection(String.Format("Data Source= {0}\DB" & DBT & ".s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Button1.Enabled = False
    bg1.RunWorkerAsync()
End Sub

Private WithEvents bg1 As New System.ComponentModel.BackgroundWorker
Private Sub bg1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bg1.DoWork
    Dim cmd As New SQLiteCommand("SELECT COUNT(id) FROM [DB] WHERE [PFX]=@param1 AND [Ba]=@param2", con)
    cmd.Parameters.AddWithValue("@param1", Trim(PFX.Text))
    cmd.Parameters.AddWithValue("@param2", ban.Text)
    If con.State <> ConnectionState.Open Then con.Open()
    If cmd.ExecuteScalar > 0 Then
        Multi.Invoke(Sub() Multi.Text = PFX.Text)
        Multi.BackColor = Nothing
    Else
        Multi.Invoke(Sub() Multi.Text = PFX.Text)
        Multi.BackColor = SystemColors.Info
    End If
    con.Close()
    Button1.Invoke(Sub() Button1.Enabled = True)
End Sub 
البحث
الرد }}}
تم الشكر بواسطة: dubai.eig


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في حل سؤال بخصةص عرض الوقت عبدالكريم برشدان 2 98 12-04-24, 03:05 PM
آخر رد: عبدالكريم برشدان
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 262 11-02-24, 08:43 PM
آخر رد: assuhimi
Big Grin [سؤال] سؤال على السريع أبو خالد الشكري 0 186 29-01-24, 08:58 AM
آخر رد: أبو خالد الشكري
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 317 07-01-24, 12:55 AM
آخر رد: Mujahef
  سؤال فى برمجة جهاز الباركود خالد كامل1 6 483 05-01-24, 12:25 AM
آخر رد: HALIM ELEULMA
  سؤال فى عمل تقرير مفصل خالد كامل1 1 282 26-12-23, 04:30 PM
آخر رد: تركي الحلواني
  [سؤال] سؤال محمد العموري 5 374 11-12-23, 10:11 AM
آخر رد: تركي الحلواني
  سؤال في تحريك التحديد في datagrideview maher_haddaf 3 439 23-10-23, 08:27 AM
آخر رد: أبو خالد الشكري
  سؤال حول تصميم التقرير maher_haddaf 4 404 22-10-23, 07:53 PM
آخر رد: maher_haddaf
  سؤال عن تصدير فورم الى ملف pdf ابو انس 0 346 21-09-23, 10:28 PM
آخر رد: ابو انس

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم