تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف يكون الجرد اليومي و الجرد الشهري في VB.NET
#1
السلام عليكم ورحمة الله 

عندي لست فيوو1 في محتويات واسماء مثلاً 


محمد عبدالله تاريخ الاضافة 2018\05\27

كريم عبدالله تاريخ الاضافة 2018\05\30

اريد كود مثلاً تاريخ الحاسوب هو ( 2018\05\27 ) 

يضهرلي فقط التواريخ الموجودة في لست فيو 1

وكود ثاني يضهري التواريخ خلال شهر واحد يعني يضهرلي شهر ( 5 ) فقط يعني يتم البحث على تاريخ ( 2018\05 )

يعني جرد شهري يعرضلي الاسماء المضافة خلال هذا الشهر فقط 

وطبعاً الكود يشتغل على  الاشهر الباقية 

تحياتي لكم اخوتي الاعزاء
المشروع بالمرفقات


الملفات المرفقة
.rar   ListData.rar (الحجم : 79.44 ك ب / التحميلات : 38)
الرد }}
تم الشكر بواسطة:
#2
هذا هو كودك بعد التعديل 

كود :
   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
الرد }}
تم الشكر بواسطة: hqom , elgokr , sendbad100
#3
(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")
الرد }}
تم الشكر بواسطة:
#4
أضف تكست للنموذج و ليكن اسمه 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))
الرد }}
تم الشكر بواسطة: elgokr , hqom , hqom
#5
(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))
تمام بارك الله بك اخي الغالي
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عايز برنامج اصلاح ملفات الاكسس بس يكون مجاني حسن الجلب 0 639 25-01-21, 10:47 AM
آخر رد: حسن الجلب
  كيف اعرف ان المؤشر في المكان المراد ان يكون من الداتاجريد فيو بسام محمدغانم 1 972 11-02-20, 05:19 AM
آخر رد: alsalamoni
  استفسار ان شاء الله يكون بسيط اليوم السابع 3 1,847 08-01-20, 01:46 AM
آخر رد: اليوم السابع
  استفسار ان شاء الله يكون بسيط اليوم السابع 1 952 07-01-20, 07:16 PM
آخر رد: sendbad100
Exclamation [VB.NET] ارغب بنسخة من الفجول استديو لثبيتها للعميل لا تكون كبيرت الحجم ولا يكون بها اي لغات Hosam Ashraf Elwakel 1 962 01-01-20, 05:10 PM
آخر رد: asemshahen5
  اريد يكون رقم الوارد او الصادر بناء على السنة علي كعبي 9 2,142 25-12-19, 06:50 PM
آخر رد: علي كعبي
  [VB.NET] عند تفريغ نص يكون كلام باهت اسامه الهرماوي 2 961 15-09-19, 12:54 AM
آخر رد: fullas44
  سؤال حول استنساخ فورم لاستخدامه مرة اخرى او كيف يكون السؤال سعود 6 1,752 17-07-19, 01:13 AM
آخر رد: سعود
  [VB.NET] عندما يكون حقل معين في الداتا جريد فيو ممتلا يمنع التعديل khairallah 3 1,225 13-07-19, 10:24 AM
آخر رد: ابراهيم ايبو
  [VB.NET] عندما يكون حقل فارغ في داتا جريد فيو منع اضافة حقل جديد khairallah 0 1,028 12-07-19, 10:13 PM
آخر رد: khairallah

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


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