منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - انبثاق قائمة البحث المطابق خلال عملية البحث

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

(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

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