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

下载后可任意编辑Private Sub Command1_Click() On Error Resume Next Dim i As Integer Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lwl.mdb" 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 .Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint Next If rs.RecordCount > 0 Then rs.MoveFirst Else Exit Sub End If 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 WithEnd Sub下载后可任意编辑Private Sub Command2_Click() '下列示例设置图表查看距离和轴分段间距。 ' Change the chart type to 3D Bar. MSChart...