تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اخواني ارجو تعديل الكود للبحث بين تاريخين
#1
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]
الرد }}}
تم الشكر بواسطة:
#2
اخواني لدي قاعدة بيانات فيها جدول اريد ان اجمع الحقل مابين تاريخين عن طريق ادات DTPicker1 ولاكن في رسالة خطاء ما ادري اين المشكلة ارجو الاطلاع البرنامج مرفق
http://www.mediafire.com/?4ecdmcoh31vz95a
الرد }}}
تم الشكر بواسطة:
#3
الرسالة run time error 94
invalid use of null
ارجو الافادة
الرد }}}
تم الشكر بواسطة: awidan76
#4
السلام عليكم

- هذا كود زر البحث بعد التعديل :
كود :
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

- تحياتي .
الرد }}}
تم الشكر بواسطة: awidan76
#5
ما استطيع ان اقول اي شي فقط كثر الله خيرك ووفقك لما يحب ويرضا
الرد }}}
تم الشكر بواسطة: awidan76
#6
السلام عليكم ورحمة الله وبركاته 


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

Rolleyes Rolleyes Rolleyes Rolleyes


الملفات المرفقة
.rar   new database.rar (الحجم : 12.61 ك ب / التحميلات : 65)
الرد }}}
تم الشكر بواسطة:
#7
لو سمحتم بعمل برنامج وعايز كود للبحث عن طريق الحروف
يعنى او كتبت حرف ال أ يفتح مربع عرض كل ما هو فى السجل يبدأ بال أ أو اكتب ال يعطينى كل ما هو فقاعده البيانات يبدأ بال
ويتغير مع كل حرف ازوده يعمل فلتر للمربع وهكذا
ارجو الرد لأنى عطلان عليها
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , awidan76
#8
السلام عليكم
هذا مثال الاكمال التلقائي
في المرفقات

.rar   VB6_Example_Find Data By Name.rar (الحجم : 15.74 ك ب / التحميلات : 86)
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , عبد العزيز البسكري , awidan76 , rnmr
#9
تشكر ياغالي الله يحفظك ويسعدك
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن شرح الكود البسيط هذا بالتفصيل the viper 3 2,754 10-07-22, 07:48 AM
آخر رد: سعود
  مشكلة في تعديل بعد تشابه حقل البحث محمد حمد محمد سليمان 1 1,203 24-01-22, 04:45 AM
آخر رد: Taha Okla
  ممكن كود للبحث عن مجلد مع خيارات معينة القناص المحترف 2 2,855 31-05-21, 06:43 PM
آخر رد: Ahmad War
  طلب تعديل من console الى windows mmoqry 0 1,097 16-04-21, 11:11 PM
آخر رد: mmoqry
  [vb6.0] هاام الى جميع الاخوة في المنتدى ارجو المساعدة husam.aj87 2 1,404 03-03-21, 08:20 PM
آخر رد: Amir_Alzubidy
  سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ حسن الغزي 9 3,786 22-08-18, 10:48 PM
آخر رد: elgokr
  كود تعديل عمود حامد محمد 2 2,301 12-05-18, 10:00 PM
آخر رد: حامد محمد
Photo [سؤال] ارجو المساعدة تحويل الارقام في الاكتيف ريبورت حامد محمد 8 3,823 10-05-18, 04:44 AM
آخر رد: حامد محمد
  ارجو المساعدة في اوامر check بدلا من listbox1 amer2000 5 2,508 23-02-18, 11:44 PM
آخر رد: awidan76
  كود الاستعلام في قاعدة بيانات اكسس بين تاريخين محمد حمد محمد 1 2,645 18-01-18, 08:21 AM
آخر رد: awidan76

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم