Récupération de données d'une base access

**ologele** · 01/08/2006, 18h23

Bonjour

J'ai regardé pas mal de FAQ et de tutos mais je n'ai rien vu sur mon problème.

Je souhaiterais récupérer tous les champs qui appartiennent à la même colonne d'une table acces dans une combobox. Est-ce faisable?

J'avais pensé à déja ouvrir ma table et ensuite récupérer les données mais c'est là que sa bloque?

Avez-vous une solution à me proposer?

D'avance merci

Ologele

**sovo** · 01/08/2006, 19h05

c faisable et c meme d'ailleur tres facile (5 ligne maxi), mais tout d'abord montre nous ton code. Car on ne fait pas du tout cuit mais aidons juste a arriver a une soution.

**ologele** · 01/08/2006, 19h47

Voila un peu une description de mon projet :

C'est un logiciel de gestion pour une exploitation agricole.

On doit pouvoir ajouter des clients, des chauffeurs, des parcelles, etc...

Quand je renseigne une parcelle, j'aimerais pouvoir récupérer les nom des clients déja enregistrer pour pouvoir renseigner le champ propriétaire de la parcelle.

Voici donc ce que j'ai penser mettre dans la combobox qui se nomme cbo_proprietaireparc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cbo_proprietaireparc_Click()
 
  'ouvre la liste des propriétaires
  BDclients.Provider = "Microsoft.jet.OLEDB.4.0"
  BDclients.ConnectionString = App.Path & "\save\save_clients.mdb"
  BDclients.Open
  tbclients.Open "Select*From table1", BDclients, adOpenDynamic, adLockOptimistic
 
  'sélection des noms
  cbo_proprietaireparc.List = 
 
End Sub

C'est après le égal que je bloque...

Pouvez-vous m'aider?

OlOgElE

**sovo** · 01/08/2006, 20h00

voila ce qu'il faut faire :

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
 
Private Sub cbo_proprietaireparc_Click()
 
    'ouvre la liste des propriétaires
    BDclients.Provider = "Microsoft.jet.OLEDB.4.0" 
    BDclients.ConnectionString = App.Path & "\save\save_clients.mdb"
    BDclients.Open
    tbclients.Open "Select*From table1", BDclients, adOpenDynamic, adLockOptimistic
 
    'sélection des noms
    with tbclients
        .movefirst
        while not .eof
            cbo_proprietaireparc.additem !NomChamp
            .movenext
        wend
     while end 
End Sub

**ologele** · 02/08/2006, 13h10

Ok merci j'essaye cela.

Sinon sa serait pour une confirmation :

Pour pouvoir changer le contenu d'une textbox lorsqu'elle est vide j'utilise ceci :

Code :

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

1
2
3
If txt_notesmat.Text = "" Then
txt_notesmat.Text = "0"
End If

est-ce une bonne solution car ce code me donne du fil à retorde de temps en temps?

Merci pour vos réponses!

Ologele

**sovo** · 02/08/2006, 13h21

Envoyé par ologele

est-ce une bonne solution car ce code me donne du fil à retorde de temps en temps?

c'est une maniere comme les autre, la plus basique d'ailleurs. Mais qu'entends tu par me donne du fil à retorde de temps en temps? ??

**ologele** · 02/08/2006, 13h33

Envoyé par sovo

Mais qu'entends tu par me donne du fil à retorde de temps en temps?

C'est avec les combo box. J'utilise le code ci-dessus pour remplacer une combo box vide par 0 mais il m'indique une erreur.

Je devrait peut être utiliser .list au lieu de .text non?

Merci pour ton aide

ologele

**sovo** · 02/08/2006, 13h38

et c'es quoi le message d'erreur ?? un bout de code ne serais pas aussi du refus.

**Nesejet** · 02/08/2006, 15h35

Pourkoi mettre "0" dans le combo ?

**Phifi** · 02/08/2006, 15h59

Code :

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

Pourkoi mettre "0" dans le combo ?

Je pense que ça doit être sa valeur "aucun enregistrement sélectionné", car il ne doit pas avoir de valeur "vide" prévue à l'implémentation de son combo, donc une erreur au moment de l'assignation d'un null (si la propriété Style du combo = 2)

Autant pour moi, il parle de TextBox

Et pour ajouter un galet à l'édifice de Sovo :

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
Private Sub cbo_proprietaireparc_Click()

    'ouvre la liste des propriétaires
    BDclients.Provider = "Microsoft.jet.OLEDB.4.0" 
    BDclients.ConnectionString = App.Path & "\save\save_clients.mdb"
    BDclients.Open
    tbclients.Open "Select*From table1", BDclients, adOpenDynamic, adLockOptimistic

    ' Je rajouterai ça pour la gestion du combo :

    cbo_proprietaireparc.Clear '/ on vide le combo
    '
    cbo_proprietaireparc.AddItem " " '/ on insère une non-valeur
    cbo_proprietaireparc.ItemData(cbo_proprietaireparc.NewIndex) = 0 '/ on assigne un index 0 pour cette valeur vide
    'cbo_proprietaireparc.Text = " " '/ on affiche l'entrée vide si besoin
    '
    'sélection des noms
    with tbclients
        .movefirst
        while not .eof
            cbo_proprietaireparc.additem !NomChamp
            '/ on assigne aux entrées du combo le code numérique associé au champ de la table (compteur par exemple)
            cbo_proprietaireparc.ItemData(cbo_proprietaireparc.NewIndex) = !index_numerique_de_mon_champ 
            .movenext
        wend
     while end 
End Sub

A toi de l'utiliser suivant tes besoins.

**ologele** · 02/08/2006, 19h03

Bonsoir

J'ai déja essaye la version de sovo, un peu plus simple à comprendre pour moi :

Code sovo :

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
Private Sub cbo_proprietaireparc_Click()
 
    'ouvre la liste des propriétaires
    BDclients.Provider = "Microsoft.jet.OLEDB.4.0" 
    BDclients.ConnectionString = App.Path & "\save\save_clients.mdb"
    BDclients.Open
    tbclients.Open "Select*From table1", BDclients, adOpenDynamic, adLockOptimistic
 
    'sélection des noms
    with tbclients
        .movefirst
        while not .eof
            cbo_proprietaireparc.additem !NomChamp
            .movenext
        wend
     while end 
End Sub

Et cela ne fonctionne pas... et même pas d'erreur...alors j'ai cherché et j'ai penser que peut être qu'il manquait la fermeture de la table et de la base de donnée à la fin mais ce n'ai même pas sa!

alors je m'en remet à vous si vous avez une petite idée...

merci d'avance

ologele

**sovo** · 02/08/2006, 19h17

Envoyé par ologele

ne fonctionne pas... et même pas d'erreur

et comment tu sais que ca n'a pas marche ?? qu'est que ca ne fait pas que ca devrais faire ??

**ProgElecT** · 02/08/2006, 19h46

bonsoir

Private Sub cbo_proprietaireparc_Click()

'ouvre la liste des propriétaires
BDclients.Provider = "Microsoft.jet.OLEDB.4.0"
BDclients.ConnectionString = App.Path & "\save\save_clients.mdb"
BDclients.Open
tbclients.Open "Select*From table1", BDclients, adOpenDynamic, adLockOptimistic

'sélection des noms
with tbclients
.movefirst
while not .eof
cbo_proprietaireparc.additem !NomChamp
.movenext
wend
while end
End Sub

Pourquoi

tbclients.Open "Select*From table1", BDclients, adOpenDynamic,

Alors que NomChamp seulement est utilisé
est ce que

tbclients.Open "Select NomChamp From table1", BDclients, adOpenDynamic,

ne serait il pas suffisant, et eviterait de charger les autres champs (amelioration de la rapidité de la reponce "Open")
Ou bien la table ne contient que le champ "NomChamp" donc pas besoin de Select

tbclients.Open "table1", BDclients, adOpenDynamic,

Mais peut etre que quelque chose m'a echappé !

ProgElecT

**ologele** · 02/08/2006, 21h57

Envoyé par ProgElecT

NomChamp seulement est utilisé
est ce que

Code :

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

tbclients.Open "Select NomChamp From table1", BDclients, adOpenDynamic,

ne serait il pas suffisant, et eviterait de charger les autres champs

Oui c'est tout à fait cela mais le problème est après, comment afficher les données du champ dans la textbox. C'est la que je bloque...

d'avance merci

ologele

PS : une parenthèse, sa serait techniquement possible d'afficher dans une même textbox le Nom et le prénom d'une personne préalablement enregistrer séparément?

edit : il faut remplacer textbox par combobox dans mon message désolé pour la faute!

**ProgElecT** · 02/08/2006, 22h15

comment afficher les données du champ dans la textbox.

TextBox ou combobox ?
ProgElecT

**ProgElecT** · 02/08/2006, 22h52

Moi je pratiquerai comme cela

pour recuperer dans un ComboBox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
cbo_proprietaireparc.Clear  
tbclients.Open "Select Nom, prenom from table1 Order By Nom, prenom", BDclients, adOpenDynamic, adLockOptimistic
If Not tbclients.EOF Then
 Do While Not tbclients.EOF
  cbo_proprietaireparc.AddItem tbclients!Nom & " " & tbclients!prenom
  tbclients.MoveNext: DoEvents
 Loop
 tbclients.Close: DoEvents
End If
If cbo_proprietaireparc.ListCount = 0 Then cbo_proprietaireparc.AddItem "Aucun enregistrement"
cbo_proprietaireparc.ListIndex = 0

Par contre je n'utilise pas adOpenDynamic mais adOpenStatic
j'ai aussi du mal a comprendre si cela doit remplir un TextBox ou un ComboBox

ProgElecT

**ologele** · 03/08/2006, 18h23

Envoyé par ProgElecT

j'ai aussi du mal a comprendre si cela doit remplir un TextBox ou un ComboBox

Désolé c'est de ma faute je commence un peu à m'embrouiller.

On parle bien de combo box.

j'ai testé le code de ProgElect mais aucune réponse. J'ai bien vérifier qu'un nom était enregistrer dans la base de donnée. C'est peut être parce que j'utilise :

Code :

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

Private Sub cmd_enregistrerparc_Click(Index As Integer)

Merci pour vos réponses et votre attention

ologele

**ProgElecT** · 03/08/2006, 18h36

Envoyé par ologele

Désolé c'est de ma faute je commence un peu à m'embrouiller.

On parle bien de combo box.

j'ai testé le code de ProgElect mais aucune réponse. J'ai bien vérifier qu'un nom était enregistrer dans la base de donnée. C'est peut être parce que j'utilise :

Code :

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

Private Sub cmd_enregistrerparc_Click(Index As Integer)

Merci pour vos réponses et votre attention

ologele

que contient exatement
Private Sub cmd_enregistrerparc_Click(Index As Integer)
.........
End Sub
ProgElecT

**ologele** · 03/08/2006, 18h45

Envoyé par ProgElecT

que contient exatement
Private Sub cmd_enregistrerparc_Click(Index As Integer)
.........
End Sub
ProgElecT

Pour le moment ceci :

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 cbo_proprietaireparc_Click(index As Integer)
'ouvre la base de données
    BDclients.Provider = "microsoft.jet.oledb.4.0"
    BDclients.ConnectionString = App.Path & "\save\save_clients.mdb"
    BDclients.Open
    tbclients.Open "Select*from table1", BDclients, adOpenDynamic, adLockOptimistic
'ferme la base de données
    On Error Resume Next
    tbclients.Close
    BDclients.Close
    Set tbclients = Nothing
    Set BDclients = Nothing
End Sub

j'avais trouvé ce petit bout de code dans un livre pour que ma combo box affiche les données :

Code :

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

1
2
Set cbo_proprietaireparc.DataSource = BDclients
cbo_proprietaireparc.DataField = "Nom" & "Prenom"

Mais aucun résultat...

merci pour ton aide

ologele

**ProgElecT** · 03/08/2006, 19h04

Si il n'y a même pas de declanchement d'erreur procede comme suit,

demare ton projet avec la touche F8, pour chaques commandes, verifi les differantes variable en placant le cursseur sur la variable a verifier.

App.Path, est ce le bon chemin ?
BDclients (apres que la commande est ete executé)
ainsi de suite ...
de plus ton code

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 cbo_proprietaireparc_Click(index As Integer)
'ouvre la base de données
    BDclients.Provider = "microsoft.jet.oledb.4.0"
    BDclients.ConnectionString = App.Path & "\save\save_clients.mdb"
    BDclients.Open
    tbclients.Open "Select*from table1", BDclients, adOpenDynamic, adLockOptimistic
'ferme la base de données
    On Error Resume Next
    tbclients.Close
    BDclients.Close
    Set tbclients = Nothing
    Set BDclients = Nothing
End Sub

il n'y a pas de gestion d'erreurs alors que du passe On Error Resume Next

pour gerer l'erreur tu dois passer une condition tout de suite apres la commande qui peut poser probleme
IF err.number <> 0 then
'traitement de l'erreur
msgbox cstr(err.number) & " " & err.description
End if

Attention la syntaxe n'est peut être pas vraiment juste, j'ecrit au fur et a mesure

Je te post deja ces reflexions, je réecri ta procedure avec la gestion d'erreur

ProgElecT

Récupération de données d'une base access

VB 6 et antérieur

Discussions similaires

Partager

Partager