Ajouter automatiquement + 1 dans un champ [Résolu]

Signaler
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
bonjour
VB9 + ACCESS
à l'aide de se code j'ajoute des données dans ma table


 cmd.Connection = cn
cmd.CommandType = CommandType.Text
cmd.CommandText = "insert into Region(numreg,nomreg)values(" & TextBox1.Text & ",'" & TextBox2.Text &
"')"
cmd.ExecuteNonQuery()




le champ numreg  = type de donnée numérique
le champ nomreg  = type de donnée texte
comment faire pour ajouter automatiquement + 1 dans le champ "numreg" à chaque envoi
pour ne plus marquer un chiffre dans le textbox1
mais je ne veut pas changer mon type de données dans le champ "numreg"
le champ numreg  = type de donnée numérique

3 réponses

Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
Re
j'ai touver se code et je l'est adapter pour mon prog,et ça fonctionne.

Dim cmd
As OleDbCommand =
New OleDbCommand(
"select max(Num_ctr) from centre_a‚r‚", DBcnn)

Dim num
As
Integer
Try
num = cmd.ExecuteScalar + 1

Catch
num = 1

End
Try
cmd.CommandText = _

"insert into centre_a‚r‚ (Num_ctr,nomenfant_ctr,prenomenfant_ctr,caf_ctr,pere_ctr,mere_ctr,commune_ctr) values (" & num.ToString &
",'" & txbNom.Text &
"','" & txbPrenom.Text &
"','" & txbCaf.Text &
"','" & txbPere.Text &
"','" & txbMere.Text &
"','" & cbxCommune.Text &
"'" &
" )"
cmd.ExecuteNonQuery ()

@ plus
petchy
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
28
salut

normalement tu devrais mettre un num auto

c'est pas conseillé de metttre du n+1, raison access concurrent
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
Re
oui,je sais que je devrais mettre un num auto;mais avec un num auto il ne prends pas les valeurs par défauts.
si je rajout un champ et que je met une valeur par défaut
avec un num auto cette valeur par défaut ne sras pas insérer dans mon champ.
donc c'est pour cela que je voudrais mettre +1,ou alors si tu as une idée pour qu'il puisse mettre les valeurs par défaut
sans passer par se code
If texbox2.Text = ""Then
 le champ "..."=  "-"
Else
le champ "..."=  texbox2.Text
EndIf
merci
petchy