[aftfm]

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

[vbnet]

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

.....

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


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

كود :

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

.....

[aftfm]

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

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

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

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

[aftfm]

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

[aftfm]

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

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