29-06-22, 02:51 AM
الصفحات : 1 2
29-06-22, 02:51 AM
29-06-22, 03:20 AM
29-06-22, 03:34 AM
هلا بك أستاذي
صبحك الله بالخير
أرجوك أنا فقط أريد التعديل على المرفقات
أنتظرك أستاذ سعود
صبحك الله بالخير
أرجوك أنا فقط أريد التعديل على المرفقات
أنتظرك أستاذ سعود
29-06-22, 03:37 AM
(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 هي داتاتيبل اخرى لتطبيق الفكرة اذا استطعت فهم جمل الاستعلام اللتي موجودة بالمشروع وتعدل عليها لتؤدي المطلوب بطريقة فنية يكون احسن من هذا الاجراء.
29-06-22, 07:12 PM
(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
أنا ضاع وقتي وجهدي دون فائدة مليت ، وطفرت (كلمة أجنبية
) ، وما حصلت نتيجة ترضيني .* أكرر : أريد التعديل مباشرة في التطبيقين وليس خارجهما .
ولكم خالص الشكر والتقدير ، مع أجمل الأمنيات بقضاء ليلة سعيدة .
29-06-22, 07:42 PM
انا عدلت على المثال اللي انت رفعت اصلا و ذكرت لك اني لم اتوصل لطريقة علمية
اذا تحب تجرب الملف مرفق لاكسس والثاني هذاك بعد مانخلص الاكسس
اذا تحب تجرب الملف مرفق لاكسس والثاني هذاك بعد مانخلص الاكسس
مشكلة مع sqlserver لم يعمل التثبيت لا بالكود ولا بالبرنامج الخاص بادارة sqlserver
29-06-22, 09:04 PM
اضفت قاعدة جديدة عندي واضفت بعض الاعمدة فقط لاطبق الفكرة على sqlserver
انت لا تشغل المشروع المرفق وانما شاهد الاكواد فقط
29-06-22, 09:55 PM
مرحبا بك أستاذ سعود
أنا عندي تظهر النتائج ملخبطه
هذي قاعدة بيانات SQL جديدة حرصت فيها أن تكون الداتا تايب مختلفة لكل حرف
ولكن للأسف النتيجة ظهرت خاطئة ، لكن الصحيحة فقط اللي كانت Date أما البقية فهو جعلها String !
* تطبيق الأكسس نفس المشكلة بالضبط كلها يخليها String عدا حقل Date
عندي شك في شيء واحد :
قد يكون السبب في هذي النتيجة المختلفة التي تظهر عندي عن التنيجة التي تظهر عندك هو أنني أستخدم Visual Studio 2015
والتعديل معمول بنسخة مختلفة
لأنه يسألني في البداية إن كنت أرغب في التحويل… وأنا أوافق !
فقد يقوم بتعديل بعض الكودات عند التحويل إلى نسخة مختلفة من البيسك .
هذا والله أعلم
عندي شك في شيء واحد :
قد يكون السبب في هذي النتيجة المختلفة التي تظهر عندي عن التنيجة التي تظهر عندك هو أنني أستخدم Visual Studio 2015
والتعديل معمول بنسخة مختلفة
لأنه يسألني في البداية إن كنت أرغب في التحويل… وأنا أوافق !
فقد يقوم بتعديل بعض الكودات عند التحويل إلى نسخة مختلفة من البيسك .
هذا والله أعلم
أنا عندي تظهر النتائج ملخبطه
هذي قاعدة بيانات SQL جديدة حرصت فيها أن تكون الداتا تايب مختلفة لكل حرف
ولكن للأسف النتيجة ظهرت خاطئة ، لكن الصحيحة فقط اللي كانت Date أما البقية فهو جعلها String !
* تطبيق الأكسس نفس المشكلة بالضبط كلها يخليها String عدا حقل Date
عندي شك في شيء واحد :
قد يكون السبب في هذي النتيجة المختلفة التي تظهر عندي عن التنيجة التي تظهر عندك هو أنني أستخدم Visual Studio 2015
والتعديل معمول بنسخة مختلفة
لأنه يسألني في البداية إن كنت أرغب في التحويل… وأنا أوافق !
فقد يقوم بتعديل بعض الكودات عند التحويل إلى نسخة مختلفة من البيسك .
هذا والله أعلم
عندي شك في شيء واحد :
قد يكون السبب في هذي النتيجة المختلفة التي تظهر عندي عن التنيجة التي تظهر عندك هو أنني أستخدم Visual Studio 2015
والتعديل معمول بنسخة مختلفة
لأنه يسألني في البداية إن كنت أرغب في التحويل… وأنا أوافق !
فقد يقوم بتعديل بعض الكودات عند التحويل إلى نسخة مختلفة من البيسك .
هذا والله أعلم
29-06-22, 11:35 PM
عندي ثلاث نسخ لفيجوال استوديو
vs6.0 - vs 2010 - vs 2022
لو نتفق على نسخة فيجوال استوديو 2010 كأقدم نسخة اما الاحدث فالأفضل ما يتم إصداره لأنه محدث و محسن بشكل افضل.
vs6.0 - vs 2010 - vs 2022
لو نتفق على نسخة فيجوال استوديو 2010 كأقدم نسخة اما الاحدث فالأفضل ما يتم إصداره لأنه محدث و محسن بشكل افضل.

الصفحات : 1 2