¹ØÓÚmschart ºÍ access µÄÎÊÌâ

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load     
      Call accessdelete()
      Dim sConn As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=tu.mdb"
      Dim myConnection As New OleDbConnection(sConn)
        Dim myCommand As String = "Select * from tu"
      myConnection.Open()
        Dim custDA As New OleDbDataAdapter(myCommand, myConnection)
        Dim custDS As New DataSet()
        custDA.Fill(custDS, "tu")
        Dim firstView As New DataView
        firstView = custDS.Tables("tu").DefaultView

        Chart1.Series("A°à").Points.DataBindXY(firstView, "ÈÕÆÚ", firstView, "A")
        Chart1.Series("B°à").Points.DataBindXY(firstView, "ÈÕÆÚ", firstView, "B")
        Chart1.Series("C°à").Points.DataBindXY(firstView, "ÈÕÆÚ", firstView, "C")

        custDS.Clear()
        custDS.Dispose()
        custDA.Dispose()

      &nb