[حريف برمجة]

مرحبا أخي اكتب الكود التالي في زر عرض البيانات في القريد :

كود :

Dim cmd As New OleDbCommand("CREATE VIEW Poin AS SELECT MyTable.name, Count(MyTable.Result) AS [Total Approval], Switch([Total Approval]=1,1, [Total Approval]=2,2, [Total Approval]=3,3, [Total Approval]=4,5, [Total Approval]=5,8) AS Points FROM MyTable WHERE (((MyTable.Result)='yes')) GROUP BY MyTable.name", Conn)
        Conn.Open()
        cmd.ExecuteNonQuery()
        Conn.Close()
        '''''''''''''''''''''''''''''''''''''
        Dim dp As New OleDbDataAdapter("SELECT MyTable.name, Count(MyTable.subject) AS [Total Subject], Poin.[Total Approval], Poin.Points FROM MyTable INNER JOIN Poin ON MyTable.name = Poin.name GROUP BY MyTable.name, Poin.[Total Approval], Poin.Points", Conn)
        Dim ds As New DataSet
        dp.Fill(ds)
        DGV_StatisticsN.DataSource = ds.Tables(0)
        '''''''''''''''''''''''''''''''''''''
        cmd.CommandText = "drop VIEW Poin"
        Conn.Open()
        cmd.ExecuteNonQuery()
        Conn.Close()

يعطيك الناتج اللي طلبته ،، تحياتي ،،