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

السلام عليكم

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

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

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

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

كود :

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

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

كود :

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

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

mohamed haroon

سعود

عدنان الشمري

mohamed haroon

أبو عمر

mohamed haroon