[الرائد]

السلام عليكم احبتي في الله
اريد طريقة فعالة انني حين اقوم بكتابة اسم في تكسبوكس 
تنبثق لي قائمة تظهر كل محتوى قاعدة البيانات المشابهة لنفس الاسم المكتوب وحين الضغط على النتيجة المنبثقة تظهر لي جميع محتويات الفرد في نفس التكس بوكس الاخرى

[محمد اسماعيل]

(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

[الرائد]

(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

شكراا لك  .. هل توجد طريقة أخرى