VB中如何从Access数据库中提取出一个月温度数据并绘制成月曲线

以下是vb从数据库中提取每日对应的温度曲线图代码。

Private Sub Command1_Click()

Dim i   As Integer

Dim conn  As New ADODBConnection

Dim rs     As New ADODBRecordset

Set conn = New ADODBConnection

Set rs = New ADODBRecordset

connConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\tepmdb"

connOpen

rsOpen "select    from  mrwdb", conn, adOpenKeyset, adLockOptimistic

'  Set MSChart1DataSource = rs

With MSChart1

'// 以线条方式显示

chartType = 3

'// 把刻录改为手工方式

PlotAxis(VtChAxisIdY)ValueScaleAuto = False

'// 设置最大值

PlotAxis(VtChAxisIdY)ValueScaleMaximum = 50

'// 设置最小值

PlotAxis(VtChAxisIdY)ValueScaleMinimum = 0

'// 设置每格为 1

PlotAxis(VtChAxisIdY)ValueScaleMinorDivision = 1

'// 增加测试数据

ColumnCount = 1

'//轴坐标标题

PlotAxis(VtChAxisIdX, 0)AxisTitle = "日期"

PlotAxis(VtChAxisIdY, 0)AxisTitle = "温度"

'//轴坐标标题字体大小的设置

PlotAxis(VtChAxisIdX, 0)AxisTitleVtFontSize = 15

PlotAxis(VtChAxisIdY, 0)AxisTitleVtFontSize = 25

'//设置图表标题

TitleText = "日期和温度对应折线图"

'// 将图表作为图例的背景。

ShowLegend = False

'// 标记每个点的值

For i = 1 To PlotSeriesCollectionCount

PlotSeriesCollection(i)DataPoints(-1)DataPointLabelLocationType = VtChLabelLocationTypeAbovePoint

Next

If rsRecordCount > 0 Then

rsMoveFirst

Else

Exit Sub

End If

For i = 0 To rsRecordCount - 1

RowCount = rsRecordCount

Row = i + 1

RowLabel = CStr(rs("日期"))

Data = rs("温度")

rsMoveNext

Next

End With

End Sub

最终调试效果图如下：

以上就是关于VB中如何从Access数据库中提取出一个月温度数据并绘制成月曲线全部的内容，包括:VB中如何从Access数据库中提取出一个月温度数据并绘制成月曲线、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！