[ahmedbezia]

السلام عليكم

ان جديد معكم ومبتدئ ارجو ان تفيدوني واكون ممنون اليكم

اريد كود للبحثالت لقائي في DataGridView اي في خلية من الدتاقريد ويكون بحث تلقائي وعام 

مثلا اريد البحث في خلية رمزالمنتج من قاعدة بينات اكسس مربوطة الي فيجوال 2010

وياريت مثال صغير من ايديكم السخية

[ahmedbezia]

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

بارك الله فيك اخي علي الهتمام 
لكن اخي ان لم افهمك المضوع اريديااخي الكريم البحث من خلال الدتاقريد اي من داخل الحقل نفسو وليكن حقل الاصنف مثلا

[Rabeea Qbaha]

مرحبا اخي اذا كان قدك هو auto complete لعمود معين من قاعده البيانات 
هذا مثال يوجد فيه الطريقه ( يوجد فورم فيه ال DataGridView قم بتشغيل المشروع 
وفم بالضغط على زر new form سيظهر لك الفورم المحتوي على DataGridView .

[ahmedbezia]

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

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

[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

[ahmedbezia]

(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

تسلم حبيبي لاكن المثال مو شغال معي

---

ممكن واح يساعد auto complete
علي الدتاقريد 

[Rabeea Qbaha]

صديقي المثال شغال 100% و انا قمت بعمله قبل عده ايام لشخص هنا بالمنتدى
قم بالتعديل عليه بشكل مناسب او قم بتشغيل المثال

[ahmedbezia]

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

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

[a.ahmed]

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

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

[ahmedbezia]

(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

مشكور اخي ان جربت من قبل هد الطريقة  لاكن لاتنفع 
لان Target CPU: x86 عندي لايضه اختيارات