[mohamed haroon]

السلام عليكم

اود طلب المساعدة بخصوص كود يعرض كل ال columns لجدول معين فى data grid view بحيث يكون كل column فى row داخل ال data grid view

ارجو المساعدة و شكرا 

[سعود]

اذا تقصد عرض جدول بالاداة فاضبط مصدر البيانات الخاص بها على DataTable تعبئة من الجدول المطلوب.

[عدنان الشمري]

في جملة select فقط اختر *بدلا من اسماء الحقول في الجدول

[mohamed haroon]

كود :

Dim str As String = "Provider=Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=2016;Data Source=C:\Users\mohamed haroon\Desktop\db1.mdb;"

    Dim con As New OleDb.OleDbConnection(str)

dg.DataSource = Nothing
        dg.Rows.Clear()
        Dim d As New DataTable("infoma")
        Dim cm As New OleDb.OleDbCommand("", con)
        cm.Parameters.Clear()
        If con.State = ConnectionState.Closed Then con.Open()
       
        dg.ColumnCount = 2
        dg.Columns(0).Name = "details"
        dg.Columns(1).Name = "type"

        Dim name(d.Columns.Count) As String
        Dim i As Integer = 0
        For Each column As DataColumn In d.Columns
            name(i) = column.ColumnName
            i += 1
        Next

هذا هو قصدى لاكنى لا ادرى كيفية استخراج المصفوفة name فى data grid view

[أبو عمر]

انت عايز اسماء الاعمدة اللي تمثل اسماء الحقول
والا عايز القيم في السجلات ؟
dg.Columns(0).Name = "details"
dg.Columns(1).Name = "type"
هنا بيغير اسم الحقل أو العمود فقط الى details و type
يعني هيبان في الجريد اسم العمود details و type

[mohamed haroon]

شكرا لمشاركة الاخوة لقد وجدت هذا الكود و هو يعمل بنجاح

كود :

provider = "Provider=Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=2016;Data Source ="
       dataFile = "C:\Users\mohamed haroon\Desktop\db1.mdb"
       connString = provider & dataFile
       myConnection.ConnectionString = connString
       myConnection.Open()
       Try
           Dim Rest() As String = {Nothing, Nothing, "infoma", Nothing}
           Dim columns As String = "Columns"
           Dim dt As DataTable = myConnection.GetSchema(columns, Rest)
           For Each row As DataRow In dt.Rows
               dg.Rows.Add(row.Item("COLUMN_NAME").ToString)
           Next

           myConnection.Close()
       Catch ex As Exception
       End Try