[سعود]

ما اظنه يعجبك المثال لو ارفعه لاني استخدمت تحميل موازي  للبيانات فقط لاخذ النوع وهذه طريقة ليست جيدة

PHP كود :

Private Sub gd()
        Dim filePath As String = Application.StartupPath & "\SubJects.accdb"
        str = "provider=microsoft.ace.oledb.12.0;data source=" & filePath
        Dim sql As String = "select * from Marks"
        Dim con As New OleDb.OleDbConnection(str)
        Dim cm As New OleDb.OleDbCommand(sql, con)
        If con.State = ConnectionState.Closed Then con.Open()
        dt2.Clear()
        dt2.Load(cm.ExecuteReader)
        If con.State = ConnectionState.Open Then con.Close()

        For i As Integer = 0 To DgvColumnsName.Rows.Count - 1
            Dim dc As DataColumn = DirectCast(dt2.Columns(i), DataColumn)
            DgvColumnsName.Rows(i).Cells(1).Value = dc.DataType.FullName
        Next
    End Sub 


مثل ماتشوف dt2  هي داتاتيبل اخرى لتطبيق الفكرة اذا استطعت فهم جمل الاستعلام اللتي موجودة بالمشروع وتعدل عليها لتؤدي المطلوب بطريقة فنية يكون احسن من هذا الاجراء.