Question

急！！！vb数据库画折线图程序求修改，通过奉献全部分！！！

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

Answer 1

数据东西发过来我给你调式17414259@qq.com

"只是想将得到的两组数据通过画图保存"?
你最根本的目的是什么？
是需要一个可以处理不同数据每次产生相应图表的程序还是就需要这个图表？为什么不用Excel做呢？它也可以实现自动化，所得图表还可以更放便的用于各处