[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()