السلام عليكم ورحمة الله
عندي لست فيوو1 في محتويات واسماء مثلاً
محمد عبدالله تاريخ الاضافة 2018\05\27
كريم عبدالله تاريخ الاضافة 2018\05\30
اريد كود مثلاً تاريخ الحاسوب هو ( 2018\05\27 )
يضهرلي فقط التواريخ الموجودة في لست فيو 1
وكود ثاني يضهري التواريخ خلال شهر واحد يعني يضهرلي شهر ( 5 ) فقط يعني يتم البحث على تاريخ ( 2018\05 )
يعني جرد شهري يعرضلي الاسماء المضافة خلال هذا الشهر فقط
وطبعاً الكود يشتغل على الاشهر الباقية
تحياتي لكم اخوتي الاعزاء
المشروع بالمرفقات
(27-05-18, 03:49 PM)mrnooo2000 كتب : [ -> ]هذا هو كودك بعد التعديل
كود :
Private Sub Retrieve2(sql As String)
'تعبئة الليست فيو2
ListView1.Items.Clear()
cmd = New OleDbCommand(sql, con)
Try
con.Open()
adapter = New OleDbDataAdapter(cmd)
adapter.Fill(dt)
For Each row As DataRow In dt.Rows
Dim id As String = "" : If Not row.IsNull(0) Then id = row(0)
Dim num As String = "" : If Not row.IsNull(1) Then num = row(1)
Dim date1 As String = "" : If Not row.IsNull(2) Then date1 = row(2)
Populate2(id, num, date1)
Next
dt.Rows.Clear()
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
con.Close()
End Try
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Retrieve2("Select * FROM Table1")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Retrieve2("Select * FROM Table1 Where data1 = #" & Today.Date & "#")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Retrieve2("Select * FROM Table1 Where Month(data1) = 5")
End Sub
طيب صديقي الكود هنا فقط على شهر الـ 5 لكن انا اريده كل شهر لو عملت جرد يظهرلي فقط الاسماء المضافة خلال الشهر الموجود في الجهاز
هذا الكود تم تحديد شهر الـ 5 صح
كود :
Retrieve2("Select * FROM Table1 Where Month(data1) = 5")
أضف تكست للنموذج و ليكن اسمه txtmonth و يتم ادحال الشهر المطلوب به
كود :
Retrieve2("Select * FROM Table1 Where Month(data1) = " & Val(txtmonth.text))
أو يمكنك ادخل الشهر عن طريق صندوق ادخال
كود :
Dim reslt As String = InputBox("الشهر المطلوب هو", "حدد الشهر", Today.Date.Month, Me.Left, Me.Top)
If reslt.Trim.Length = 0 Then Exit Sub
Retrieve2("Select * FROM Table1 Where Month(data1) = " & Val(reslt.Trim))
(27-05-18, 04:06 PM)mrnooo2000 كتب : [ -> ]أضف تكست للنموذج و ليكن اسمه txtmonth و يتم ادحال الشهر المطلوب به
كود :
Retrieve2("Select * FROM Table1 Where Month(data1) = " & Val(txtmonth.text))
أو يمكنك ادخل الشهر عن طريق صندوق ادخال
كود :
Dim reslt As String = InputBox("الشهر المطلوب هو", "حدد الشهر", Today.Date.Month, Me.Left, Me.Top)
If reslt.Trim.Length = 0 Then Exit Sub
Retrieve2("Select * FROM Table1 Where Month(data1) = " & Val(reslt.Trim))
تمام بارك الله بك اخي الغالي