1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Sequence

Signaler
Messages postés
8
Date d'inscription
vendredi 19 février 2010
Statut
Membre
Dernière intervention
22 novembre 2010
 -
Messages postés
2
Date d'inscription
lundi 23 mars 2009
Statut
Membre
Dernière intervention
2 septembre 2010
 -
Bonjour,
qq peut m'aider: mon problème est que j'ai crée une séquence sous oracle 10g
et lorsque je tape le code suivant en vb.net2008 l'exception indexOutOfRange est déclenchée:
Call ouvrirconnexion()
Rsql = "select seq_num.nextval from dual"
Cmd.CommandType = CommandType.Text
Cmd.CommandText = Rsql
DR = Cmd.ExecuteReader()
If DR.HasRows Then
Wnum.Text = DR.Item("seq_num")
End If

Call fermerconnexion()

1 réponse

Réponse 1 / 1
Messages postés
2
Date d'inscription
lundi 23 mars 2009
Statut
Membre
Dernière intervention
2 septembre 2010
Bonjour,
teste ce bot de code :

Call ouvrirconnexion()

Rsql = "select seq_num.nextval from dual"
Cmd.CommandType = CommandType.Text
Cmd.CommandText = Rsql
dr= Cmd.ExecuteReader()

while (dr.read())
Wnum.Text = Cstr(dr.getint32(0))
End while

Call fermerconnexion()
Répondre Posez votre question