fusionchart.ocx在vb中的应用
*连接SQL
下面是源代码:
Private Sub Database_Click()
' Variable to store chart parameters
Dim chartParameters As String
chartParameters = "showValues=0;caption=Business Results 2007 v
2008;xAxisName=Month;yAxisName=Revenue;numberPrefix=$"
' Connection variable
Dim connection As ADODB.Connection
' Recordset variable
Dim dbRecordSet As ADODB.Recordset
' Connection string and SQL command variable
Dim strSQL As String
Dim connString As String
connString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\factorydb.mdb;" & "Persist Security Info=False"
' Initializing Connection
Set connection = New ADODB.Connection
' Connects to database
Call connection.Open(connString)
' Initializing Recordset
Set dbRecordSet = New ADODB.Recordset
' Setting recordset parameter
With dbRecordSet
.ActiveConnection = connection
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
End With
' SQL command
strSQL = "SELECT * FROM MSCommon"
' Passing SQL command to recordset
Call dbRecordSet.Open(strSQL)
' Passing Chart Parameters
Call FusionCharts1.Data.setChartParams(chartParameters)
' Changes Chart Type to MSColumn3D
FusionCharts1.ChartType = MSColumn3D
' Adds category names from database
Call FusionCharts1.Data.addCategoryFromDatabase(dbRecordSet, "Months")
' Adds datasets series names manually
Call FusionCharts1.Data.addDataset("2008")
' Adds data for datasets (2008)
Call FusionCharts1.Data.addDataFromDatabase(dbRecordSet, "2008")
' Adds datasets series names manually
Call FusionCharts1.Data.addDataset("2007")
' Adds data for datasets (2007)
Call FusionCharts1.Data.addDataFromDatabase(dbRecordSet, "2007")
' Calls render chart method
FusionCharts1.RenderChart
End Sub
程序运行结果如下: