[IBRA939]

سهل الحبيب طريقة كتالي :
مثلا
اولا يتم تعريف اي اسم مثلا
    If HideTxtID.Text = "" Then
           MsgBox("يجب تحديد تاريخ أولاً")
           Exit Sub
       End If

       If MsgBox("هل تريد العرض حقاً؟", MsgBoxStyle.OkCancel, "تأكيد التأكيد") = MsgBoxResult.Cancel Then
           Exit Sub
       End If

       Try

           Dim date As Integer = Val(HideTxtID.Text.Trim)

           Conn.Open()

           Dim cmd As New OleDb.OleDbCommand
           cmd.Connection = Conn
           cmd.CommandType = CommandType.Text
           cmd.CommandText = "select FROM TStaff  WHERE staffid= " & date& " "


           cmd.ExecuteScalar()
           Conn.Close()

           MsgBox("تم بنجاح")

           LoadStudents()


       Catch ex As Exception
           MsgBox("خطأ غير معروف")
           Exit Sub
       End Try




ملاحظه لا تنسي تغير اسم الجدول ورقم الموظف
وهذا علي طول يطلع لك اي تاريخ انت ظفته

واذا ما عرفت تواصل معي