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

  • 0
  • 0
  • 约1.91千字
  • 约 3页
  • 2016-11-26 发布于重庆
  • 举报

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

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

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 程序运行结果如下:

文档评论(0)

1亿VIP精品文档

相关文档