تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث بتواريخ مختلفة
#1
السلام عليكم.اخواني هذا الملف للأستاذ ابراهيم ايبو الله يبارك فيه
اضفت حقل بقاعدة البيانات اكسس اسمه DateAffaire
لو سمحتم اريد البحث بالبوتون يلي اضفتهم
سجلات منتهية لما اضغط تظهر على الداتاجريد كل السجلات يلي هم قبل تاريخ اليوم الحالي و فات وقتهم
سجلات اليوم الحالي يظهر كل السجلات المسجلين بتاريخ اليوم الحالي يلي نحن فيه
سجلات تنتهي بعد يوم أو 2 او 3 ايام يعني يلي مازال اقل من 3 ايام و تنتهي
سجلات الشهر القادم يعني السجلات المسجلة بالشهر القادم و ليس بالضرورة الشهر 10 . يعني لو كنت بالشهر يناير لما اضغط تطلعلي سجلات الشهر 2 و لو كنا بالشهر 11 لما اضغط تظهرلي سجلات الشهر 12
شكرا اخواني على المساعدة


الملفات المرفقة
.zip   البحث بتواريخ مختلفة.zip (الحجم : 148.99 ك ب / التحميلات : 20)
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
السلام عليكم اخي مجمد
في زر بحث ستقوم بانشاء جملة استعلام وفق حقل التاريخ بشرط يساوي تاريخ اليوم يجلب سجلات اليوم
او يكون حقل التاريخ اصغر من الحالي يجلب السجلات المنتهية
او حقل التاريخ يساوي التاريخ الحالي زائد الايام يجلب السجلات الغير منتهية حسب الايام الزائدة
او حقل التاريخ اكير من الحالي يجلب كل السجلات الغير منتهية
ويمكنك وضع متغير بعدد الايام التي ستضيفها بحيث تضع رقما يمثل الايام الزائدة قبل عملية البحث
ارجو ان تكون الفكرة واضحة لديك اخي محمد
ساتركك تكتب كودك بنفسك هذه المرة  لتستفيد وستنجح ان شاء الله
الرد
تم الشكر بواسطة: Rabeea Qbaha , محمد خيري
#3
بارك الله فيك اخي ابراهيم على الكلمات و النصائح المفيدة
نجحت فقط في استعراض سجلات تاريخ اليوم بهذا الكود

كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Try
           Dim sda As New OleDbDataAdapter
           Dim sdt As New DataTable
           sdt.Clear()
           sda = New OleDbDataAdapter("SELECT * From PHONE Where DateAffaire =  #" & Today & "#", con)
           sda.Fill(sdt)
           dgv_table.DataSource = sdt
       Catch ex As Exception
       End Try
   End Sub
الرد
#4
السلام عليكم...
يمكنك استخدام هذا الكود للبحث بين تاريخين عن سجل معين او البحث بين تاريخين فقط.
كود :
Dim da As OleDbDataAdapter
       Dim dt As New DataTable

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim Query As String = "Select * From الجدول Where 1=1"

       If date1.Text <> "" Then
           Query = Query & " AND التاريخ >= #" & date1.Text & "#"
       End If

       If date2.Text <> "" Then
           Query = Query & " AND التاريخ <= #" & date2.Text & "#"
       End If

       If TextBox1.Text <> "" Then
           Query = Query & " AND الاسم = '" & TextBox1.Text & "'"
       End If


       Dim cmd As New OleDbCommand(Query, con)
       da = New OleDbDataAdapter(cmd)
       dt.Clear()
       da.Fill(dt)
       Me.DataGridView1.DataSource = dt
الرد
#5
اخي محمد
اليك راس الخيط اريدك ان تكتب اكوادك بنفسك 
كود :
  Dim dd As Date = Now
   Dim kk As Integer = Val(textbox1.text) ' احعل هذا المتغير لوضع عدد الايام الزائدةاو الناقصة

   Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
       Try
           Dim sda As New OleDbDataAdapter
           Dim sdt As New DataTable
           sdt.Clear()
           sda = New OleDbDataAdapter("SELECT * From PHONE Where DateAffaire =  dd.AddDays(kk)", con)
           sda.Fill(sdt)
           dgv_table.DataSource = sdt
       Catch ex As Exception
       End Try
   End Sub
الرد
#6
شكرا اخواني الكرام اسامة الهرماوي و ابراهيم ايبو بفضلكما تم ايجاد راس الخيط الهي يبارك فيكم و في اعمالكم
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو



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


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