Asp.net 使用From:date和to:date搜索到折线图x轴的日期
我是asp和vb.net的初学者。 我想做的是从一个文本框“from”和“to”日期显示用户输入的日期。但在我的代码中，它显示一个随机的日期，并且不跟随我的日期。这是代码Asp.net 使用From:date和to:date搜索到折线图x轴的日期,asp.net,vb.net,date,graph,linegraph,Asp.net,Vb.net,Date,Graph,Linegraph,我是asp和vb.net的初学者。 我想做的是从一个文本框“from”和“to”日期显示用户输入的日期。但在我的代码中，它显示一个随机的日期，并且不跟随我的日期。这是代码 </ChartAreas> <Legends> <asp:Legend Name="Legend1"> </asp:L
</ChartAreas>
<Legends>
<asp:Legend Name="Legend1">
</asp:Legend>
</Legends>
</asp:Chart>
Public Sub DoChart()
Try
Dim SQLStr As String = ""
Dim SQLStr1 As String = ""
Dim SQLStr2 As String = ""
Dim SQLStr3 As String = ""
Dim SQLStr4 As String = ""
Dim SQLStr5 As String = ""
Dim sqlConn As New SqlConnection(DataSource.ConnectionString)
sqlConn.Open()
Dim sqlConn1 As New SqlConnection(DataSource.ConnectionString)
sqlConn1.Open()
Dim sqlConn2 As New SqlConnection(DataSource.ConnectionString)
sqlConn2.Open()
Dim sqlConn3 As New SqlConnection(DataSource.ConnectionString)
sqlConn3.Open()
Dim sqlConn4 As New SqlConnection(DataSource.ConnectionString)
sqlConn4.Open()
Dim sqlConn5 As New SqlConnection(DataSource.ConnectionString)
sqlConn5.Open()
Dim sqlComm As New SqlCommand(SQLStr, sqlConn)
Dim sqlAdapter As New SqlDataAdapter(sqlComm)
Dim o_Dataset As New DataSet()
Dim sqlReader As SqlDataReader
Dim sqlComm1 As New SqlCommand(SQLStr1, sqlConn1)
Dim sqlAdapter1 As New SqlDataAdapter(sqlComm1)
Dim o_Dataset1 As New DataSet()
Dim sqlReader1 As SqlDataReader
Dim sqlComm2 As New SqlCommand(SQLStr2, sqlConn2)
Dim sqlAdapter2 As New SqlDataAdapter(sqlComm2)
Dim o_Dataset2 As New DataSet()
Dim sqlReader2 As SqlDataReader
Dim sqlComm3 As New SqlCommand(SQLStr3, sqlConn3)
Dim sqlAdapter3 As New SqlDataAdapter(sqlComm3)
Dim o_Dataset3 As New DataSet()
Dim sqlReader3 As SqlDataReader
Dim sqlComm4 As New SqlCommand(SQLStr4, sqlConn4)
Dim sqlAdapter4 As New SqlDataAdapter(sqlComm4)
Dim o_Dataset4 As New DataSet()
Dim sqlReader4 As SqlDataReader
Dim sqlComm5 As New SqlCommand(SQLStr5, sqlConn5)
Dim sqlAdapter5 As New SqlDataAdapter(sqlComm5)
Dim o_Dataset5 As New DataSet()
Dim sqlReader5 As SqlDataReader
' New admissions
SQLStr = "SELECT COUNT(*) AS newad, convert(varchar(11), DateAdd(day, DateDiff(day, 0, AdmDate), 0), 101) As AdmDate " _
& " FROM Patient_Data.dbo.tbpatient " _
& " WHERE AdmDate >= '" & txtDateFrom.Text & " 00:00:00.000' And AdmDate <= '" & txtDateTO.Text & " 23:59:59.888' " _
& " GROUP BY DateAdd(day, DateDiff(day, 0, AdmDate), 0)"
sqlComm.CommandText = SQLStr
sqlAdapter.Fill(o_Dataset)
' In Patients
' Patient.DcrDate is null or Patient.DcrDate > @ReportDate
SQLStr1 = "SELECT COUNT(*) AS inPatient, convert(varchar(11), DateAdd(day, DateDiff(day, 0, AdmDate), 0), 101) As AdmDate " _
& " FROM Patient_Data.dbo.tbpatient " _
& " WHERE DcrDate is NULL or DcrDate > '" & txtDateFrom.Text & " 00:00:00.000' and AdmDate >= '" & txtDateFrom.Text & " 00:00:00.000' And AdmDate <= '" & txtDateTO.Text & " 23:59:59.888' " _
& " GROUP BY DateAdd(day, DateDiff(day, 0, AdmDate), 0)"
sqlComm1.CommandText = SQLStr1
sqlAdapter1.Fill(o_Dataset1)
' OutPatients
SQLStr2 = "SELECT COUNT(*) AS OUTPatient, convert(varchar(11), DateAdd(day, DateDiff(day, 0, AdmDate), 0), 101) As AdmDate " _
& " FROM Patient_Data.dbo.tbOutPatient " _
& " WHERE AdmDate >= '" & txtDateFrom.Text & " 00:00:00.000' And AdmDate <= '" & txtDateTO.Text & " 23:59:59.888' " _
& " GROUP BY DateAdd(day, DateDiff(day, 0, AdmDate), 0)"
sqlComm2.CommandText = SQLStr2
sqlAdapter2.Fill(o_Dataset2)
' Births
SQLStr3 = "SELECT COUNT(*) AS mybirths, convert(varchar(11), DateAdd(day, DateDiff(day, 0, AdmDate), 0), 101) As AdmDate " _
& " FROM Patient_Data.dbo.tbpatient " _
& " WHERE ServiceID = '13' AND AdmDate >= '" & txtDateFrom.Text & " 00:00:00.000' And AdmDate <= '" & txtDateTO.Text & " 23:59:59.888' " _
& " GROUP BY DateAdd(day, DateDiff(day, 0, AdmDate), 0)"
sqlComm3.CommandText = SQLStr3
sqlAdapter3.Fill(o_Dataset3)
' Deaths
SQLStr4 = "SELECT COUNT(*) AS totdeaths, convert(varchar(11), DateAdd(day, DateDiff(day, 0, AdmDate), 0), 101) As AdmDate " _
& " FROM Patient_Data.dbo.tbpatient " _
& " WHERE ResultID = '4' And AdmDate >= '" & txtDateFrom.Text & " 00:00:00.000' And AdmDate <= '" & txtDateTO.Text & " 23:59:59.888' " _
& " GROUP BY DateAdd(day, DateDiff(day, 0, AdmDate), 0)"
sqlComm4.CommandText = SQLStr4
sqlAdapter4.Fill(o_Dataset4)
' ER
SQLStr5 = "SELECT COUNT(*) AS ER, convert(varchar(11), DateAdd(day, DateDiff(day, 0, AdmDate), 0), 101) As AdmDate " _
& " FROM Patient_Data.dbo.tbERMaster " _
& " WHERE AdmDate >= '" & txtDateFrom.Text & " 00:00:00.000' And AdmDate <= '" & txtDateTO.Text & " 23:59:59.888' " _
& " GROUP BY DateAdd(day, DateDiff(day, 0, AdmDate), 0)"
sqlComm5.CommandText = SQLStr5
sqlAdapter5.Fill(o_Dataset5)
sqlReader = sqlComm.ExecuteReader
sqlReader1 = sqlComm1.ExecuteReader
sqlReader2 = sqlComm2.ExecuteReader
sqlReader3 = sqlComm3.ExecuteReader
sqlReader4 = sqlComm4.ExecuteReader
sqlReader5 = sqlComm5.ExecuteReader
With Chart1
.Series("New-Admissions").XValueType = DataVisualization.Charting.ChartValueType.Auto
.Series("In-Patients").XValueType = DataVisualization.Charting.ChartValueType.Auto
.Series("Out-Patients").XValueType = DataVisualization.Charting.ChartValueType.Auto
.Series("Births").XValueType = DataVisualization.Charting.ChartValueType.Auto
.Series("Deaths").XValueType = DataVisualization.Charting.ChartValueType.Auto
.Series("ER").XValueType = DataVisualization.Charting.ChartValueType.Auto
Dim Ixx As Integer
Do While sqlReader.Read And sqlReader1.Read And sqlReader2.Read And sqlReader3.Read And sqlReader4.Read And sqlReader5.Read
Ixx = Ixx + 1
If IsDBNull(sqlReader("newad")) = False Then
Dim CountVal As String
CountVal = sqlReader("newad")
If Val(CountVal) <> "0" Then
.Series("New-Admissions").Points.AddXY(sqlReader("AdmDate"), sqlReader("newad"))
End If
End If
If IsDBNull(sqlReader1("inPatient")) = False Then
Dim CountVal1 As String
CountVal1 = sqlReader1("inPatient")
If Val(CountVal1) <> "0" Then
.Series("In-Patients").Points.AddXY(sqlReader1("AdmDate"), sqlReader1("inPatient"))
End If
End If
If IsDBNull(sqlReader2("OUTPatient")) = False Then
Dim CountVal2 As String
CountVal2 = sqlReader2("OUTPatient")
If Val(CountVal2) <> "0" Then
.Series("Out-Patients").Points.AddXY(sqlReader2("AdmDate"), sqlReader2("OUTPatient"))
End If
End If
If IsDBNull(sqlReader3("mybirths")) = False Then
Dim CountVal3 As String
CountVal3 = sqlReader3("mybirths")
If Val(CountVal3) <> "0" Then
.Series("Births").Points.AddXY(sqlReader3("AdmDate"), sqlReader3("mybirths"))
End If
End If
If IsDBNull(sqlReader4("totdeaths")) = False Then
Dim CountVal4 As String
CountVal4 = sqlReader4("totdeaths")
If Val(CountVal4) <> "0" Then
.Series("Deaths").Points.AddXY(sqlReader4("AdmDate"), sqlReader4("totdeaths"))
End If
End If
If IsDBNull(sqlReader5("ER")) = False Then
Dim CountVal5 As String
CountVal5 = sqlReader5("ER")
If Val(CountVal5) <> "0" Then
.Series("ER").Points.AddXY(sqlReader5("AdmDate"), sqlReader5("ER"))
End If
End If
'.DataSource = sqlReader
'.DataBind()
Loop
If Ixx = 0 Then
Chart1.Visible = False
Else
Chart1.Visible = True
End If
End With
Catch ex As Exception
Response.Redirect("Dashboard.aspx")
End Try
End Sub
</ChartAreas>
<Legends>
<asp:Legend Name="Legend1">
</asp:Legend>
</Legends>
</asp:Chart>
From Date: <asp:TextBox ID="txtDateFrom" runat="server"></asp:TextBox>
To Date: <asp:TextBox ID="txtDateTO" runat="server"> </asp:TextBox>
<asp:Button ID="btnRefreshChart" runat="server" Text="Load Chart" />
<br />
<br />
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:DatabaseConnectionString %>" >
</asp:SqlDataSource>
<asp:Chart ID="Chart1" runat="server" Width="934px" Height="566px">
<Series>
<asp:Series BorderWidth="2" ChartArea="MainChartArea" ChartType="Line" Color="#0066FF" Name="New-Admissions" Legend="Legend1">
</asp:Series>
<asp:Series BorderWidth="2" ChartArea="MainChartArea" ChartType="Line" Color="Yellow" Legend="Legend1" Name="In-Patients">
</asp:Series>
<asp:Series BorderWidth="2" ChartArea="MainChartArea" ChartType="Line" Color="Red" Name="Out-Patients" Legend="Legend1">
</asp:Series>
<asp:Series BorderWidth="2" ChartArea="MainChartArea" ChartType="Line" Color="Black" Legend="Legend1" Name="Deaths">
</asp:Series>
<asp:Series BorderWidth="2" ChartArea="MainChartArea" ChartType="Line" Color="Lime" Legend="Legend1" Name="Births">
</asp:Series>
<asp:Series BorderWidth="2" ChartArea="MainChartArea" ChartType="Line" Color="Fuchsia" Legend="Legend1" Name="ER">
</asp:Series>
</Series>
<ChartAreas>
<asp:ChartArea Name="MainChartArea" Area3DStyle-Enable3D="True" AlignmentStyle="None" BackColor="192, 192, 255" BackGradientStyle="LeftRight" BorderColor="Maroon">
<AxisY Interval="20">
</AxisY>
<AxisX IsLabelAutoFit="False">
<LabelStyle Angle="-90" />
</AxisX>
</ChartAreas>
<Legends>
<asp:Legend Name="Legend1">
</asp:Legend>
</Legends>
</asp:Chart>
</ChartAreas>
<Legends>
<asp:Legend Name="Legend1">
</asp:Legend>
</Legends>
</asp:Chart>
你介意把注意力集中在较短的代码上吗？我觉得我只是很少读一个迷你系列，开玩笑的，但它对任何想帮助你的人都有帮助。你也试过断点，看看哪里失败了；出问题了吗？我刚刚发布了所有相关代码，先生对不起。这是我关心的问题，在以下示例代码中：.SeriesNew-Admissions.Points.AddXYsqlReaderAdmDate，sqlreadernwad，我希望在线形图的X轴上显示用户输入的日期，但在我的程序上显示的只是随机的AdmDate