السلام عليكم.اخواني هذا الملف للأستاذ ابراهيم ايبو الله يبارك فيه
اضفت حقل بقاعدة البيانات اكسس اسمه DateAffaire
لو سمحتم اريد البحث بالبوتون يلي اضفتهم
سجلات منتهية لما اضغط تظهر على الداتاجريد كل السجلات يلي هم قبل تاريخ اليوم الحالي و فات وقتهم
سجلات اليوم الحالي يظهر كل السجلات المسجلين بتاريخ اليوم الحالي يلي نحن فيه
سجلات تنتهي بعد يوم أو 2 او 3 ايام يعني يلي مازال اقل من 3 ايام و تنتهي
سجلات الشهر القادم يعني السجلات المسجلة بالشهر القادم و ليس بالضرورة الشهر 10 . يعني لو كنت بالشهر يناير لما اضغط تطلعلي سجلات الشهر 2 و لو كنا بالشهر 11 لما اضغط تظهرلي سجلات الشهر 12
شكرا اخواني على المساعدة
السلام عليكم اخي مجمد
في زر بحث ستقوم بانشاء جملة استعلام وفق حقل التاريخ بشرط يساوي تاريخ اليوم يجلب سجلات اليوم
او يكون حقل التاريخ اصغر من الحالي يجلب السجلات المنتهية
او حقل التاريخ يساوي التاريخ الحالي زائد الايام يجلب السجلات الغير منتهية حسب الايام الزائدة
او حقل التاريخ اكير من الحالي يجلب كل السجلات الغير منتهية
ويمكنك وضع متغير بعدد الايام التي ستضيفها بحيث تضع رقما يمثل الايام الزائدة قبل عملية البحث
ارجو ان تكون الفكرة واضحة لديك اخي محمد
ساتركك تكتب كودك بنفسك هذه المرة لتستفيد وستنجح ان شاء الله
بارك الله فيك اخي ابراهيم على الكلمات و النصائح المفيدة
نجحت فقط في استعراض سجلات تاريخ اليوم بهذا الكود
كود :
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
السلام عليكم...
يمكنك استخدام هذا الكود للبحث بين تاريخين عن سجل معين او البحث بين تاريخين فقط.
كود :
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
اخي محمد
اليك راس الخيط اريدك ان تكتب اكوادك بنفسك
كود :
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
شكرا اخواني الكرام اسامة الهرماوي و ابراهيم ايبو بفضلكما تم ايجاد راس الخيط الهي يبارك فيكم و في اعمالكم