[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.Invoke(Sub() Multi.Text = PFX.Text)
        Multi.BackColor = SystemColors.Info
    End If
    con.Close()
    Button1.Invoke(Sub() Button1.Enabled = True)
End Sub