منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
بطئ شديد في عملية الجمع من قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : بطئ شديد في عملية الجمع من قاعدة البيانات (/showthread.php?tid=3195)

الصفحات: 1 2

RE: بطئ شديد في عملية الجمع من قاعدة البيانات - aftfm - 16-06-14

في مثالنا السابق البحث بين تاريخين توجد مشكلة
في حالة وجود احد حقول التاريخ فارغه
تظهرا الرسالة التاريه

RE: بطئ شديد في عملية الجمع من قاعدة البيانات - vbnet - 16-06-14

(16-06-14, 07:20 PM)aftfm كتب : ...توجد مشكلة في حالة وجود احد حقول التاريخ فارغه
...

.....

يفترض بالحقل IDNumber أن يكون مطلوباً (من الخصائص في الأكسس: مطلوب=نعم)


تحديث جملة الاستعلام التالية
كود :
' الإستعلام عن أرقام جميع الموظفين
Using da As New OleDbDataAdapter("SELECT DISTINCT [IDNumber]  FROM [Msg_InformationB] WHERE [IDNumber] <> NULL", Con)

.....

RE: بطئ شديد في عملية الجمع من قاعدة البيانات - aftfm - 16-06-14

إقتباس :سيكون هناك اختلاف قد يكون بسيط لأنك استخدمت النص بدلا من التاريخ

مبدئياً سيكون البحث مثلا بطريقة (MID(LastDate,1,8 والرقم 8 عدد رموز (20140601) ولكن لماذا استخدمت النص
إذا كان الهدف إضافة الوقت فإن Date_Add يشمل الوقت أيضاً

عموماً لا شيء مستحيل طالما أن المطلب منطقي

هل تم التوصل الى نتائج

RE: بطئ شديد في عملية الجمع من قاعدة البيانات - aftfm - 22-06-14

هل من جديد في الاستعلام من حقل LastDate

RE: بطئ شديد في عملية الجمع من قاعدة البيانات - aftfm - 23-06-14

السلام عليكم ورحمة الله وبركاته

هذا كود لتحويل بيانات حقل LastDate من String الى Date

بقي كيف يتم استخدامها مع الـ Function الذي كتبه الاخ vbnet

كود :
Dim UserDat As New DataSet
        UserDat.Clear()
        Using MYDataAdapter As New OleDbDataAdapter("SELECT LastDate FROM Msg_Information", Con)
            Call MYDataAdapter.Fill(UserDat, "LastDateTable")
            For Each MYRow As DataRow In UserDat.Tables("LastDateTable").Rows
                Dim L_D As String = MYRow.Item("LastDate")
                L_D = Mid(L_D, 1, 8).Insert(6, "/").Insert(4, "/") 'insert /'s
                Dim someDate As Date = Me.DateTimePicker1.Text
                Date.TryParse(L_D, someDate) 'convert to date
                MsgBox(someDate.ToString("yyyy/MM/dd"))

            Next MYRow
        End Using