[atefkhalf2004]

حضراتكم
انا عندي قاعدة فيها حقل تاريخ 
محتاج
اعرض الموظيفن المحالين الي المعاش في تاريخ معين
اي
محتاج ازود في جملة الاستعلام  بالاضافة الي حقل التاريخ حقل اخر  عبارة عن حقل التاريخ مضاف علية 60 عام  اللي بعدها يطلع الموظف معاش
واعرضهم في تقرير
شكرا لكم

If conn.State = ConnectionState.Open Then conn.Close()
        conn.Open()
        Dim ds1 As New DataSet
        ds1 = New DataSet

        Dim Sql As String
        Sql = "SELECT st_name,code ,  d_brith  FROM students where  d_birth between @d1 and @d2 "
        Dim sqlcom As New SqlCommand
        sqlcom.Connection = conn
        sqlcom.CommandType = CommandType.Text
        sqlcom.CommandText = Sql
        Dim SqlDataAdapter As New SqlDataAdapter
        SqlDataAdapter = New SqlDataAdapter

        SqlDataAdapter.SelectCommand = sqlcom


        SqlDataAdapter.SelectCommand.Parameters.AddWithValue("@d1", Me.DateTimePicker1.Value.Date)
        SqlDataAdapter.SelectCommand.Parameters.AddWithValue("@d2", Me.DateTimePicker2.Value.Date)


        SqlDataAdapter.Fill(ds1, "students")
        Cry.SetDataSource(ds1)
        Form8.CrystalReportViewer1.ReportSource = Cry
        Form8.CrystalReportViewer1.Zoom(100%)
        Form8.ShowDialog()

---

اي
محتاج اعرض حقل بجوار حقل التاريخ يظهر تاريخ الاحالة الي المعاش
Sql = "SELECT st_name,code , d_brith , date2 FROM students where d_birth between @d1 and @d2 "