décidément le VB.net (2005) c'est un peu dur pour moi


voilà dans mon code ,je souhaite récupérer une valeur lors d'une requête
où je demande le numéro maximum de la clé pour pouvoir y ajouter +1
j'ai effectuer un msgBox pour savoir la valeur que je récupere , Hélas j'ai toujours zéro alors que j'ai déjà intégrer deux éléments dans la table
(donc je devrais avoir " 3 " dans ce cas là )

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Dim num As Integer
        cmd.Connection = conn
        cmd.CommandText = "SELECT MAX(INT_NUM_INT) from INTERVENTION"
        cmd.CommandType = CommandType.Text
        Dim dr As OracleDataReader = cmd.ExecuteReader()
        num = CInt(dr.Read()) + 1
        'MsgBox(num.ToString) --->>> cela renvoie 0 alors qu'il me faudrait 1 + MAX(INT_NUM_INT)
        For i As Integer = 0 To Me.List_Intervention.Items.Count()
            If intervention.CompareTo(List_Intervention.Items(i).ToString) Then
                cmd.CommandText = "INSERT INTO INTERVENTION (INT_NUM_INT, INT_LIB_INT) values ('" & num & "','" & intervention & "' )"
                cmd.CommandType = CommandType.Text
                cmd.ExecuteNonQuery()
                List_Intervention.Update()