Incrementation sous vb6
nadine
-
nadium -
nadium -
bonjour
dans une table access , j ai entre autres un champ appelé "rang"type integer , qui concerne un numero qui change chaque mois , j ai 320 enregistrements , et chaque mois je suis obligée de saisir 320 numeros qui se suivent à partir d un nombre qu on me precise , par exemple ce mois en m a donné comme 1er nombre 120 alors je parcours chaque enregistrement et je saisi pour le premier 120 , le deuxieme 121 le 3eme 122 ...etc jesqu au 320eme enregistrements :-( je voudrais svp , un code vb6 qui me demanderait par exemple le 1er numero et il incremente automatiquement pour les autres , j ajoute que le champ "rang " n est pas une clé il est ordinaire !
merci pour toute tentative d aide
dans une table access , j ai entre autres un champ appelé "rang"type integer , qui concerne un numero qui change chaque mois , j ai 320 enregistrements , et chaque mois je suis obligée de saisir 320 numeros qui se suivent à partir d un nombre qu on me precise , par exemple ce mois en m a donné comme 1er nombre 120 alors je parcours chaque enregistrement et je saisi pour le premier 120 , le deuxieme 121 le 3eme 122 ...etc jesqu au 320eme enregistrements :-( je voudrais svp , un code vb6 qui me demanderait par exemple le 1er numero et il incremente automatiquement pour les autres , j ajoute que le champ "rang " n est pas une clé il est ordinaire !
merci pour toute tentative d aide
9 réponses
-
-
-
Bonjour , y'a pleins de possibilités,
il faut faire un formulaire sous vb6 , par exemple la variable "numero" qui correspond au numero du "1er enregistrement" dans le champ rang de ta table access et ensuite de faire une recherche (une requete) dans ta table en utilisant par exemple Ado , ou autre . et apres tu fait une chtite boucle pour mettre a jour les enregistrement que t'aura incrementé .
bon c bien jolie la theorie , si tu veux plus d'infos bnadium@voila.fr
envoie moi ta table access , j'pourai te faire un exemple concret -
merci ++ ma table est constituée de 3 champs :
codepers type integer 6 octets (la clé prim)
nom prenom caractère 35
rang integer
merci encore -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
-
-
Le voili le voilà :
http://devium.free.fr/ccm_nadine_forum_prgm_vb6_26_09_03.zip -
si ça ne marche pas , c peut etre a cause du chemin de ta base , donc il faut redeterminer le cheminde la base dans les controles Adodc1 et de Nombre_Enregistrement ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb;Persist Security Info=False
a la place de "C:\base.mdb" , met le chemin de ta base...
voili voilà , @+ si tu veux d'autres info chuis là
@plouche -
voilà le code pour les controles voir dans le zip !
'Hello nadine 'j'espere que ça te convient comme prgm ':O) 'Nadium®2003 Private Sub Command1_Click() 'ouverture Set rsMiseAJour = New ADODB.Recordset 'requete rsMiseAJour.Open "SELECT rang FROM Table1", Cnx, adOpenDynamic, adLockOptimistic 'lecture rsMiseAJour.MoveFirst Var = Trim(numero.Text) - 1 Do While Not rsMiseAJour.EOF Var = Var + 1 'mise à jour de l'enregistrement en cours.. rsMiseAJour!rang = Var 'suivant rsMiseAJour.MoveNext Loop 'fermeture de la connexion rsMiseAJour.Close MsgBox "cliker sur actualiser ! pour visualiser les modifications!" End Sub Private Sub Command2_Click() 'fermer Unload Me End Sub Private Sub Command3_Click() 'rafraichir Adodc1.Refresh DataGrid1.Refresh End Sub Private Sub Form_Load() 'Connnexion a la base base.mdb Set Cnx = New ADODB.Connection Cnx.Provider = "Microsoft.jet.Oledb.4.0" Cnx.ConnectionString = App.Path & "\base.mdb" Cnx.Open End Sub
