fusionchart控件在vb中的應用连接数据库.docxVIP

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.RenderChartEnd Sub  程序运行结果如下：