[failasouf]

(20-02-16, 07:51 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته

الأكواد :
الإعلان عن المتغير التالي :

PHP كود :

   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MyDB.accdb;Persist Security Info=False") 


جلب أسماء الجداول من قاعدة بيانات أكسس :

PHP كود :

con.Open()

        Dim schemaTable As DataTable
        schemaTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "Table"})
        For Each r As DataRow In schemaTable.Rows
            Dim v0 As String = r.Item("Table_Name").ToString()
            DGVTable.Rows.Add(v0)
        Next

        con.Close() 


جلب الحقول لكل جدول :

PHP كود :

DGVField.Rows.Clear()

        con.Open()
        Dim SelectedTable As String = DGVTable.CurrentRow.Cells(0).Value
        Dim Rest() As String = {Nothing, Nothing, SelectedTable, Nothing}
        Dim columns As String = "Columns"
        Dim dt As DataTable = con.GetSchema(columns, Rest)
        For Each r As DataRow In dt.Rows
            Dim v0 As String = r.Item("Column_Name").ToString()
            DGVField.Rows.Add(v0)
        Next

        con.Close() 


النتيجة :










المرفق :

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

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