Question

VB中如何绑定数据到MSChart 控件？

Answer 1

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.RecordsetPrivate cn As New ADODB.ConnectionPrivate 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 WithEnd Sub