incrementation sous vb6 Fermé

Question

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

nadium · Answer

Bonjour ,

nadine · Answer

merci pour le bonjour :-) mais tu sais ca resoud pas grand chose !merci tt de meme

nadium · Answer

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

nadine · Answer

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

nadium · Answer

je te fais un exemple....

nadine · Answer

merci ++ ça serait fort sympa

nadium · Answer

Le voili le voilà :http://devium.free.fr/ccm_nadine_forum_prgm_vb6_26_09_03.zip

nadium · Answer

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

nadium · Answer

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

Incrementation sous vb6

9 réponses

Discussions similaires

Newsletters