Une simple opération sous VB:à vot bon coeur!
Fermé
Isfaen
-
3 juin 2010 à 11:07
lys44 Messages postés 57 Date d'inscription mardi 25 mai 2010 Statut Membre Dernière intervention 21 mars 2011 - 3 juin 2010 à 14:54
lys44 Messages postés 57 Date d'inscription mardi 25 mai 2010 Statut Membre Dernière intervention 21 mars 2011 - 3 juin 2010 à 14:54
A voir également:
- Une simple opération sous VB:à vot bon coeur!
- Vb - Télécharger - Langages
- Iphone 14 simple - Guide
- Vb cable - Télécharger - Audio & Musique
- Simple ocr - Télécharger - Bureautique
- Simple file locker - Télécharger - Sécurité
2 réponses
lys44
Messages postés
57
Date d'inscription
mardi 25 mai 2010
Statut
Membre
Dernière intervention
21 mars 2011
5
Modifié par lys44 le 3/06/2010 à 11:37
Modifié par lys44 le 3/06/2010 à 11:37
Ici tu calcules le nombre d'enregistrement total que tu possèdes dans ta BDD pour la table personne
'Connexion à la BDD_Calcul du nombre d'enregistrements
connexion = "Data Source=TonServeur; Initial Catalog=TaBDD;Integrated Security=True"
connexionSQL = New SqlConnection
connexionSQL.ConnectionString = connexion
da = New SqlDataAdapter("SELECT Count(age) FROM personne", connexionSQL)
ds = New DataSet
da.Fill(ds, "mytable")
dt = ds.Tables("mytable")
For nb As Integer = 0 To dt.Rows.Count - 1
dr = dt.Rows(nb)
Nb_Row = dr(0)
Next nb
Et ici tu fais défiler dans une boucle POUR, qui incrémente toute seule la variable nb, les mises à jour de TOUTES valeurs "âge"
For nb As Integer = 0 To Nb_Row
'Modification de l'enregistrement_âge, en considérant que ta clé 1R part de 0 , CAD que nb correspond à chaque fois à la valeur de la clé primaire. nb va donc prendre de 0 à [nb_total_enregistrements] en incrémentant de 1 en 1.
da = New SqlDataAdapter("UPDATE personne SET age = age + 1 where num = " & nb & "", connexionSQL)
ds = New DataSet
da.Fill(ds, "mytable")
dt = ds.Tables("mytable")
Next nb
'Connexion à la BDD_Calcul du nombre d'enregistrements
connexion = "Data Source=TonServeur; Initial Catalog=TaBDD;Integrated Security=True"
connexionSQL = New SqlConnection
connexionSQL.ConnectionString = connexion
da = New SqlDataAdapter("SELECT Count(age) FROM personne", connexionSQL)
ds = New DataSet
da.Fill(ds, "mytable")
dt = ds.Tables("mytable")
For nb As Integer = 0 To dt.Rows.Count - 1
dr = dt.Rows(nb)
Nb_Row = dr(0)
Next nb
Et ici tu fais défiler dans une boucle POUR, qui incrémente toute seule la variable nb, les mises à jour de TOUTES valeurs "âge"
For nb As Integer = 0 To Nb_Row
'Modification de l'enregistrement_âge, en considérant que ta clé 1R part de 0 , CAD que nb correspond à chaque fois à la valeur de la clé primaire. nb va donc prendre de 0 à [nb_total_enregistrements] en incrémentant de 1 en 1.
da = New SqlDataAdapter("UPDATE personne SET age = age + 1 where num = " & nb & "", connexionSQL)
ds = New DataSet
da.Fill(ds, "mytable")
dt = ds.Tables("mytable")
Next nb
Merci beaucoup je vais appliquer ce que tu me dis et voir ce que ça donne!
Après pour infos, il faudra que je fasse des tirages aléatoires de monte carlo afin de projeter une population avec interraction des comportements via une microsimulation. Alors il se peut que je revienne vers vous!
Merci encore pour ta réponse
Après pour infos, il faudra que je fasse des tirages aléatoires de monte carlo afin de projeter une population avec interraction des comportements via une microsimulation. Alors il se peut que je revienne vers vous!
Merci encore pour ta réponse
lys44
Messages postés
57
Date d'inscription
mardi 25 mai 2010
Statut
Membre
Dernière intervention
21 mars 2011
5
3 juin 2010 à 12:08
3 juin 2010 à 12:08
Tu me tiens au courant si cela fonctionne ou pas chez toi.
Car sur ma machine avec VS 2008 et SQLServeur Express ça fonctionne impec'!
Car sur ma machine avec VS 2008 et SQLServeur Express ça fonctionne impec'!
lys44
Messages postés
57
Date d'inscription
mardi 25 mai 2010
Statut
Membre
Dernière intervention
21 mars 2011
5
3 juin 2010 à 14:54
3 juin 2010 à 14:54
Si tu veux pouvoir interagir avec ta BDD, c'est mieux de s'y connecter quoi :)
