insertion en temps réel dans une combolist

**new_wave** · 04/09/2006, 16h20

bonjour,

J'aimerais qu'après une insertion dans une base de données, l'insertion dans la comboliste qui est le reflet de ce qui existe dans la base de données se fasse immédiatement.
J'ai bien demandé dans le code que la fonction Remplircombo1soit executée mais je ne vois la comboliste chargée correctement que si je sors partiellement de l'application.

Pouvez vous m'indiquer comment remédier à ce problème.

Merci beaucoup à vous.
Cordialement.
Voici le code implémenté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub ajout_compte_Click()
' insertion dans la base de données depuis le click sur le bouton d'ajout
' d'un nouveau compte
 
    Insert2DB
   RemplirCombo1
   sPrefix = ""
 
    Text3.Text = ""
    Text4.Text = ""
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
Private Sub RemplirCombo1()
 
Dim rst2 As New ADODB.Recordset
'ConnectToDb
 
Set cn = New ADODB.Connection
'Définition de la chaîne de connexion
cn.ConnectionString = "F:\Projet VB\v32ps3cop pour debugages\sruplan.exe"
 
'Définition du pilote de connexion
cn.Provider = "Microsoft.Jet.Oledb.4.0"
 
 
cn.Open
' creation du recordset qui contient tous les enregistrements
' du champ "CPTE" de la table test_insert
 
On Error GoTo err_refresh2
rst2.Open "SELECT CPTE, LIBELLE from  Coprplan  order by CPTE", cn
 
While Not rst2.EOF
Combo1.AddItem rst2.Fields("CPTE") & " " & rst2.Fields("LIBELLE")
rst2.MoveNext
Wend
Exit Sub
 
cn.Close
 
 
err_refresh2:
MsgBox Err.Description, vbCritical, "pbremplircombo1"
Err.Clear
 
 
Set cn = Nothing
Set rst2 = Nothing
 
End Sub

**Delbeke** · 04/09/2006, 16h40

Heu, est-tu bien sure de ta chaine de connection ?

cn.ConnectionString = "F:\Projet VB\v32ps3cop pour debugages\sruplan.exe"

des fois que tu chercherais dans une base qui ne serait pas celle ou tu as ecrit ?

**Asdorve** · 04/09/2006, 16h58

'Définition de la chaîne de connexion
cn.ConnectionString = "F:\Projet VB\v32ps3cop pour debugages\sruplan.exe"

Pour continuer sur la lancée, un fichier .exe comme base de données?
Sauf erreur de ma part, ça n'existe pas.

Deuxièmement, c'est un problème qu'on t'avait déjà fait remarquer, amie Harbonne.

Tu avais déjà fait l'erreur, alors regarde ce que tu écris!

**Delbeke** · 04/09/2006, 17h11

Salut asdorve

C'est un peu pour çà que j'ai attiré l'attention sur la chaine de connection, en gardant a l'esprit que l'extension d'un fichier n'est que indicative.
Rien n'enterdit de renommer une base de donnees Access MaBase.mdb en MaBase.exe . Ce sera toujours une base de données Access.
Mais si tout le monde se met à faire çà, ca va pas faciliter la vie des utilisateurs ni des programmeurs

**new_wave** · 04/09/2006, 17h30

Bonjour,
Il s'agit d'un 'truc' du développeur de l'application pour contrer d'eventuels hackers mais il s'agit bien d'un fichier de base de données...non je n'en suis plus là(la table Coprplan est bien une table de cette base de données .
Donc le pb est ailleurs...

A+
Nathalie

**Delbeke** · 04/09/2006, 17h35

Peut être il faut laisser un peu de temps pour q'access mette à jour ces tables. un DoEvents bien senti apres l'ajout pourra peut être resouldre le probleme

**AlainTech** · 05/09/2006, 08h26

Un Refresh sur le form devrait aider, me semble-t-il.

**Asdorve** · 05/09/2006, 08h29

Envoyé par Delbeke

Rien n'enterdit de renommer une base de donnees Access MaBase.mdb en MaBase.exe .

Tu m'apprends quelque chose là!

Envoyé par Delbeke

Mais si tout le monde se met à faire çà, ca va pas faciliter la vie des utilisateurs ni des programmeurs

On est d'accord.

Envoyé par harbonne

Il s'agit d'un 'truc' du développeur de l'application pour contrer d'eventuels hackers

C'est pas ça à mon avis qui va empêcher un hackers de "faire son travail".

**AlainTech** · 05/09/2006, 08h42

Ca évite, en tout cas, à un utilisateur, de faire un double clic sur la base et d'avoir les données en clair.

**new_wave** · 05/09/2006, 10h40

Bonjour et merci de votre conseil.
J'ai bien essayé de faire un refresh sur la form mais cela ne fonctionne pas mieux.
J'ai laors essayé de le faire sur le controle combobox concerné mais sans meilleur résultat.

Je vais essayer le DoEvents proposé et vous recontacte ensuite.

A bientôt.

Nathalie

**new_wave** · 05/09/2006, 14h47

Bonjour,

Il paraît que la méthode refresh appliquée à une combobox ne peut marcher que si on relie la combobox à un dataobject : recordset ou dataset.
Lequel des deux objets est correct pour cette opération?
Pourriez vous me guider vers l'attachement de la combobox à un dataobject tel qu'un recordset ou un dataset.

De plus, il paraît que cette méthode ne peut pas être appliquée à une feuille mdi mais uniquement à une feuille fille.

Merci de votre aide.
cordialement.
Nathalie

**Delbeke** · 05/09/2006, 15h40

Fais une recherche sur les propriétés RowSource et ListField du DataCombo et/ou du DbList

**sovo** · 05/09/2006, 16h22

Au regard de ta procedure RemplirCombo1 tout l'air de bien fonctionner.

maintenant est que tu es sur que apres avoir fait Insert2DB les valeurs sont bien inserer dans la bas de donnee ?? si oui alors voila une petite astuce (elle mache des fois chez moi).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Insert2DB
msgbox "Insertion effectuer avec success "
combo1.clear
RemplirCombo1

**new_wave** · 05/09/2006, 16h42

Oui, l'insertion dans la bdd se fait correctement.
J'ai mis un break et un espion sur le contenu de rst2 dans la sub Remplircombo1 et je vois bien dedans le nouvel enregistrement.

Je suis un peu lasse de chercher, mais je poursuis ma route.

Merci à vous.
Cordialement.
Nathalie

**new_wave** · 05/09/2006, 16h47

Concernant les propriétés Rowsource et ListField , du fait que j'ai crée un combobox, je ne les vois pas.
Non au départ je n'ai pas crée un databox mais un combobox avec la promriété dropdown=0.
Pouvez vous me proposer un autre moyen de maitriser cette difficulté.

Cordialement.

Nathalie

**sovo** · 05/09/2006, 16h49

Et as tu essayer ce que je t'ai propose??

**new_wave** · 05/09/2006, 16h58

Le fait de voir le nouvel élement saisi dans le rst2 prouve que l'insertion dans la bdd s'est bien fait, donc je n'ai pas besoin de revenir sur ce point.

Merci à toi.
Nathalie

**sovo** · 05/09/2006, 17h55

je comprend bien ce que tu dit.

Mais au vu de ce que tu as comme probleme

Envoyé par harbonne

mais je ne vois la comboliste chargée correctement que si je sors partiellement de l'application.

la solution que je te propose est celle que j'utilise chez moi a ca marche a tous les coups. Alors pourquoi ne pas essayer (ca ne fait que deux ligne et quelque min) ca va peut etre t'eviter de perdre encore du temps.

insertion en temps réel dans une combolist

VB 6 et antérieur

Discussions similaires

Partager

Partager