绑定到 MSChart 控件的数据

Microsoft Chart 控件是一个数据绑定控件，允许您以图形方式表示数值数据。不像其他数据绑定控件，Chart 控件不能同 Remote Data 控件一起使用，也不能同 Data 控件一起使用。它可以同 ADO Data Control、ADO Recordset 以及 Data Environment 一起使用。该示例将显示如何打开一个 ADO Recordset，该 ADO Recordset 包含了您想要显示的字段，并且 Chart 控件的 DataSource 属性设置为 Recordset 对象。如果第一个字段包含字符串数据，则该数据将作为 X 轴标签使用。

下面的示例显示了三组数据，先创建一个具有四个字段的 Recordset 对象；第一个字段包含 X 轴的标签，而其他的字段作为系列数据显示。

Option Explicit
' 确保设置一个对 Microsoft ActiveX Data 
' Objects 2.0 Library 的引用。
Private rsProducts As New ADODB.Recordset
Private cn As New ADODB.Connection

Private Sub Form_Load()
   Dim strQuery As String ' SQL 查询字符串。

   ' 首先将路径改为到您机器的一个有效路径。
   cn.ConnectionString = _
   "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
   "C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb" ' <-更改该路径。

   ' 打开连接。
   cn.Open 
   
   ' 创建一个只检索四个字段的查询。
   strQuery = "SELECT ProductName, UnitPrice, " & _
   "UnitsInStock, UnitsOnOrder FROM Products WHERE SupplierID = 1"
   ' 打开记录集。
   rsProducts.Open strQuery, cn, adOpenKeyset
   ' 将 DataSource 设置为该记录集。
   With MSChart1
      .ShowLegend = True
      Set .DataSource = rsProducts
   End With
End Sub