15-10-21, 12:08 PM
(آخر تعديل لهذه المشاركة : 15-10-21, 12:50 PM {2} بواسطة 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 "
انا عندي قاعدة فيها حقل تاريخ
محتاج
اعرض الموظيفن المحالين الي المعاش في تاريخ معين
اي
محتاج ازود في جملة الاستعلام بالاضافة الي حقل التاريخ حقل اخر عبارة عن حقل التاريخ مضاف علية 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 "