[23306]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using da As New OleDbDataAdapter("SELECT * FROM [Employees] WHERE (DateDiff('yyyy', [JobDate], NOW) >=@jd) ", con)
        da.SelectCommand.Parameters.AddWithValue("@jd", Val(TextBox1.Text))
        Dim dt As New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Using
End Sub

التاريخ في قاعدة البيانات مبالغ فيه، عدله بشكل مناسب، انا جربتها على (118)سنة وظهرت النتيجة.

عذرا هذه آخر مشاركة لي لأسباب خاصة،
لكن لأنك طلبتني شخصيا عند وشك مغادرتي فلم أستطع تجاهلك،
وداعاً.