تقييم الموضوع :
  • 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
شكرا اخواني الكرام اسامة الهرماوي و ابراهيم ايبو بفضلكما تم ايجاد راس الخيط الهي يبارك فيكم و في اعمالكم
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك adnan gharbi 9 283 04-06-20, 02:59 PM
آخر رد: adnan gharbi
  البحث بتاريخ اليوم في الدتا جريد فيو mazentq 5 236 27-05-20, 08:36 PM
آخر رد: rochdi191
  [VB.NET] إظهار جدول آخر يحمل البيانات عن طريق البحث من خلية في داتاغريد Alhootti1 2 172 06-05-20, 04:46 AM
آخر رد: Alhootti1
  [VB.NET] كيف اقضي على مشاكل الكود البحث ةالاضافة و التعديل بالعربية في فيجوال بيسك rochdi191 5 215 01-05-20, 04:26 PM
آخر رد: rochdi191
  [كود] رمضان مبارك يا اخوتي اريد كود بحث عن الاسم لقد اتعبني البحث rochdi191 8 258 25-04-20, 11:32 PM
آخر رد: rochdi191
  تحديد نتيجة البحث ZaerAllail 9 336 01-04-20, 10:54 PM
آخر رد: سعود
  حل مشكله البحث في ال datagrid mohamedalqadi 2 214 17-03-20, 06:51 PM
آخر رد: mohamedalqadi
  [VB.NET] البحث عن اي جزء من أي كلمة في مربع نص واحد waelalmsry75 9 2,415 13-03-20, 02:49 AM
آخر رد: waelalmsry75
  البحث بناءً على شرطين mr_hso 6 321 26-02-20, 11:30 AM
آخر رد: mr_hso
  [VB.NET] كيفية عمل قائمة منسدلة عن عمليات البحث ذات الصلة khairallah 0 197 12-02-20, 12:24 PM
آخر رد: khairallah

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


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