10-07-17, 07:20 PM
(آخر تعديل لهذه المشاركة : 10-07-17, 07:20 PM {2} بواسطة 23306.
تعديل السبب: وضع وسم code
)
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Using da As New OleDbDataAdapter("SELECT * FROM [Employee] WHERE ([JobDate]>=@jd) ", con)
da.SelectCommand.Parameters.AddWithValue("@jd", DateTimePicker1.Value.AddYears(-Val(TextBox1.Text)).Date)
Dim dt As New DataTable
da.Fill(dt)
dgvEmployee.DataSource = dt
End Using
End Sub