(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() 


النتيجة :










المرفق :

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