تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] انبثاق قائمة البحث المطابق خلال عملية البحث
#1
Star 
السلام عليكم احبتي في الله
اريد طريقة فعالة انني حين اقوم بكتابة اسم في تكسبوكس 
تنبثق لي قائمة تظهر كل محتوى قاعدة البيانات المشابهة لنفس الاسم المكتوب وحين الضغط على النتيجة المنبثقة تظهر لي جميع محتويات الفرد في نفس التكس بوكس الاخرى
Angel  الحياة فترة اختبار , إما أن تكون او لاتكون  Rolleyes  
لن امل من البحث  ولن امل من السؤال
[b]رواد المعلوميات[/b]
الرد
تم الشكر بواسطة: محمد اسماعيل , ابراهيم ايبو
#2
(23-08-19, 01:55 AM)الرائد كتب : السلام عليكم احبتي في الله
اريد طريقة فعالة انني حين اقوم بكتابة اسم في تكسبوكس 
تنبثق لي قائمة تظهر كل محتوى قاعدة البيانات المشابهة لنفس الاسم المكتوب وحين الضغط على النتيجة المنبثقة تظهر لي جميع محتويات الفرد في نفس التكس بوكس الاخرى

تقدر تستخدم الطريقة دية


كود :
  Dim MySource As New AutoCompleteStringCollection()
       Using sda As OleDbDataAdapter = New OleDbDataAdapter("الاستعلام لاختيار ", con)
           con.Open()
           Dim dt As DataTable = New DataTable()
           sda.Fill(dt)
           For Each row As DataRow In dt.Rows
               MySource.Add((row("اسم العمود").ToString))
           Next
       اسم التيكست ' With TEXT
               .AutoCompleteCustomSource = MySource
               .AutoCompleteMode = AutoCompleteMode.SuggestAppend
               .AutoCompleteSource = AutoCompleteSource.CustomSource
           End With
           If con.State = ConnectionState.Open Then
               con.Close()
           End If
       End Using
الرد
#3
(23-08-19, 04:00 AM)محمد اسماعيل كتب :
(23-08-19, 01:55 AM)الرائد كتب : السلام عليكم احبتي في الله
اريد طريقة فعالة انني حين اقوم بكتابة اسم في تكسبوكس 
تنبثق لي قائمة تظهر كل محتوى قاعدة البيانات المشابهة لنفس الاسم المكتوب وحين الضغط على النتيجة المنبثقة تظهر لي جميع محتويات الفرد في نفس التكس بوكس الاخرى

تقدر تستخدم الطريقة دية


كود :
  Dim MySource As New AutoCompleteStringCollection()
       Using sda As OleDbDataAdapter = New OleDbDataAdapter("الاستعلام لاختيار ", con)
           con.Open()
           Dim dt As DataTable = New DataTable()
           sda.Fill(dt)
           For Each row As DataRow In dt.Rows
               MySource.Add((row("اسم العمود").ToString))
           Next
       اسم التيكست ' With TEXT
               .AutoCompleteCustomSource = MySource
               .AutoCompleteMode = AutoCompleteMode.SuggestAppend
               .AutoCompleteSource = AutoCompleteSource.CustomSource
           End With
           If con.State = ConnectionState.Open Then
               con.Close()
           End If
       End Using
شكراا لك  .. هل توجد طريقة أخرى
Angel  الحياة فترة اختبار , إما أن تكون او لاتكون  Rolleyes  
لن امل من البحث  ولن امل من السؤال
[b]رواد المعلوميات[/b]
الرد



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم