如何取得字段最大值，然后复制给一个定义数，我是这样写的，但是不知道怎么取得了，在线急等用，谢谢

Question

Dim IOAConn = ConfigurationSettings.AppSettings("IOAConn")
        Dim conn As New SqlClient.SqlConnection(IOAConn), sql
        Dim cmd As New SqlClient.SqlCommand
        sql = "select max(ID)as ID from wenzhong"
        'Dim IOADataTable As New DataTable
        'IOADataTable.Select("max(ID) as ID")
        cmd.CommandText = sql
        cmd.Connection = conn
        cmd.Connection.Open()
        cmd.ExecuteReader()
        Dim ID = cmd】后面怎么写？？

Answer 1

cmd.ExecuteReader()改为dim intMaxIDValue As Integer=cmd.ExecuteScaler()

Answer 2

Dim conn As New SqlClient.SqlConnection(IOAConn), sql
        Dim cmd As New SqlClient.SqlCommand
dim reader as sqlclinent.sqldatareader
        sql = "select max(ID)as ID from wenzhong"
        'Dim IOADataTable As New DataTable
        'IOADataTable.Select("max(ID) as ID")
        cmd.CommandText = sql
        cmd.Connection = conn
        cmd.Connection.Open()
        reader=cmd.ExecuteReader()
if reader.read then
  string str=reader.Item(0)
end if