Public Sub BindChart()
Using conss As New SqlConnection(_start)
Dim ds As New DataSet()
Dim dt As New DataTable()
Dim cmdstr As String = "SELECT DISTINCT DATENAME(mm, BID.Date) AS Month,COUNT(BID.BidID) AS TotalBid FROM BID INNER JOIN Auction ON BID.AuctionID = Auction.AuctionID INNER JOIN Item ON Auction.ItemID = Item.ItemID INNER JOIN Seller ON Item.SellerID = Seller.SellerID INNER JOIN Member ON Seller.MemberID = Member.MemberID GROUP BY DATENAME(mm, BID.Date)"
Dim mycommand As New SqlCommand(cmdstr, conss)
conss.Open()
mycommand.Parameters.AddWithValue("@username", Session("user"))
Dim adp As New SqlDataAdapter(cmdstr, conss)
adp.Fill(ds)
dt = ds.Tables(0)
Dim x As String() = New String(dt.Rows.Count - 1) {}
Dim y As String() = New String(dt.Rows.Count - 1) {}
...
Go to the complete details ...