منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

كود :

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

Adodc1.CommandType = adCmdText

Adodc1.Refresh

كود :

x=(text1.text)

y=(text2.text)

if z>=x and z<=y

then

print ok

val(text.text)

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

كود :

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

فاضل الحمود

احمداحمداحمد6

أبو عمر

احمداحمداحمد6

فاضل الحمود