VB調(diào)用數(shù)據(jù)庫數(shù)據(jù)畫mschart折線圖

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

2、select * from lwl, conn, adopenkeyset, adlockoptimistic set mschart1.datasource = rs with mschart1 / 以線條方式顯示 .charttype = 3 / 把刻錄改為手工方式 .plot.axis(vtchaxisidy).valuescale.auto = false / 設(shè)置最大值 .plot.axis(vtchaxisidy).valuescale.maximum = 1000 / 設(shè)置最小值 .plot.axis(vtchaxisidy).valuescale.minimum = 0 / 設(shè)

3、置每格為 1 .plot.axis(vtchaxisidy).valuescale.minordivision = 1 / 設(shè)置收入和兼職收入總列數(shù) .columncount = 2 /軸坐標(biāo)標(biāo)題 .plot.axis(vtchaxisidx, 0).axistitle = 日期 .plot.axis(vtchaxisidy, 0).axistitle = 收入 /軸坐標(biāo)標(biāo)題字體大小的設(shè)置 .plot.axis(vtchaxisidx, 0).axistitle.vtfont.size = 15 .plot.axis(vtchaxisidy, 0).axistitle.vtfont.size

4、= 25 /設(shè)置圖表標(biāo)題 .title.text = 日期和收入對應(yīng)折線圖 / 顯示圖例說明 .showlegend = true / 標(biāo)記每個點的值 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

5、.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 subprivate sub command2_click() 下列示例設(shè)置圖表查看距離和軸分段間距。 change the chart type to 3d bar. mschart1.charttype = vtchcharttype3dbar with mschart1.plot changes 3d bar charts viewing. .depthtoheightratio = 2 .widthtoheightratio = 2 changes the spacing between divisions on the x-axis. .xgap = 0 changes the