datareadersql.aspx

来自「掌握学习.net开发的非常好的资料」· ASPX 代码 · 共 52 行

ASPX
52
字号
<%@ Page Language="VB" debug="false" trace="false" Description="dotnetCHARTING Component"%>
<%@ Register TagPrefix="dotnet"  Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<!-- To make this sample works:
1- upsize the provided chartsample access database (Tools->Database Utilities->upsizing wizard)
2-set connection string server, userid,password and database name.
-->

<script runat="server">
Sub Page_Load(sender As Object,e As EventArgs )

	'set global properties
    Chart.Title="Item sales report"
	Chart.ChartArea.XAxis.Label.Text="Customers"
    Chart.TempDirectory="temp"
    Chart.Debug=true
    
    
    'Adding series programatically
   	Chart.Series.Name = "Item sales"
   	SetData()
    Chart.SeriesCollection.Add()
                       
   
End sub
Function  SetData()
	Dim  connString As String = "server=server name or IP;uid=username;pwd=password;database=database name"  
    Dim conn As SqlConnection  = new SqlConnection(connString)
    Dim selectQuery As string = "SELECT Name,Sum(Quantity) FROM Orders GROUP BY Orders.Name ORDER BY Orders.Name"
    Dim myCommand As SqlCommand  = new SqlCommand(selectQuery, conn)
   	conn.Open()
   	Dim myReader As SqlDataReader = myCommand.ExecuteReader()
   	
   	'set dataReader to data property
   	Chart.Series.Data = myReader
   	
   	'Cleanup
 	myReader.Close()
   	conn.Close()
End Function
</script>
<HTML><HEAD><TITLE>Data Reader SQL Sample</TITLE></HEAD>
<BODY>
<DIV align=center>
 <dotnet:Chart id="Chart"  runat="server"/>
</DIV>
</BODY>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?