Discussion :

[tro2blabla]

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

[Faladin]

Et la question est?

[tro2blabla]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !


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

[tro2blabla]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ???

[Philippe Vialatte]

ce serait pas plutot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

???

[tro2blabla]

oui merci c'est exactement ce que je voulais