Retour nombre maximum d'identification à partir d'une base de données

Question

Ceci est probablement une chose facile à faire, mais je ne fais que faire mon premier projet vb donc je ne suis pas sûr comment faire 100%, donc des excuses à l'avance si le problème suivant est en fait très simple.

Fondamentalement, ce que je dois faire est, lors du chargement d'une table de base de données dans un UltraGrid, je dois récupérer l'entier maximal qui est stocké dans un champ. Pour expliquer cela plus clairement, chaque enregistrement dans la base de données a son propre numéro d'identification, donc j'ai besoin d'itérer chaque enregistrement et de trouver celui avec le numéro d'identification le plus élevé, et retourner l'ID, de sorte que cela peut alors être utilisé dans d'autres calculs.

Je sais que je peux utiliser SQL = SELECT MAX(supportID) FROM tblIncidents par exemple pour récupérer le plus grand nombre d'ID stocké dans ce tableau. Alors, comment dois-je déclarer le résultat de ceci (donc, le numéro d'identification le plus élevé) comme variable de sorte que je puisse d'abord l'afficher dans un messagebox pour me prouver que la requête a fonctionné, et deuxièmement Je peux utiliser la variable comme moyen d'utiliser l'identifiant dans tout mon code?

Un exemple; C'est le code pour enregistrer un nouvel enregistrement dans la table tblIncidents.

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click 

    Dim incidentSolved As Boolean = False 
    If cboxSolved.Checked Then 
     incidentSolved = True 
    End If 

    If txtClientSave.Text = "" Then 
     MsgBox("Client name cannot be blank") 

    ElseIf rtbProblem.Text = "" Then 
     MsgBox("Problem cannot be blank") 

    ElseIf cboxSolved.Checked = True And rtbSolution.Text = "" Then 
     MsgBox("Please enter solution") 

    Else 
     database.SaveNewIncident(txtClientSave.Text, dtpStart.Value, dtpEnd.Value, rtbProblem.Text, dtpStartTime.Value, dtpEndTime.Value, cboxSolved.Checked, rtbSolution.Text, _con) 

     txtClientSave.Text = "" 
     rtbProblem.Text = "" 
     rtbSolution.Text = "" 
     dtpStart.Value = Date.Today 
     dtpEnd.Value = Date.Today 
     dtpStartTime.Value = DateTime.Now 
     dtpEndTime.Value = DateTime.Now 
     cboxSolved.Checked = False 

    End If 
End Sub 

fonction de base de données qui est appelée

Public Shared Function SaveNewIncident(ByVal clientName As String, dateStart As Date, dateEnd As Date, ByVal incidentProblem As String, ByVal timeStart As String, ByVal timeEnd As String, 
             ByVal incidentSolved As Boolean, ByVal incidentSolution As String, _Con As OleDbConnection) 

    Dim tr As OleDbTransaction = Nothing 

    Try 
     tr = _Con.BeginTransaction() 

     Dim Dc As New OleDbCommand 
     Dc.Connection = _Con 

     Dc.CommandType = CommandType.Text 
     Dc.CommandText = "INSERT INTO dbo.tblIncidents VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?)" 
     Dc.Transaction = tr 
     Dc.Parameters.Add("@clientName", OleDbType.VarChar).Value = clientName 
     Dc.Parameters.Add("@dateStart", OleDbType.Date).Value = dateStart 
     Dc.Parameters.Add("@dateEnd", OleDbType.Date).Value = dateEnd 
     Dc.Parameters.Add("@incidentProblem", OleDbType.LongVarChar).Value = incidentProblem 
     Dc.Parameters.Add("@timeStart", OleDbType.VarChar).Value = timeStart 
     Dc.Parameters.Add("@timeEnd", OleDbType.VarChar).Value = timeEnd 
     Dc.Parameters.Add("@incidentSolved", OleDbType.Boolean).Value = incidentSolved 
     Dc.Parameters.Add("@incidentSolution", OleDbType.LongVarChar).Value = incidentSolution 

     Dc.ExecuteNonQuery() 

     tr.Commit() 

     MsgBox("Save successful") 

    Catch ex As Exception 

     mdInit.errorLog(ex.Message, ex.StackTrace) 
     MsgBox("Failed to save data, refer to error log") 
     tr.Rollback() 

    End Try 

End Function 

Answer 1

ce que vous pouvez faire dans VB.net est de définir une sqlCommand qui nécessitera une connexion SQL attachée à elle - puisque votre requête renvoie une seule valeur que vous voulez être en mesure d'exécuter avec ExecuteScalar pour renvoyer une seule valeur, par exemple

Dim cmd AS New SqlClient.SQLCommand("SELECT MAX(billID) FROM tblRecurring",connectionString) 

puis

cmd.connection.open 

puis

dim x as MaxId = cmd.executeScalar 

et terminer avec

cmd.connection.dispose 

bien sûr