تقييم الموضوع :
  • 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
ارجو الافادة
الرد }}}}
تم الشكر بواسطة:
#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

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


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

Rolleyes Rolleyes Rolleyes Rolleyes


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

.rar   VB6_Example_Find Data By Name.rar (الحجم : 15.74 ك ب / التحميلات : 10)
سأعود قريباً ان شاء الله

الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعدة في تحويل اكواد bidaya 7 119 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  تعديل على الكود لو سمحتو يامعلمين.... amer2000 8 177 01-11-16, 09:50 AM
آخر رد: amer2000
Photo [سؤال] مشاكل فى برمجة مفاتيح بحث،تعديل محمد إبراهيم على حسن 0 87 18-08-16, 07:34 PM
آخر رد: محمد إبراهيم على حسن
  [vb6.0] ارجو التعديل amer2000 2 142 08-08-16, 03:02 PM
آخر رد: amer2000
Smile ارجو المساعده العاجله منكم استايل 8 192 23-07-16, 04:53 AM
آخر رد: استايل
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 150 10-07-16, 12:26 PM
آخر رد: عمور2016
  تعديل كود تسجيل نقرات الكيبورد عبدالله الصافي 6 726 18-06-16, 12:44 PM
آخر رد: abulayth
  (تم الحل)مشكلة في الاستعلام بين تاريخين awidan76 13 1,046 06-01-16, 11:07 AM
آخر رد: Ashraf Elafify
  الرجاء مساعدتي في تعديل كود البحث بين تارخين Nader Hassan 6 1,044 29-12-15, 02:57 AM
آخر رد: awidan76
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 519 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى

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


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