(11-08-17, 12:09 AM)سعود الشامان كتب :(11-08-17, 12:08 AM)سعود كتب :إقتباس :إخواني الأعزاء اريد المساعدة في إظهار المنتجات اللتي سوف تنتهي صلاحيتها قبل يومين او بتحديدها من المستخدمهل تقصد بالفعل قبل يومين ام بعد يومين
قبل يومين يالغالي
اذا كان القصد اظهار النتائج التي ستنتهي بعد يوم او يومين او بعد س يوم انظر للمثال
اما ان كان القصد المنتجات المنتهية قبل س يوم ...ممكن بتعديل بسيط او حتى ممكن اضافة ميزة للمثال تجمع النوعين.
كود :
Public Class Form1
Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\db.accdb")
Dim dt As DataTable
Dim da As OleDb.OleDbDataAdapter
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dfrom As Date = Now.Date.ToShortDateString
Dim d As Integer = 0
If rafter.Checked Then
d = Val(TextBox1.Text)
ElseIf rbefor.Checked Then
d = Val(-Val(TextBox1.Text))
End If
dt = New DataTable
da = New OleDb.OleDbDataAdapter("", con)
da.SelectCommand.CommandText = "select * from tb where tfinish=@tfinish"
da.SelectCommand.Parameters.AddWithValue("@tfinish", dfrom.AddDays(d))
da.Fill(dt)
ListBox1.DataSource = dt
ListBox1.DisplayMember = "tn"
End Sub
End Classالمثال مرفق بعد التعديل
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
