[أبو خالد الشكري]

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

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  هي داتاتيبل اخرى لتطبيق الفكرة اذا استطعت فهم جمل الاستعلام اللتي موجودة بالمشروع وتعدل عليها لتؤدي المطلوب بطريقة فنية يكون احسن من هذا الاجراء.

مساك الله بالخير أستاذ سعود

للأسف ما عرفت أحط هذي الأكواد في التطبيقين المرفقين سابقا في هذه المشاركة  
إذا ما عليك كلافه أستاذي فأرجو منك أن تحط الأكواد كما يجب أن تكون في التطبيقين الخاصين بقاعدة Access وقاعدة SQL

أنا ضاع وقتي وجهدي دون فائدة مليت  ، وطفرت (كلمة أجنبية  ) ، وما حصلت نتيجة ترضيني .

* أكرر : أريد التعديل مباشرة في التطبيقين وليس خارجهما .

ولكم خالص الشكر والتقدير ، مع أجمل الأمنيات بقضاء ليلة سعيدة .