Question

在VB中想实现用select语句查询筛选之后的数据在MSChart上用图表显示出来，请问如何实现？

在VB中想实现用select语句查询筛选之后的数据在MSChart上用图表显示出来，请问如何实现？ 比如查询筛选之后的数据与MSChart如何连接 以达到MSChart上显示出对应的数据。
这部分代码如下：
Private Sub Form_Load()

Adodc2.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\db_database22.mdb;Persist Security Info=False"
Adodc2.RecordSource = "select [cpu百分比], min([交易量]) as [最小交易量] from sy group by [cpu百分比] order by [cpu百分比]"
Adodc2.Refresh
Set MSHFlexGrid1.DataSource = Adodc2

Dim path As String
Dim rs As New ADODB.Recordset
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\db_database22.mdb;"
Set rs = New ADODB.Recordset
rs.Open "select [cpu百分比], min([交易量]) as [最小交易量] from sy group by [cpu百分比] order by [cpu百分比]", Conn, adOpenStatic, adLockOptimistic
rs.MoveFirst
Set MSChart1.DataSource = rs
End Sub
这是用代码查询计算出来的两行数据

这是希望通过上面的数据绘制出来的表：

上面的语句不能实现，请问如何修改可以实现？





Answer 1

直接用添加数据点的方法和数组都可以，举个例，用添加数据点的方法画一个有10个随机数据点的曲线图：
Dim random As New Random()
Dim pointIndex As Integer
For pointIndex = 0 To 9
chart1.Series[0].Points.AddY(random.Next(1,100))
Next pointIndex

chart1.Series[0].ChartType=SeriesChartType.Line;
希望对你有帮助

追问

我对问题补充了一些代码和截图，请问如何把您这个语句融合进去，进而得以运行实现？

追答

其实我不懂VB，只是会一点MsChart，你这个表用上面这种添加数据点的方式也可以，无非就是整理为两个数组或者遍历结果罢了，但是按表直接绘制应该更加简单，不过我没看明白ADODB，rs这两个，你没有使用OleDbCommand？希望你能说明一下

追问

这是我从VB帮助里找到的关于rs.open的一条说法，“最好不要使用Open方法的Source参数执行操作查询，由于很难确定调用是否成功，所以该查询不返回记录。由此类查询所返回的Recordset将被关闭。调用Command对象的Execute方法或Connection对象的Execute方法，而不要执行无返回记录的查询（如 SQL INSERT 语句）。”但我不知道如何用Execute。也没用过OleDbCommand。你有qq么？q上聊？

追答

刚刚不在，不用QQ的，还是写一个例子吧，你看下能有帮助没有，尽量类似你那个，你再修改一下，VB我不懂的
Dim path As String = "\Data\ChartData.mdb"
Dim myConnString As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="+path
Dim mySelectQuery As String = "SELECT * FROM REPS;"
Dim myConn As New OleDbConnection (myConnString)
Dim myCommand As New OleDbCommand(mySelectQuery,myConn)
Chart1.DataSource = myCommand
Chart1.Series("Series1").XValueMember = "Name"
Chart1.Series("Series1").YValueMember = "Sales"
Chart1.DataBind()
希望对你有帮助