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

سلام وتحية للناس الطيبين

إخواني مرفق لكم تطبيقين (كمثال) راجيا التعديل فيهما

أحد  التطبيقين يقرأ جداول وحقول قاعدة بيانات Access
والتطبيق الآخر يقرأ جداول وحقول قاعدة بيانات SQL

المطلوب إضافة إلى ما سبق أريد منها قراءة نوع البيانات Data Type لكل حقل .




وتفضلوا بقبول محبتي الخالصة .

[سعود]

شوف على السريع :
1 2
اذا لم يكن المطلوب ان شاء الله اجهز مثال ان لم يسبقني احد.

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

هلا بك أستاذي
صبحك الله بالخير

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

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

[سعود]

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

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

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

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

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

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

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

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

[سعود]

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

---

مشكلة مع sqlserver لم يعمل التثبيت لا بالكود ولا بالبرنامج الخاص بادارة sqlserver

[سعود]

اضفت قاعدة جديدة عندي واضفت بعض الاعمدة فقط لاطبق الفكرة على sqlserver

انت لا تشغل المشروع المرفق وانما شاهد الاكواد فقط

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

مرحبا بك أستاذ سعود

أنا عندي تظهر النتائج ملخبطه



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

ولكن للأسف النتيجة ظهرت خاطئة ، لكن الصحيحة فقط اللي كانت Date أما البقية فهو جعلها String !

* تطبيق الأكسس نفس المشكلة بالضبط كلها يخليها String عدا حقل Date

---

عندي شك في شيء واحد :
قد يكون السبب في هذي النتيجة المختلفة التي تظهر عندي عن التنيجة التي تظهر عندك هو أنني أستخدم Visual Studio 2015
والتعديل معمول بنسخة مختلفة
لأنه يسألني في البداية إن كنت أرغب في التحويل… وأنا أوافق !
فقد يقوم بتعديل بعض الكودات عند التحويل إلى نسخة مختلفة من البيسك .
هذا والله أعلم

---

عندي شك في شيء واحد :
قد يكون السبب في هذي النتيجة المختلفة التي تظهر عندي عن التنيجة التي تظهر عندك هو أنني أستخدم Visual Studio 2015
والتعديل معمول بنسخة مختلفة
لأنه يسألني في البداية إن كنت أرغب في التحويل… وأنا أوافق !
فقد يقوم بتعديل بعض الكودات عند التحويل إلى نسخة مختلفة من البيسك .
هذا والله أعلم

[سعود]

عندي ثلاث نسخ لفيجوال استوديو
vs6.0 - vs 2010  - vs 2022
لو نتفق على نسخة فيجوال استوديو 2010  كأقدم   نسخة  اما الاحدث فالأفضل ما يتم إصداره لأنه محدث و محسن بشكل افضل.