[حريف برمجة]

العفو اخوي ،

تفضل الكود كامل

كود :

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