mschart如何录取数据

㈠ vb MSchart控件使用详细说明，求高手

使用MSChart控件可以按照一定的规范将数据以图表的形式绘制出来。可以通过在控件的属性页中设置数据来创建图表，或者也可以从其它数据源，如MicrosoftExcel的电子数据表中检索出要绘制的数据。本主题中的信息主要讨论将Excel工作表作为数据源。

可能的用途对动态数据绘制图表，例如选定商品的当前价格。

对存储数据绘制图表，例如产品价格，以便利用图形分析趋势。使用数组和ChartData属性绘制数据

绘制图表最简单的方法就是创建数字型的数组，然后将ChartData属性设为该数组，如下例所示：

'这段代码可以粘贴到一个Form的Load'事件中，该Form包含名为“MSChart1”的'MSChart控件。
DimarrPrices(1to10)DimiAsIntegerFori=1to10 arrPrices(i)=i*2NextiMSChart1.ChartData=arrPrices

上面的代码将产生简单的单系列图表。图表中的一个“系列”就是一个相关的数据点集。例如，典型的系列可以是一年中商品的价格。下面的图表显示了一个单系列图表。

正如所看见的那样，使用ChartData属性创建图表的方法快捷而且简便。但是，使用数组的问题是要将数据取到数组中。这类数据的大多数用户可能更想使用某种电子表格程序，例如MicrosoftExcel，或某种数据库程序，如MicrosoftAccess，来存贮和检索数据。

设置或返回数据点

一旦使用来自电子表格或其它数据源的数组创建了图表，可能也希望设置或返回某个指定数据点的值。要做到这一点，可以首先设置Row和（如果可以的话）Column属性，然后设置或返回Data属性。例如，在简单的（单系列的）图表中，下面的代码将会改变第三个数据点。

WithMSChart1
'将第三个数据点改为50。
.Row=3 .Data=50EndWith

如果图表有不止一个系列，那么可以使用Column属性来指定系列，然后再象上面那样设置Row和Data属性。

WithMSChart1
'将第四个系列的第二
'个数据点设为42。
.Column=4 .Row=2 .Data=42EndWith使用PointActivated事件修改数据点

如果已经开始研究MSChart控件，那么就会发现它包含了大量的事件。利用这些事件可以对图表编程，使图表能够响应几乎所有的用户操作。作为这种可编程性的例子，下面的示例中将使用PointActivated事件来说明如何利用Series和DataPoint参数修改数据点。（PointActivated事件在数据点被双击时发生。）Series和DataPoint参数对应于Column和Row属性，因此可以用来设置Data属性：

PrivateSubMSChart1_PointActivated(SeriesAs_
Integer,DataPointAsInteger,MouseFlagsAs_
Integer,CancelAsInteger)
WithMSChart1
.Column=Series
.Row=DataPoint
.Data=InputBox_
("Changethedatapoint:",,.Data)
EndWith
EndSub
MSchart的属性和方法都很多，我就不一一说了

㈡ C#中mschart控件画的条形图怎样才能把每一条上的数据显示出来

很简单，您可以在mschart属性的Series打开“Series集合编辑器”选择要显示数值的图标数列。然后再右侧属性找到“IsValueShownAslabel”设置为True即可。

具体您可以看看我上传的图片。

㈢ vb中，如何读取文本中两列数据, 用mschart画（x，y）坐标图

Dim f As Integer
Dim s As String
Dim value() As String
f = FreeFile()
Open "e:\1.txt" For Input As f
Do Until EOF(f)
Line Input #f, s
value() = Split(s, "-")
'这里加入MSchat代码,引用Value()的时候记得用Val(value(index))
Loop
Close

这里加入MSchat代码,就是把读取到Value里的X1-X2的值做为数据源放到MSChat里去
MSchat我不熟悉
因为Split函数出来的数据格式是String的,所以在给MSchat使用时必须使用Val()转换为数值型数据
在X1-X2的数据里
Value(0)是X1
value(1)是x2

㈣ VB6.0中MSChart调用数据库数据绘制折线图，代码一直有问题。没有接触过MSChart控件，希望大神多多指点！

你的SQL语句有问题，你可以调用DEBUG，用? SQL看一下。
你的条件是开始和结束时间，是拼接到SQL中的，要使用连字符&并且要加单引号。

你虽然改过来了，但是还是不对，应该是SQL="SELECT FIELD FROM TALBE WHERE DATE BETWEEN '" & STARTDATE & "' AND '" & ENDDATE & "'"
注意查询文本和时间字段需要单引号在SQL语句中。
另外你使用的是文本格式，请注意你数据库设置的字段格式是什么？
这里出现对象没有初始化，是因为SQL语句错的，RS根本没有被赋值，还是NOTHING。
你再好好研究一下。

㈤ 查询出来的两列数据怎么在mschart控件中显示出来呀

<script
language="javascript">
charts("pillar");
//调用charts()函数
function
charts(type){
if
(type=="pillar"
){
chart.chartType=3;
}
chart.ColumnCount=2;
//ColumnCount是对象chart的属性：表示设置与图表关联的当前数据网格中的列数。
chart.Title=
<%=strdate%>;
//图表标题
chart.rowcount=
<%=counts%>;
//rowcount属性：数据行个数。
chart.row=
<%=i%>;
//row属性：当前数据行
chart.rowlabel="
<%=a(i)%>";
//rowlabel属性：返回/设置一个数据标签，该标签用来标识图表中当前数据点。横坐标值
chart.Data=1;
//Data属性：当前数据点的值。纵坐标值
chart.Data=2;
//Data属性：当前数据点的值。纵坐标值
chart.Footnote="注：纵坐标为价格
横坐标代表日期"
}

㈥ vb中mschart控件的使用如何 连接数据库一个表中记录

亲好几次提问关于mschart控件的使用方法，既然是从新学的话我建议学Tchart控件的使用方法，因为mschart控件使用环境高于Tchart控件，而且Tchart控件易掌握，用的人也较多，故互相交流的大哥大姐也多啊，

㈦ 求指教VB中MSchart控件导入excel数据并画图的程序

首先将你的代码修改如下：

Private Sub Command1_Click()

On Error Resume Next
Set xlapp = GetObject("Excel.Application") '打开正在运行的Excel副本
If Err.Number <> 0 Then
Set xlapp = CreateObject("Excel.Application") '创建一个Excel副本
ExcelWasNotRunning = True
End If
Err.Clear '打开当前目录下的Excel工作簿等级.xlsx
Set xlbook = xlapp.Workbooks.Open("D:界面等级.xls") '以A1作为当前区域的开头,读取该区域的地址
Set xlrng = xlbook.Worksheets(1).Range("A1").CurrentRegion

Dim thisarray(1 To 3, 1 To 3)
Dim i As Integer
Dim level2, level3 As Single

intRows = 3
For i = 1 To intRows '获得行标题(名称)
thisarray(i, 1) = CStr(xlrng.Range("A" & i + 1).Value) '获得其它三列数值字段
level2 = xlrng.Range("B" & i + 1).Value ' 读取二级次数
level3 = xlrng.Range("C" & i + 1).Value '读取三级次数
thisarray(i, 2) = level2
thisarray(i, 3) = level3
MSChart1.ChartData = thisarray
Next

xlbook.Close
Set xlbook = Nothing
xlapp.Quit

End Sub

然后

在vb中点击工程-引用-Microsoft excel library，部件中选择Microsoft chart control ，d盘界面文件夹里新建等级.xls文件，在A1:C4 单元格中随便输入如下，分别如下图

㈧ VB中如何绑定数据到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 rsProcts 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 ProctName, UnitPrice, " & _ "UnitsInStock, UnitsOnOrder FROM Procts WHERE SupplierID = 1" ' 打开记录集。 rsProcts.Open strQuery, cn, adOpenKeyset ' 将 DataSource 设置为该记录集。 With MSChart1 .ShowLegend = True Set .DataSource = rsProcts End WithEnd Sub

㈨ VB MSChart 控件用法

PrivateSubCommand1_Click()
DimarrData(3,1To3)
arrData(1,1)=""&2012&""'在第一列设置标签。
arrData(2,1)=2013
arrData(3,1)=2014

arrData(1,2)=8
arrData(2,2)=4
arrData(3,2)=0.3

arrData(1,3)=0.2
arrData(2,3)=3
arrData(3,3)=6.3
MSChart1.ChartData=arrData

EndSub

㈩ VB中如何通过查询Access数据库，利用Mschart显示数据图

在这里给出完整的代码，显然不太可能，涉及到你是VB什么版本，ACCESS是什么版本，数据库名以及数据表以及数据表结构。思路：

1，要连接数据库并返回记录集，获得数据。

2，设置Mschart的数据源为上述获得的记录集。

我给你一个VB6的例子，请看附件。