VB调用数据库数据画mschart折线图.doc

发布时间：2022-06-24 发布人：admin 分类：说明书资料大小：0.20M 资料格式：doc 举报版权申诉

cq524310852-3974463-16359647629154685825.doc.pdf-第1页.png

第1页 / 共6页

cq524310852-3974463-16359647629154685825.doc.pdf-第2页.png

第2页 / 共6页

cq524310852-3974463-16359647629154685825.doc.pdf-第3页.png

第3页 / 共6页

cq524310852-3974463-16359647629154685825.doc.pdf-第4页.png

第4页 / 共6页

cq524310852-3974463-16359647629154685825.doc.pdf-第5页.png

第5页 / 共6页

cq524310852-3974463-16359647629154685825.doc.pdf-第6页.png

第6页 / 共6页

文本预览

Private Sub Command1_Click() On Error Resume Next Dim i As Integer Dim conn As New ADODB.Connection Dim rs Set conn = New ADODB.Connection Set rs = New ADODB.Recordset As New ADODB.Recordset = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lwl.mdb" conn.ConnectionString conn.Open rs.Open "select * from lwl", conn, adOpenKeyset, adLockOptimistic ' Set MSChart1.DataSource = rs With MSChart1 '// 以线条方式显示 .chartType = 3 '// 把刻录改为手工方式 .Plot.Axis(VtChAxisIdY).ValueScale.Auto = False '// 设置最大值 .Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1000 '// 设置最小值 .Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0 '// 设置每格为 1 .Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 1 '// 设置收入和兼职收入总列数 .ColumnCount = 2 '//轴坐标标题 .Plot.Axis(VtChAxisIdX, 0).AxisTitle = "日期" .Plot.Axis(VtChAxisIdY, 0).AxisTitle = "收入" '//轴坐标标题字体大小的设置 .Plot.Axis(VtChAxisIdX, 0).AxisTitle.VtFont.Size = 15 .Plot.Axis(VtChAxisIdY, 0).AxisTitle.VtFont.Size = 25

'//设置图表标题 .Title.Text = "日期和收入对应折线图" '// 显示图例说明 .ShowLegend = True '// 标记每个点的值 For i = 1 To .Plot.SeriesCollection.Count bel.LocationType = VtChLabelLocationTypeAbovePoint .Plot.SeriesCollection(i).DataPoints(-1).DataPointLa Next If rs.RecordCount > 0 Then rs.MoveFirst Else End If Exit Sub For i = 0 To rs.RecordCount - 1 .Column = 1 .RowCount = rs.RecordCount .Row = i + 1 .RowLabel = CStr(rs("日期")) .Data = rs("收入") .ColumnLabel = "收入" '//兼职收入显示 .Column = 2 .Data = rs("兼职收入") .ColumnLabel = "兼职收入" rs.MoveNext Next 线所在列说明文字 End With End Sub '收入曲线所在列 '图例说明文字 '兼职收入曲 '图例

Private Sub Command2_Click() '下列示例设置图表查看距离和轴分段间距。 ' Change the chart type to 3D Bar. MSChart1.chartType = VtChChartType3dBar With MSChart1.Plot ' Changes 3d bar chart's viewing. .DepthToHeightRatio = 2 .WidthToHeightRatio = 2 ' Changes the spacing between divisions on the ' X-Axis. .xGap = 0 ' Changes the spacing between divisions on the ' Z-Axis. .zGap = 0.8 End With End Sub 调试界面显示:

数据库贴图如下:

参考资料来源入 http://msdn.microsoft.com/zh-cn/library/cc436035(VS.71).aspx

分享到：

赞收藏

资料库

VB调用数据库数据画mschart折线图.doc

相关推荐

数据库

热门标签

最新资料