ms栏中最大的值访问并在文本框VB.NET中显示

Question

如何在访问表的列中找到最大值。 并显示在文本框中。 我给101作为列的默认值，表为空。 我尝试这样。。但是它不起作用。 代码如下

Dim empid As Integer
empid=101
TXTEMPID.Text=empid
getConnect()
    Dim strSQL As String = "SELECT MAX(EMP_ID) FROM EMPLOYEE "
    Dim cmd As OleDb.OleDbCommand
    Dim Reader As OleDb.OleDbDataReader
    cmd = New OleDb.OleDbCommand(strSQL, Conn)
    Try
        Conn.Open()
        Reader = cmd.ExecuteReader()
        If Reader.Read Then
            empid = CInt(Reader("EMP_ID"))
        End If
        MessageBox.Show(empid)
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        Conn.Close()
    End Try
    TXTEMPID.Text = empid + 1

Answer 1

如果表为空，则因为表根本不包含任何值，所以没有“最大值”。

编辑

啊好吧。 听起来您似乎为一个空表而DMax("EMP_ID","YourTable") ，对于一个空表，像DMax("EMP_ID","YourTable")这样的表达式将返回Null ，而Null + 1将返回Null ，那么如何开始呢？ 您可以尝试类似...

Me.txtEMP_ID.Value = Nz(DMax("EMP_ID","YourTable"), 100) + 1

...在Form Load事件中，尽管我应该提到这种类型的方法可能会导致问题，因为您的数据库是（或将来会成为）多用户。

Answer 2

这是查询

Select Top 1 MAX(col 2), col1 from Table1 group by col1

获得您必须执行的结果

Dim cnnOLEDB As New OleDbConnection
Dim cmdOLEDB As New OleDbCommand
Dim strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &    System.Environment.CurrentDirectory & "\URDataBaseName.mdb"
cnnOLEDB.ConnectionString = strConnectionString
cnnOLEDB.Open()

cmdOLEDB.CommandText ="Select Top 1 MAX(col 2), col1 from Table1 group by col1"
cmdOLEDB.Connection = cnnOLEDB

txtbox.text = cmdOLEDB.ExecuteScalar().ToString()

ExecuteScalar执行查询，并返回查询返回的结果集中第一行的第一列。 其他列或行将被忽略

Answer 3

我像下面这样更改我的代码。

 getConnect()
    Conn.Open() 
    Dim str As String
    Dim newNumber As Integer
    str = "SELECT MAX(EMP_ID) AS MAXIMUM FROM EMPLOYEE"
    Dim cmd As OleDbCommand = New OleDbCommand(str, Conn)
    Dim dr As OleDbDataReader
    dr = cmd.ExecuteReader
    If dr.HasRows Then
        While dr.Read()
            TXTEMPID.Text = dr("MAXIMUM").ToString
            newNumber = CInt(Val(TXTEMPID.Text))
            If newNumber = 0 Then
                newNumber = 101
                TXTEMPID.Text = CStr(newNumber)
            Else
                newNumber = newNumber + 1
                TXTEMPID.Text = CStr(newNumber)
            End If
        End While
    End If
    Conn.Close() 

谢谢大家重播并评论我的问题