[أبووسم2]

السلام عليكم

اسجل في قاعدة البيانات من نوع (SQl) التاريخ فقط مستخدماً أدارة DateTimePicker وتم ضبط التاريخ في قاعدة البيانات بصيغة (Date) وعند تصدير البيانات للورد أو الإكسل يظهر الوقت مع التاريخ مع العلم أني لم اضيف الوقت ، ولا يوجد أساساً وقت في قاعدة البيانات ،،، شاكر و مقدر لكم

كود :

Public DT_SEARCH As New DataTable()
Public Sub SEARCH2DATE(ByVal DateE AS Date , ByVal DateE2 AS Date)
DT_SEARCH.clear
Dim CMDSEARCH As New SqlCommand(" SELECT * FROM hospital WHERE DateE >= @DateE AND DateE <= @DateE2", con)
CMDSEARCH.Parameters.Clear()
CMDSEARCH.Parameters.Add("@DateE", SqlDbType.Date).Value = "#" &DateE & "#"
CMDSEARCH.Parameters.Add("@DateE2", SqlDbType.Date).Value = "#" &DateE2 & "#"
Try
If Con.State = 1 Then Con.Close()
Con.Open()
DT_SEARCH.Load(CMDSEARCH.ExecuteReader)
Con.Close()
CMDSEARCH = Nothing
Catch ex As Exception
Con.Close()
MsgBox(Err.Description, MsgBoxStyle.Information)
Finally
If Con.State = ConnectionState.Open Then Con.Close()
End Try
End Sub