(15-11-17, 04:08 PM)Amir_alzubidy كتب : و عليكم السلام و رحمة الله 
حياك الله اخي الكريم 
هذا مثال 

(15-11-17, 06:11 PM)Rabeea Qbaha كتب : مرحبا اخي اذا كان قدك هو auto complete لعمود معين من قاعده البيانات 
هذا مثال يوجد فيه الطريقه ( يوجد فورم فيه ال DataGridView قم بتشغيل المشروع 
وفم بالضغط على زر new form سيظهر لك الفورم المحتوي على DataGridView .

(15-11-17, 06:19 PM)ahmedbezia كتب :

(15-11-17, 06:11 PM)Rabeea Qbaha كتب : مرحبا اخي اذا كان قدك هو auto complete لعمود معين من قاعده البيانات 
هذا مثال يوجد فيه الطريقه ( يوجد فورم فيه ال DataGridView قم بتشغيل المشروع 
وفم بالضغط على زر new form سيظهر لك الفورم المحتوي على DataGridView .

مشكور اخي لم اجرب طلعلي مشكل إن الموفر 'Microsoft.ACE.OLEDB.12.0' غير مسجل على الجهاز المحلي.

(15-11-17, 07:23 PM)Rabeea Qbaha كتب :

(15-11-17, 06:19 PM)ahmedbezia كتب :

(15-11-17, 06:11 PM)Rabeea Qbaha كتب : مرحبا اخي اذا كان قدك هو auto complete لعمود معين من قاعده البيانات 
هذا مثال يوجد فيه الطريقه ( يوجد فورم فيه ال DataGridView قم بتشغيل المشروع 
وفم بالضغط على زر new form سيظهر لك الفورم المحتوي على DataGridView .

مشكور اخي لم اجرب طلعلي مشكل إن الموفر 'Microsoft.ACE.OLEDB.12.0' غير مسجل على الجهاز المحلي.

قم بالبحث في المنتدى لحل هذه المشكله فهي بيسطه

على كلن هذا هو الكود لكن ستكون الفكره اوضح في المثال :

كود :

Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
       Dim header As String = DataGridView1.Columns(0).HeaderText

       If header.Equals("PART NUMBER") Then
           Dim text As TextBox = TryCast(e.Control, TextBox)

           If text IsNot Nothing Then
               text.AutoCompleteMode = AutoCompleteMode.Suggest
               text.AutoCompleteSource = AutoCompleteSource.CustomSource

               Dim data As AutoCompleteStringCollection = New AutoCompleteStringCollection
               addData(data)
               text.AutoCompleteCustomSource = data
           End If
       End If

   End Sub
   Private Sub addData(ByVal data As AutoCompleteStringCollection)
       'فحص الاتصال بقاعدة البيانات
       If con.State = ConnectionState.Open Then
           con.Close()
       End If
       con.Open()

       Dim cmd As New OleDbCommand()
       cmd.Connection = con
       cmd.CommandText = "select part_no from price"
       Dim dr As OleDbDataReader = cmd.ExecuteReader
       While dr.Read
           data.Add(dr.Item(0))
       End While
       dr.Close()
       con.Close()
   End Sub

(15-11-17, 08:25 PM)Rabeea Qbaha كتب : صديقي المثال شغال 100% و انا قمت بعمله قبل عده ايام لشخص هنا بالمنتدى
قم بالتعديل عليه بشكل مناسب او قم بتشغيل المثال

(15-11-17, 08:41 PM)ahmedbezia كتب : إن الموفر 'Microsoft.ACE.OLEDB.12.0' غير مسجل على الجهاز المحلي.

(15-11-17, 08:50 PM)a.ahmed كتب :

(15-11-17, 08:41 PM)ahmedbezia كتب : إن الموفر 'Microsoft.ACE.OLEDB.12.0' غير مسجل على الجهاز المحلي.

< Pjoject > WindowsApplication1 Properties
< Compile > Advanced Compile Options
Target CPU: x86