Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) ' Demonstrates using MicroCharts inside DataGrids declaratively.
GridView1.DataSource = getDataSet() GridView1.DataBind() End Sub
Function getDataSet() As DataSet Dim strAccessConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../data/chartsample.mdb") Dim myAccessConn As OleDbConnection = New OleDbConnection(strAccessConn) myAccessConn.Open() Dim myDataSet As DataSet = New DataSet() CType(New OleDbDataAdapter(New OleDbCommand("SELECT City,Population FROM Cities ORDER BY Population DESC", myAccessConn)), OleDbDataAdapter).Fill(myDataSet, "Cities") myAccessConn.Close() Return myDataSet End Function
Previous