تقييم الموضوع :
  • 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 = حقل التاريخ
غيره حسب اللي عندك
إن شاء الله يضبط معك
بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] البحث بشرطين Abdellah 14 364 13-05-17, 12:29 PM
آخر رد: Abdellah
  [vb6.0] طريقة استخلاص البحث من البحث larbihamri 13 255 06-05-17, 12:59 AM
آخر رد: Ahmed_Mansoor
  البحث بين تاريخين SQL 2008 +vb6 أبو عقيل 4 95 05-05-17, 08:57 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ارجو المساعدة باجراء البحث بين MSHFlexGrid1 و MSHFlexGrid2 بحقل واحد و إجراء عملية ح عبدالقادرعواد 6 149 27-04-17, 11:56 AM
آخر رد: عبدالقادرعواد
  الاحتفاظ بنتائج البحث Abdellah 16 461 14-03-17, 03:05 AM
آخر رد: Abdellah
  استفسار عن البحث في عدة حقول واربعه كمبوبكس alfakeehy 8 425 05-02-17, 07:39 PM
آخر رد: alfakeehy
Question [vb6.0] كيف انشي استعلام يظهر عدد نتايج البحث؟؟ Microformt 1 153 29-01-17, 09:33 PM
آخر رد: السيد الغالي
  [سؤال] النسخ واللصق لخليه فى اكسل بشرط تغير تاريخ اليوم norhan 4 203 26-01-17, 01:51 AM
آخر رد: norhan
  [vb6.0] البحث في أكثر من جدول أيمن الفخراني 3 234 22-01-17, 03:03 PM
آخر رد: أيمن الفخراني
Question [vb6.0] اين المشكلة في برنامجي المرفق لا يظهر في البحث سوى سجل واحد؟؟ Microformt 7 361 16-01-17, 10:51 PM
آخر رد: عبدالله الصافي

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


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