08-03-13, 12:10 AM
اانحلت يا افضل اعضاء حولت كود الاخ ابو رائد بتغيير من OleDbCommand و OleDbDataAdapter الى SQLCommand و SqlDataAdapter
انحلت مشاكل وظهرت مشكلة Con وغيرتها الى Conn وانحلت وبحث وكل شئ تمام لكن في مشكلتين وننتهي من الامر هذا وهما :
اني يجب علي كتابة التاريخ من الاقدم الى الاجدد يعني مثل كذا
من 2013-03-05
الى 2013-03-07
اذا سوينا العكس في التاريخ لا يعمل ؟ ،،، حاولت اسوي الكود بعملية عكس الطريقه لكن لم تفلح
المشكلة الثانية انه اذا كتبت التاريخ
من 2013-03-05
الى 2013-05-05
المفروض انه يبحث ايضا بالاشهر لكنه فقط يبحب بين تاريخين بالايام ولا يراعي [b]الاشهر ولا السنوات ،،،اتوقع هذي حلها ب Longdate لكن كيف ؟[/b]
انحلت مشاكل وظهرت مشكلة Con وغيرتها الى Conn وانحلت وبحث وكل شئ تمام لكن في مشكلتين وننتهي من الامر هذا وهما :
اني يجب علي كتابة التاريخ من الاقدم الى الاجدد يعني مثل كذا
من 2013-03-05
الى 2013-03-07
اذا سوينا العكس في التاريخ لا يعمل ؟ ،،، حاولت اسوي الكود بعملية عكس الطريقه لكن لم تفلح
كود :
Dim sql As String = " SELECT * FROM table1 WHERE [Date] BETWEEN @date1 AND @date2 "
Dim sql2 As String = " SELECT * FROM table1 WHERE [Date] BETWEEN @date3 AND @date4 "
Dim comm As New SqlCommand(sql, Conn)
comm.Parameters.AddWithValue("@date1", CDate(Me.TextBox73.Text))
comm.Parameters.AddWithValue("@date2", CDate(Me.TextBox67.Text))
Dim comm2 As New SqlCommand(sql2, Conn)
comm.Parameters.AddWithValue("@date4", CDate(Me.TextBox73.Text))
comm.Parameters.AddWithValue("@date3", CDate(Me.TextBox67.Text))
Dim dt As New DataTable
Dim da As New SqlDataAdapter(comm)
da.Fill(dt)
Me.ListView1.Items.Clear()
For Each r As DataRow In dt.Rows
Dim LVI As New ListViewItem
LVI.Text = r.Item("ID")
LVI.SubItems.Add(r.Item("UserName"))
LVI.SubItems.Add(r.Item("MobileNumber"))
Me.ListView1.Items.Add(LVI)
Nextالمشكلة الثانية انه اذا كتبت التاريخ
من 2013-03-05
الى 2013-05-05
المفروض انه يبحث ايضا بالاشهر لكنه فقط يبحب بين تاريخين بالايام ولا يراعي [b]الاشهر ولا السنوات ،،،اتوقع هذي حلها ب Longdate لكن كيف ؟[/b]

