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 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

调试界面显示:

 

数据库贴图如下: