@Code
Dim db = Database.Open("SmallBakery")
Dim dbdata = db.Query("SELECT Name, Price FROM Product")
Dim myChart = new Chart(600,400) ' 建立一個 600x400 畫素的圖表
myChart.AddTitle("產品銷售")
myChart.AddSeries("員工","column",,,,,dbdata,"Name",dbdata,"Price")
myChart.Write() ' 將圖表輸出
End Code