VB利用大量数据绘制折线图实例.docVIP

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