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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عرض النتائج في كومبو (/showthread.php?tid=27306)

عرض النتائج في كومبو - ahmadpal - 06-11-18

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
احتاج كود لعرض عناوين الجداول  جميعها داخل كومبو بوكس
فمثلا لدي قاعدة بيانات من نوع اكسس وتحتوي على اربع جداول 
الجدول الاول باسم personal_information ويحتوي على التالي
الاسم الشخصي و العنوان و رقم الهاتف و تاريخ الميلاد ...الخ
والجدول الثاني يحتوي على مجموعه عناوين وباقي الجداول ايضا
اريد ان يظهر داخل كومبو بكس عناوين الحقول وليس المعلومات التي تم تخزينها لجميع الجداول
وشكرا

RE: عرض النتائج في كومبو - Rabeea Qbaha - 06-11-18

PHP كود :
   Private Function GetColumnNamesInTable(ByVal connectionString As String, ByVal tableName As String) As List(Of String)
        Dim connection As OleDbConnection = New OleDbConnection(connectionString)
        Dim restrictions As String() = New String() {Nothing, Nothing, tableName, Nothing}
        connection.Open()
        Dim dataTable As DataTable = connection.GetSchema("Columns", restrictions)
        connection.Close()
        Dim returnList As List(Of String) = New List(Of String)
        For Each dataRow As DataRow In dataTable.Rows
            returnList.Add(dataRow("Column_Name"))
        Next
        Return returnList

    End Function 

PHP كود :
       For i As Integer = 0 To GetColumnNamesInTable("connection ", "table name").Count - 1
            ComboBox1.Items.Add(i)
        Next 


RE: عرض النتائج في كومبو - elgokr - 06-11-18

وعليكم السلام ورحمة الله وبركاته

خلينى اسهل الامر عليك
وابسط الامر تماماً

الان تخيل انك تعمل استعلام لاى جدول مطلوب

والاستعلام ده تم ربطه بـ DT واللى هو عبارة عن
كود :
       Dim dt As New DataTable

هنا سيتم بدل عرض بيانات محتوى الجدول سيتم عرض اسماء الاعمدة فقط 
ويتم ذلك من خلال الكود التالى
كود :
       For Each Dcmn As DataColumn In dt.Columns
           ComboBox1.Items.Add(Dcmn.ColumnName)
       Next

ويمكنك ايضاً ان تجعلها بهذه الطريقة
كود :
       For ii As Integer = 0 To dt.Columns.Count - 1
           ComboBox1.Items.Add(dt.Columns(ii).ColumnName)
       Next

تحياتى لك
وتمنياتى لك التوفيق


RE: عرض النتائج في كومبو - ahmadpal - 07-11-18

شكرا على الردود الرائعة وبارك الله بكم وجازاكم كل خير