[ahmadpal]

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

[Rabeea Qbaha]

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 


[elgokr]

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

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

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

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

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

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