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

لساده الكرام

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

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

نامل من الله ثم منكم المساعدة العاجله والله يحفظكم ويرعاكم

ملفات مرفقة

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

إن شاء الله سهلت لك المهمة (للأسف لا يعمل لدي VB6 بسبب ويندوز 7)

PHP كود :

Dim sql As String
    sql = " SELECT [Account_Number], [Operation], Format([date],'yyyy / mm / dd') AS [yb1], [Statement], [Deposit], [Clouds]" & _
          "   FROM [sam2]                       " & _
          "  WHERE [Account_Number] = 3         " & _
          "    AND [Date] Between #3/1/1434#    " & _
          "                   And #3/1/1434#    "


    Set rs = db.OpenRecordset(sql, 2) 

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

استاذي العزيز : ابو رائد
السلام عليكم ورحمة وبركاته
انا اريد ان يظهر رساله لمستخدم في حالة عدم وجود التاريخ في الاستعلام ؟؟
واريد ان يكون الاستعلام سطر واحد حتى افهم كثر

ملاحظه هامه

والله يحفظكم ويرعاكم

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

تستطيع عمل الشرط كالتالي....

PHP كود :

If rs.RecordCount = 0 Then
        MsgBox "لا توجد بيانات."
        Exit Sub
    End If 

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

استاذي العزيز : ابو رائد
السلام عليكم ورحمة وبركاته
انا اريد ان يظهر رساله لمستخدم في حالة عدم وجود التاريخ في الاستعلام فقط ؟؟
هذا الكود لم ينجح
If rs.RecordCount = 0 Then
MsgBox "لا توجد بيانات."
Exit Sub
End If
والله يحفظكم ويرعاكم

هذ الكود نجح في مع الجدول فقط

إقتباس :If rs.RecordCount = 0 Then
MsgBox "áÇ ÊæÌÏ ÈíÇäÇÊ."

End If

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

الاستعلام السابق كان مبني على الاستعلام الموجود في قاعدة البيانات

لكن بناء على طلبك بالبحث عن تاريخ واحد(وليس بين تاريخين) جرب التالي

PHP كود :

Dim sql As String 
    sql = " SELECT [Account_Number], [Operation], Format([date],'yyyy / mm / dd') AS [yb1], [Statement], [Deposit], [Clouds]" & _ 
          "   FROM [sam2]                 " & _ 
          "  WHERE [Date] = #3/1/1434#    " 


    Set rs = db.OpenRecordset(sql)  

    If rs.RecordCount = 0 Then
        MsgBox "لا توجد بيانات."
        Exit Sub
    End If 

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

استاذي العزيز : ابو رائد
السلام عليكم ورحمة وبركاته
لم ينجح
تنبيه هام
يوجد برنامج صغير الحجم يمكن ان تعدل على برنامجي وعل جهازي الخاص بنا وانت قي بيتك ؟
هل تريد هذا البرنامج
والله يحفظكم ويرعاكم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

softmail8

@@أبورائد@@

softmail8

@@أبورائد@@

softmail8

softmail8

@@أبورائد@@

softmail8