(29-06-22, 03:34 AM)أبو خالد الشكري كتب : هلا بك أستاذي
صبحك الله بالخير

أرجوك أنا فقط أريد التعديل على المرفقات

أنتظرك أستاذ سعود

(29-06-22, 05:46 AM)سعود كتب :

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

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

للأسف ما عرفت أحط هذي الأكواد في التطبيقين المرفقين سابقا في هذه المشاركة  

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