Count 及 Generate 連續既ID 係個 Primary Key 既 Field 上

Private Sub Show_BatchID()
Dim ConnString As String = (Connection String)
Dim Conn As SqlConnection = New SqlConnection(ConnString)
Conn.Open()

'Get Number of Record ( 有幾多隻 Records )
Dim SQL_Statement As String = "SELECT Count(Batch_ID) AS NewID FROM Batch"
Dim cmd As SqlCommand = New SqlCommand(SQL_Statement, Conn)

Dim dr As SqlDataReader = cmd.ExecuteReader()

While (dr.Read())
'Generate New ID
TextBox1.Text = (dr("NewID") + 1).ToString.Trim
End While

Conn.Close()
End Sub