在用VB5進(jìn)行數(shù)據(jù)庫(kù)編程時(shí)，經(jīng)常要生成統(tǒng)計(jì)圖形。生成的方法有很多種，最簡(jiǎn)單的是利用VB5提供的MSChart控件。具體操作方法如下：
　　1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”項(xiàng)，選中并應(yīng)用，此時(shí)在工具面板中出現(xiàn)MSChart控件圖標(biāo)。選中它并在新工程的Form1中畫(huà)一矩形，生成MSChart1,即出現(xiàn)缺省狀態(tài)的直方圖。設(shè)其ColumnCount屬性為1。
　　2.利用Access或VB5的可視化數(shù)據(jù)管理器生成一個(gè)example.mdb的數(shù)據(jù)庫(kù)，在其中建一名為temp的數(shù)據(jù)表，包含“日期”和“數(shù)據(jù)”兩個(gè)字段，并在表中輸入一些記錄。
　　3.在Form1中生成一個(gè)Command1按鈕，然后在Private Sub Command1_click()中寫(xiě)入以下代碼：
　　dim i as integer
　 dim NewDyn as recordset
　　dim OpenWs as Workspace
　　dim OpenDB as DataBase
　　set OpenWs=DBengine.Workspaces(0)
　　set OpenDB=OpenWs.Opendatabase(app.path ＆ ″\example.mdb″)
　　set NetDyn=OpenDB.Openrecordset(″select ＊ from temp″,dbOpenSnapShot)
　　NewDyn.MoveLast
　　NewDyn.Movefirst
　　If NewDyn.RecordCount=0 then
　　Msgbox″請(qǐng)?jiān)跀?shù)據(jù)庫(kù)中輸入數(shù)據(jù)!″，vbCritical
　　Exit sub
　　End if
　　With MSChart1
　　.TitleText=″直方圖示例″
　　.RowCount=NewDyn.ReordCount
　　For i=1 to NewDyn.RecordCount
　　.Row=i
　　.Data=NewDyn.Fields(″數(shù)據(jù)″)
　　.Rowlabel=NewDyn.Fields(″日期″)
　　NewDyn.MoveNext
　　Next i
　　End With
　　NewDyn.Close
　　4.運(yùn)行時(shí)按Command1鍵即可生成統(tǒng)計(jì)圖表了。
　　如果想生成其他類型的圖形，修改MSChart1的屬性即可定制成其他各種二維或三維圖表。