文档库 最新最全的文档下载
当前位置:文档库 › fusionchart控件在vb中的应用连接数据库

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

fusionchart控件在vb中的应用连接数据库
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

程序运行结果如下:

相关文档