تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث بين تاريخين بشرط
#1
السلام عليكم 

اريد التعديل على هذا الكود بحيث يتم البحث بين تاريخين 

كود :
Adodc1.RecordSource = "select * from payes1 order by count desc"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
الرد }}}
تم الشكر بواسطة: awidan76
#2
كود :
x=(text1.text)
y=(text2.text)
if z>=x and z<=y
then
print ok

val(text.text)
الرد }}}
تم الشكر بواسطة: awidan76
#3
(22-10-15, 01:48 PM)فاضل الحمود كتب : السلام عليكم 

اريد التعديل على هذا الكود بحيث يتم البحث بين تاريخين 

كود :
Adodc1.RecordSource = "select * from payes1 order by count desc"
Adodc1.CommandType = adCmdText
Adodc1.Refresh

وعليكم السلام ورحمة الله وبركاته
PHP كود :
Adodc1.RecordSource "select * from payes1 where FieldData between #" Text1.text "# and #" text2.text "#  order by count desc"
Adodc1.CommandType adCmdText
Adodc1
.Refresh 
Fieldate = حقل التاريخ
غيره حسب اللي عندك
إن شاء الله يضبط معك
بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Microformt , awidan76
#4
كود :
Private Sub Command1_Click()

z = Len(Text1.Text)
For i = 1 To z
s(i) = Text1.Text
Print s(i)
Next i
For i = 1 To z
Print s(i)
Next i
z1 = Len(Text2.Text)
For i = 1 To z1
a(i) = Text2.Text
Print a(i)
Next i
For i = 1 To z1
Print a(i)
Next i


End Sub

Private Sub Command2_Click()

If s(4) >= a(4) Then
Print "ok"
Else: Print "not ok"
End If

End Sub

Private Sub Text1_Change()

z = Len(Text1.Text)
For i = 1 To z
s(i) = Text1.Text
Next i

End Sub

Private Sub Text2_Change()

z1 = Len(Text2.Text)
For i = 1 To z1
a(i) = Text2.Text
Next i

End Sub
الرد }}}
تم الشكر بواسطة: awidan76
#5
اخي ابو عمر جزاك الله خير لقد ضبط معي الكود

اخي احمد مشكور على الكود المهم
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , awidan76



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


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