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

最新推荐文章于 2024-03-09 11:38:13 发布

原创

最新推荐文章于 2024-03-09 11:38:13 发布 · 1.7k 阅读

9 ·

CC 4.0 BY-SA版权

本文详细介绍了如何通过VBA在Visual Basic中利用ADODB连接Access数据库，获取数据并用MSChart1创建折线图，展示了日期与收入的关系。包括设置图表类型、坐标轴、标题、图例及数据点标签等关键步骤。

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

&