25-11-19, 10:08 PM
السلام عليكم اخوتي
انا اعمل على مشروع asp.net and vb.net
و عند البحث بين تاريخين وجهتني مشكلة ان البحث يتم على الايام فقط و الشهور تتكرر .
و هذا هو الكود :
Try
Dim conn As New SqlConnection
conn.ConnectionString = ConfigurationManager.ConnectionStrings("WebSiteDataConnectionString1").ConnectionString
Dim sql As String = "select * from ViewVisitorsDateSum where Date1 BETWEEN @dt1 AND @dt2"
conn.Open()
Dim dt As DataTable = New DataTable
Dim adb As Data.SqlClient.SqlDataAdapter = New Data.SqlClient.SqlDataAdapter(sql, conn)
adb.SelectCommand.Parameters.AddWithValue("@dt1", TextBox1.Text.ToString)
adb.SelectCommand.Parameters.AddWithValue("@dt2", TextBox2.Text.ToString)
adb.Fill(dt)
conn.Close()
If dt.Rows.Count > 0 Then
GridView1.DataSource = dt
GridView1.DataBind()
Else
GridView1.DataSourceID = Nothing
GridView1.DataBind()
Page.ClientScript.RegisterStartupScript(Me.GetType(), "Window", "alert(""No results"");", True)
End If
Catch ex As Exception
Page.ClientScript.RegisterStartupScript(Me.GetType(), "Window", "alert(""Error try again"");", True)
Exit Sub
End Try
وهذه صورة :
كما تشاهدون اخوتي البحث فى شهر 11 ظهر معاه شهر 10
رجاء التعديل على الكون و جزاكم الله خيرا
انا اعمل على مشروع asp.net and vb.net
و عند البحث بين تاريخين وجهتني مشكلة ان البحث يتم على الايام فقط و الشهور تتكرر .
و هذا هو الكود :
Try
Dim conn As New SqlConnection
conn.ConnectionString = ConfigurationManager.ConnectionStrings("WebSiteDataConnectionString1").ConnectionString
Dim sql As String = "select * from ViewVisitorsDateSum where Date1 BETWEEN @dt1 AND @dt2"
conn.Open()
Dim dt As DataTable = New DataTable
Dim adb As Data.SqlClient.SqlDataAdapter = New Data.SqlClient.SqlDataAdapter(sql, conn)
adb.SelectCommand.Parameters.AddWithValue("@dt1", TextBox1.Text.ToString)
adb.SelectCommand.Parameters.AddWithValue("@dt2", TextBox2.Text.ToString)
adb.Fill(dt)
conn.Close()
If dt.Rows.Count > 0 Then
GridView1.DataSource = dt
GridView1.DataBind()
Else
GridView1.DataSourceID = Nothing
GridView1.DataBind()
Page.ClientScript.RegisterStartupScript(Me.GetType(), "Window", "alert(""No results"");", True)
End If
Catch ex As Exception
Page.ClientScript.RegisterStartupScript(Me.GetType(), "Window", "alert(""Error try again"");", True)
Exit Sub
End Try
وهذه صورة :
كما تشاهدون اخوتي البحث فى شهر 11 ظهر معاه شهر 10
رجاء التعديل على الكون و جزاكم الله خيرا