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

الصفحات : 1 2

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

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

.....

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

تحديث جملة الاستعلام التالية

كود :

' الإستعلام عن أرقام جميع الموظفين

Using da As New OleDbDataAdapter("SELECT DISTINCT [IDNumber]  FROM [Msg_InformationB] WHERE [IDNumber] <> NULL", Con)

.....

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

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

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

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

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

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

هذا كود لتحويل بيانات حقل 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

الصفحات : 1 2