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的例子，請看附件。