[سميـر]

السلام عليكم

للاستعلام عن آخر إجازة يتم بعكس الترتيب بـ DESC وأخذ سطر واحد بـ TOP 1

كود :

Private Sub dgv_AllName_SelectionChanged(sender As Object, e As EventArgs) Handles dgv_AllName.SelectionChanged
    Me.NameEjaza.Text = ""
    Me.DateStart.Text = ""
    Me.DateEnd.Text = ""
    Dim da As New OleDbDataAdapter
    da = New OleDbDataAdapter("select top 1 * from Ejaza where id1='" & Val(Me.ID1.Text) & "' order by DateStart DESC", con)
    Dim dt As New DataTable
    If da.Fill(dt) > 0 Then
        Me.NameEjaza.Text = dt.Rows(0)("NameEjaza").ToString()
        Me.DateStart.Text = dt.Rows(0)("DateStart").ToString()
        Me.DateEnd.Text = dt.Rows(0)("DateEnd").ToString()
    End If
End Sub

أرجوأن يكون المطلوب