VB net variable stockage

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:

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()

Et la question est?

Code:

1 2 3 4 5 6 7 Dim num As String cmd.Connection = conn cmd.CommandText = "SELECT MAX(INT_NUM_INT)+1 from INTERVENTION" cmd.CommandType = CommandType.Text Dim dr As OracleDataReader = cmd.ExecuteReader() num = doit contenir la valeur du select MAX ici
je veux récupérer le résultat de ma requete dans ma variable num !

:aie::aie:
_____________________________________________________________
JE N'AI QU'UNE CHOSE à DiRE DES VACANCES ME SONT INDISPENSABLES

Code:

1 2 3 4 5 6 Dim num As String cmd.Connection = conn cmd.CommandText = "SELECT MAX(INT_NUM_INT)+1 from INTERVENTION" cmd.CommandType = CommandType.Text num = dr.ToString()
sa devrait ressembler à sa ?!
et normalement dans mon num j'ai la valeur !!
pourquoi ça ne marche pas ???

:aie::aie::aie::aie::aie::aie::aie::aie::aie::aie::evilred:

ce serait pas plutot

Code:

1
2
3
4
5
6
 
 
Dim dr As OracleDataReader = cmd.ExecuteReader()
If dr.Read() Then
  num  = CInt(dr.Item(0))
End If

???

oui merci c'est exactement ce que je voulais

:mrgreen: