البحث بين تاريخين بشرط - نسخة قابلة للطباعة

البحث بين تاريخين بشرط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : البحث بين تاريخين بشرط (/showthread.php?tid=13582)

البحث بين تاريخين بشرط - فاضل الحمود - 22-10-15

السلام عليكم

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

كود :

Adodc1.RecordSource = "select * from payes1 order by count desc"

Adodc1.CommandType = adCmdText

Adodc1.Refresh

RE: البحث بين تاريخين بشرط - احمداحمداحمد6 - 22-10-15

كود :

x=(text1.text)

y=(text2.text)

if z>=x and z<=y

then

print ok

val(text.text)

RE: البحث بين تاريخين بشرط - أبو عمر - 22-10-15

(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 = حقل التاريخ
غيره حسب اللي عندك
إن شاء الله يضبط معك
بالتوفيق

RE: البحث بين تاريخين بشرط - احمداحمداحمد6 - 22-10-15

كود :

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

RE: البحث بين تاريخين بشرط - فاضل الحمود - 23-10-15

اخي ابو عمر جزاك الله خير لقد ضبط معي الكود

اخي احمد مشكور على الكود المهم