Advertisement
Advertisement
| 08.05.2008 at 11:27AM PDT, ID: 23623273 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: |
Dim SQLStr As String
Dim SQLConn As New SqlConnection()
Dim SQLCmd As New SqlCommand()
Dim SQLdr As SqlDataReader
Dim indData As New DataTable
Dim indArray(4) As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
sortByInd()
GridView1.AutoGenerateColumns = False
GridView1.DataSource = indData
GridView1.DataBind()
Catch ex As Exception
Label1.Text = ex.ToString
End Try
End Sub
Private Sub sortByInd()
Try
SQLConn.ConnectionString = SqlDataSource1.ConnectionString
SQLCmd.CommandText = "SELECT Username, TotalQuestions, CorrectQuestions, School FROM [Users] ORDER BY CorrectQuestions"
SQLCmd.Connection = SQLConn
SQLConn.Open()
SQLdr = SQLCmd.ExecuteReader
indData.Columns.Add("Username")
indData.Columns.Add("Total")
indData.Columns.Add("Correct")
indData.Columns.Add("Percentage")
indData.Columns.Add("School")
While SQLdr.Read()
indArray(0) = (SQLdr(0))
indArray(1) = (SQLdr(1))
indArray(2) = (SQLdr(2))
indArray(3) = (SQLdr(2) / SQLdr(1))
indArray(4) = (SQLdr(3))
indData.Rows.Add(indArray)
End While
Label1.Text = indData.Rows.Count & indData.Columns.Item(1).ToString & indData.Rows.Item(3).Item(0)
Catch ex As Exception
Label1.Text = ex.ToString
End Try
End Sub
|