[DOX.1]

(08-08-18, 10:02 PM)هذا أجراء مخزن كتب :

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       lodeData()
   End Sub
   Private Sub lodeData()
       Me.Chart1.DataSource = GetData()
       Me.Chart1.Series("Series1").XValueMember = "Dper "
       Me.Chart1.Series("Series1").YValueMembers = "Total"
   End Sub

   Private Function GetData() As DataTable
       Dim dtChart As New DataTable()

       Dim connCart As New SqlConnection("Data Source=.;Initial Catalog=DB_Dat;Integrated Security=True")


       Dim cmd As New SqlCommand("Usp_Chart", connCart)
       cmd.Connection = connCart
       cmd.CommandType = CommandType.StoredProcedure
       connCart.Open()
       Dim sqldatared As SqlDataReader = cmd.ExecuteReader()
       dtChart.Load(sqldatared)


       Return dtChart
   End Function

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       lodeData()
   End Sub

الأجراء المخزن

كود :

ALTER proc [dbo].[Usp_Chart]
as
begin
        select COUNT(ID) * 1.0 /(select COUNT(*) from  dbo.TBLN) as 'Total' ,Dper as 'Dper'
        from dbo.TBLN
        group by Dper
    
    end