منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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 

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

خلينى اسهل الامر عليك

وابسط الامر تماماً

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

والاستعلام ده تم ربطه بـ 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

تحياتى لك

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ahmadpal

Rabeea Qbaha

elgokr

ahmadpal