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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : اخواني ارجو تعديل الكود للبحث بين تاريخين (/showthread.php?tid=8452)

اخواني ارجو تعديل الكود للبحث بين تاريخين - علوش - 13-04-13

If rs.State = adStateOpen Then rs.Close

rs.Open "Select SUM(salary) as salary From tabel1 where da '" & Text2.Text & "' and '" & Text10.Text & "'", db, adOpenKeyset, adLockPessimistic

Text3.Text = rs![salary]

اخواني ارجو تعديل الكود للبحث بين تاريخين - علوش - 13-04-13

اخواني لدي قاعدة بيانات فيها جدول اريد ان اجمع الحقل مابين تاريخين عن طريق ادات DTPicker1 ولاكن في رسالة خطاء ما ادري اين المشكلة ارجو الاطلاع البرنامج مرفق
http://www.mediafire.com/?4ecdmcoh31vz95a

اخواني ارجو تعديل الكود للبحث بين تاريخين - علوش - 13-04-13

الرسالة run time error 94
invalid use of null
ارجو الافادة

اخواني ارجو تعديل الكود للبحث بين تاريخين - VB_Coder - 13-04-13

السلام عليكم

- هذا كود زر البحث بعد التعديل :
كود :
Private Sub cmdFind_Click()

Dim d1, d2 As Date

d1 = Format(Me.DTPicker1.Value, "yyyy/MM/dd")
d2 = Format(Me.DTPicker2.Value, "yyyy/MM/dd")

If rs.State = adStateOpen Then rs.Close

rs.Open "Select SUM(salary) as salary From tabel1 where da Between #" & d1 & "# and #" & d2 & "#", db, adOpenKeyset, adLockPessimistic

If rs.RecordCount > 0 Then
    If Not IsNull(rs![salary]) Then Text3.Text = rs![salary] Else Text3.Text = "0"
Else
    Text3.Text = "0"
End If
  
If rs.State = adStateOpen Then rs.Close
rs.Open "Select SUM(salary) as salary From back where da Between #" & d1 & "# and #" & d2 & "#", db, adOpenKeyset, adLockPessimistic

If rs.RecordCount > 0 Then
    If Not IsNull(rs![salary]) Then Label10.Caption = rs![salary] Else Label10.Caption = "0"
Else
    Label10.Caption = "0"
End If

If rs.State = 1 Then rs.Close
rs.Open "select * from sel where da Between #" & d1 & "# and #" & d2 & "#", db, adOpenStatic, adLockPessimistic
If rs.RecordCount <= 0 Then
MsgBox "لايوجد أصناف", vbInformation, "تنبيه"

Else
Do While Not rs.EOF
I = I + 1
grid.Rows = I + 1
         grid.TextMatrix(I, 0) = rs("na")
        grid.TextMatrix(I, 1) = rs("qe")
          grid.TextMatrix(I, 2) = rs("pr")
        grid.TextMatrix(I, 3) = rs("to")
    
            
        rs.MoveNext ' يجب ان تضيفها
       Loop


End If

End Sub

- تحياتي .

اخواني ارجو تعديل الكود للبحث بين تاريخين - علوش - 13-04-13

ما استطيع ان اقول اي شي فقط كثر الله خيرك ووفقك لما يحب ويرضا

RE: اخواني ارجو كتابة الكود للبحث بين تاريخين - sl_dl1 - 09-06-16

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


مبارك عليكم الشهر 
انا مدير معرض وعندي سيارات مستخدمة وصممت برنامج بحيث اني احسب عدد السيارات اللى انا اشتريت بين التاريخين مع الشكر للجميع 

Rolleyes Rolleyes Rolleyes Rolleyes

RE: اخواني ارجو تعديل الكود للبحث بين تاريخين - أحمد خلاف - 20-06-16

لو سمحتم بعمل برنامج وعايز كود للبحث عن طريق الحروف
يعنى او كتبت حرف ال أ يفتح مربع عرض كل ما هو فى السجل يبدأ بال أ أو اكتب ال يعطينى كل ما هو فقاعده البيانات يبدأ بال
ويتغير مع كل حرف ازوده يعمل فلتر للمربع وهكذا
ارجو الرد لأنى عطلان عليها

RE: اخواني ارجو تعديل الكود للبحث بين تاريخين - awidan76 - 14-01-18

تشكر ياغالي الله يحفظك ويسعدك