梅里雪山海拔排名:求 asp.net从数据库中取数据绘制曲线图 的代码! 谢谢前辈了

来源:百度文库 编辑:中科新闻网 时间:2024/05/03 04:58:58
前辈们我才学asp.net。 现在在学asp.net从数据库中取数据曲线图,我弄了好久也没弄好,在网上也没找到资料。现在手动输入数据做曲线图我会了,但是从数据库中取数据的话,就总出错。

哪位前辈有代码,发给我学学好吗?

我的信箱是 kuhan_kuhan@163.com 小弟就这些积分了,全给你

还望不吝赐教 :)
TO刀齿: 我已经把我的代码发到你的信箱里了,你验收一下吧! :)

估计只是个转换的问题
你把数据库里的数据都写到dataset变量里
然后再逐个把dataset里提出数据 不久可以了么

共享你一下你的代码可以么 daochi1@vip.sina.com
=======================================================
代码改好了 不过是vb.net的
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim c As LineChart = New LineChart()
c.LineChart(640, 480, Page)
c.Title = " 在ASP.NET中实现数据图表"
c.Xorigin = 0
c.ScaleX = 500
c.Xdivs = 5
c.Yorigin = 0
c.ScaleY = 1000
c.Ydivs = 5
'c.AddValue(0, 150)
'c.AddValue(50, 50)
'c.AddValue(100, 700)
'c.AddValue(200, 150)
'c.AddValue(300, 450)
'c.AddValue(400, 75)
'c.AddValue(450, 450)
'c.AddValue(500, 250)
Dim str As String
Dim data As conn = New conn()
Dim data1 As DataSet
str = "select x,y from biao "
Try
data1 = data.GetDataFromDB(str)
Catch ex As Exception
Exit Sub
End Try
Dim rows As Integer
Dim i As Integer
rows = data1.Tables(0).Rows.Count
For i = 0 To rows - 1
Dim a As Integer
Dim b As Integer
a = data1.Tables(0).Rows(i)("x")
b = data1.Tables(0).Rows(i)("y")
c.AddValue(a, b)
Next

c.Draw()
End Sub

数据库联接类
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Drawing
Imports System.DBNull
Imports System.Data.SqlClient

Public Class conn
Public objDataSet As DataSet
'定义一个数据集对象
Public objDataView As DataView
'定义一个数据视图对象
Public objDataAdpter As SqlDataAdapter
'定义一个数据适配器对象
Public objSqlConnection As SqlConnection = New SqlConnection("data source=(local);initial catalog=LineChart;user id=sa;password=") '定义数据库

'定义了查询语句
Public Function GetDataFromDB(ByVal sqlstr As String) As DataSet
objDataSet = New DataSet
objDataSet.Clear()
'实例化一个数据集对象
Try
objSqlConnection.Open()
'打开数据库连接
objDataAdpter = New SqlDataAdapter(sqlstr, objSqlConnection)
'将数据库的数据映射到数据适配器
objDataAdpter.Fill(objDataSet)
'填充数据集的数据
objSqlConnection.Close()
'关闭数据连接,这一点很重要
Catch

Finally
objSqlConnection.Close()
End Try

Return objDataSet
objDataSet = Nothing
End Function

Public Function UpdateData(ByVal sqlstr As String) As Boolean
Dim objCommand As SqlCommand = New SqlCommand
Try
objSqlConnection.Open()
objCommand.Connection = objSqlConnection
objCommand.CommandText = sqlstr
objCommand.CommandType = CommandType.Text
objCommand.ExecuteNonQuery()
objSqlConnection.Close()
Catch
Return False
Finally
objSqlConnection.Close()
End Try
Return True
End Function

End Class

建立数据库LineChart 建立数据表biao(x y 数据项)写入数据
就万事ok