[larbihamri]

اذا اخي elgokr
كيف يمكنني ان اعمل للفترة اثناء الكتابة في الكومبوبكس و تحقيق عملية الاكمال التلقائي بنجاح بدون المعالج ؟
على ما اظن ان العملية تنجح في الوضع المتصل و ليس المنفصل و الله اعلم ، لاني جربت هذا الكود لكن لم ينجح معي 
ربما ان الكود الذي جربته ليس صحيح

كود :

 Dim CON As New OleDbConnection
       CON.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb"
       CON.Open()
       Dim DT As New DataTable
       Dim DS As New DataSet
       DS.Tables.Add(DT)
       Dim DA As New OleDbDataAdapter("SELECT * FROM intitulé where fami like '" & Me.ComboBox1.Text.Trim & "'", CON)
       DA.Fill(DT)
       Dim R As DataRow
       ComboBox1.Items.Clear()
       For Each R In DT.Rows
           ComboBox1.Items.Add(R.Item(1).ToString)

       Next
       Me.ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest
       Me.ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
       CON.Close()

ولقد جربت الكود التالي بالوضع المتصل 

كود :

If con.State = ConnectionState.Open Then
           con.Close()
     
       Dim strquery As String = "select * from intitulé where fam like " & Me.ComboBox1.Text.Trim

       Dim cmd As New OleDbCommand(strquery, con)
       con.Open()
       Dim dr As OleDbDataReader = cmd.ExecuteReader
       dr.Read()
       ComboBox1.Items.Add(dr(1).ToString)
 End If

  

اما بخصوص مواصفات الجهاز اخي الفاضل فأنا املك جهاز من نوع DELL و ذو معالج i5 و رام بسعة 4 جيغا