Получить максимальное значение в базе данных

Question

Dim elem As String 
    elem = "College" 
    Dim conn As New SqlClient.SqlConnection 
    With conn 
     .ConnectionString = ("SERVER=ANINGDZTS-PC;DATABASE=AEVS_2013;Trusted_Connection = yes;") 
     .Open() 
    End With 

    Dim cmd As New SqlClient.SqlCommand 
    With cmd 
     .CommandText = "SELECT [PositionID],[Position],[Partylist],[Department],[Fullname],[Lvl],[Section],[Votes] FROM tbl_Cand WHERE [Department] = '" & elem & "'" 
     .CommandType = CommandType.Text 
     .CommandTimeout = 30 
     .Connection = conn 
    End With 
    Dim dt As New DataTable 
    dt.Load(cmd.ExecuteReader) 

    With DataGridView1 
     .AutoGenerateColumns = True 
     .DataSource = dt 
    End With 
    vvv() 

    cmd.Dispose() 
    cmd = Nothing 
    conn.Dispose() 
    conn = Nothing 

Это мой код для просмотра всех кандидатов, но я хочу получить только имя и голос человека, у которого есть самые высокие накопленные голоса. Например, у президента у меня есть 2 кандидата, но я хочу только посмотреть, кто имеет самые высокие накопленные голоса.

Answer 1

Похоже, вам просто нужно изменить свою инструкцию sql, чтобы найти максимальное значение. Нечто подобное должно работать:

.CommandText = "SELECT TOP 1 [PositionID],[Position],[Partylist],[Department],[Fullname],[Lvl],[Section],[Votes] FROM tbl_Cand WHERE [Department] = '" & elem & "'" ORDER BY [Votes] DESC 

Он выбрать только одну запись (TOP 1) и упорядочивает результаты по колонке Голосования, так что вы получите самый высокий показатель голосов.