pb d'insertion auto

Question

Bonjour à tous, voilà j'ai un pb.j'ai crée une petite application de gestion de livre avec un ID.Mon pb est que je n'arrive pas à faire une insertion auto du champ ID.

Le truc c'est qu'il faudrait aller rechercher le dernier n° (ID) et faire + 1.

J'arrive bien a récuperer le n°  dans une TextBox mais je sais pas faire +1 dans une autre TextBox
j'utilise un control ADODC pour faire la liaison avec ma BDD

Private Sub Text2_Change()
AdoId.Recordset.MoveLast
End Sub

Private Sub TxtNbr_Change()
Dim ID As Integer
ID = Val(Text2.Text) + 1
TxtNbr.Text = ID
End Sub

Qui pourrait m'aider ???

config: 
VB6
Xp pro sp2
AMD 2700+ 64bits
1024DDR

merci

PCPT · Answer

salut,
d'une part, un ID auto-incrémenté, çà existe. c'est une option pour ton champ (donc dans ta base, pas par code).

si pour une raison quelconque tu veux le gérer toi-même (pourquoi pas...), alors regarde ton code :

quand TxtNbr change (donc jamais d'après le code indiqué, sauf en cas de modification manuelle), alors tu lis/crées l'ID suivant. et cet ID tu le mets dans TxtNbr, donc qui va re-déclencher l'évènement Change, qui va re-générer le même ID (puisque tu relis le Text2.Text), etc... et là tu pars dans une boucle infernale.... avec le même résultat, mais boucle quand même....

pour "Val", c'est ok. sinon ensuite il faudrait TxtNbr.Text = cstr(ID)

mais çà ne change rien : ton calcul ne doit pas être dans l'évènement Change
++
PCPT  [AFCK]

PCPT · Answer

ps : pour un nouveau (3 messages), çà fait vraiment plaisir de lire une question propre, bien expliquée, avec IDE OS etc indiqués.
fallait le dire...
donc là c'est moi qui te remercie de cette clareté
++

ben272 · Answer

Merci bcp. Mais mnt je fais comment avec la base de donnée access MDB version7 pour inserer l'ID auto.

Jai crée la base de donnée vie le menu complement de VB6.

PCPT · Answer

salut,
je n'ai jamais géré comme çà...
lors de la création, la base a été placée à un endroit spécifié. tu as access?
je viens d'essayer, base7 doit correspondre à Access97 (que tu peux convertir normalement sans altérer le code).

si tu as access, je pourrai t'indiquer (j'ai Access 2000). sinon beh... va falloir chercher^^

ben272 · Answer

Oui j'ai access (2003) sur le pc.

PCPT · Answer

ok. je te montre la démarche en temps réel....

access -> nouvelle base "bd1.mdb" sur le bureau (rappel : sous Access 2000)
onglet table -> doucle click sur "Créer une table en mode création"
premier champ "ID_Tst"
2e champ "Lib_Tst"

je sélectionne le 1er champ -> click droit / Clé primaire
Fermer -> voulez-vous enregistrer OUI : "Table_Tst"
les 2 champs ont donc : Type de données "Texte"
je la ré-ouvre en mode création, je sélectionne le type de données du champ "ID_Tst", la zone de texte se transfome en combo dans lequel je sélectionne "NuméroAuto"
et voilà. par défaut dans la rubrique indéxé il est en "Oui - Sans doublons", c'est parfait.

tu sais tout. 

NB : j'ai par exemple 3 occurences
1 "truc"
2 "machin"
3 "bidule"

si je supprime 2, le nouveau ne sera pas 2 mais 4. (un ID supprimé n'est plus utilisable)

++
PCPT   [AFCK]

ben272 · Answer

Merci bcp pour ton aide, je vais pouvoir avancer un peu dans mon soft.

et longue vie à PCPT.

PCPT · Answer

pense à valider (réponse acceptée là où çà correspond)
bon courage

Pb d'insertion auto

8 réponses

Votre réponse

Discussions similaires