Pb de mise à jour automatique vb
Résolu/Fermé
nague29
-
5 juin 2009 à 14:21
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 5 juin 2009 à 18:33
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 5 juin 2009 à 18:33
A voir également:
- Pb de mise à jour automatique vb
- Mise à jour pilote - Guide
- Mise a jour airpods - Guide
- Mise a jour windows 10 - Guide
- Mise a jour xiaomi - Guide
- Mise a jour chrome - Guide
3 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
5 juin 2009 à 16:36
5 juin 2009 à 16:36
Bonjour,
Voilà ce que je propose :
En fait, l'initialisation du listbox et du combo se fait sur le Load de la Form. J'ai juste modifier le Form_Load qui fait appel à la procédure RefreshForm() pour initialiser le listbox et combo. Cette procédure est également appelée à la fin du traitement d'insertion dans btn_ajou_click().
;o)
Voilà ce que je propose :
Private Sub btn_ajou_Click() Dim ajou As String Dim cnn As New ADODB.Connection Dim maj As String ' Connexion à la base de donnée cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Raito-Kun\Mes documents\Numérim\calcul stock\numérim.mdb" ' Ajout d'un champ de type "String" ajou = InputBox("Saisissez le nom de la nouvelle famille :") cnn.Execute "INSERT INTO famille(famille) VALUES('" & (ajou) & "')" cnn.Close RefreshForm End Sub Private Sub Form_Load() RefreshForm End Sub Public Sub RefreshForm() '/////////On remplie la listbox famille et la combo/////////////' Dim oADO As ADODB.Connection Dim ors As ADODB.Recordset Dim strPWD As String Dim strSQL As String Set oADO = New ADODB.Connection 'Dans le cas d'une DB avec un mot de passe With oADO .Provider = "Microsoft.jet.oledb.4.0;" .Mode = adModeShareDenyNone .ConnectionString = "C:\Documents and Settings\Raito-Kun\Mes documents\Numérim\calcul stock\numérim.mdb" .Open End With Set ors = New ADODB.Recordset strSQL = "SELECT famille FROM famille ORDER BY id_famille" With ors .CursorLocation = adUseClient .Open strSQL, oADO, adOpenForwardOnly, adLockOptimistic .Properties.Refresh .MoveLast .MoveFirst Do While Not .EOF Lst_fam.AddItem .Fields("famille").Value .MoveNext Loop .Close End With oADO.Close Set ors = Nothing Set oADO = Nothing '/////////////////C'est fini pour la listbox et la combo!!!!!/////////////////////' End Sub
En fait, l'initialisation du listbox et du combo se fait sur le Load de la Form. J'ai juste modifier le Form_Load qui fait appel à la procédure RefreshForm() pour initialiser le listbox et combo. Cette procédure est également appelée à la fin du traitement d'insertion dans btn_ajou_click().
;o)
Utilisateur anonyme
5 juin 2009 à 17:01
5 juin 2009 à 17:01
Salut Polux31 !
C'est génial ça marche ! franchement je ne sais pas comment te remercier. Tu peux pas savoir comment ça me faisait galérer ce truc !
Juste un truc : lorsque je faisait ajouter et bien il me mettait la liste à jour (niquel), mais en double !
Donc j'ai tout simplement fait :
lst_fam.clear
Avant la connexion à la base de données dans le form_refresh et ça marche impeccable ! Mais bon dis-moi si c'est une bêtise de faire un clear mais là je ne pense pas car au final ce sont bien les familles issues de ma base de données.
Donc grâce à mon sauveur polux31 mon problème est résolu!
Merci 1000 fois !!
au fait merci également de la rapidité de ton intervention ça fait plaisir et tu m'a bien expliquer en plus comment ta fait donc mes respect
C'est génial ça marche ! franchement je ne sais pas comment te remercier. Tu peux pas savoir comment ça me faisait galérer ce truc !
Juste un truc : lorsque je faisait ajouter et bien il me mettait la liste à jour (niquel), mais en double !
Donc j'ai tout simplement fait :
lst_fam.clear
Avant la connexion à la base de données dans le form_refresh et ça marche impeccable ! Mais bon dis-moi si c'est une bêtise de faire un clear mais là je ne pense pas car au final ce sont bien les familles issues de ma base de données.
Donc grâce à mon sauveur polux31 mon problème est résolu!
Merci 1000 fois !!
au fait merci également de la rapidité de ton intervention ça fait plaisir et tu m'a bien expliquer en plus comment ta fait donc mes respect
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
5 juin 2009 à 18:33
5 juin 2009 à 18:33
Content de t'avoir aidé.
Tu as raison, il faut bien mettre lst_fam.clear en tout début de la procédure ResfreshForm(), c'est là sa place ...
Ma contribution a été mineure, je n'ai fait que modifier 2 choses et en plus j'ai oublié le lst_fam.clear ... tout le mérite te revient.
Bon courage pour la suite.
;o)
Tu as raison, il faut bien mettre lst_fam.clear en tout début de la procédure ResfreshForm(), c'est là sa place ...
Ma contribution a été mineure, je n'ai fait que modifier 2 choses et en plus j'ai oublié le lst_fam.clear ... tout le mérite te revient.
Bon courage pour la suite.
;o)