获取数据库中的最大值

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），并下令由得票数列的结果，这样你会得到最高票纪录。