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

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

j'ai relu ton dernier post
ne met pas dans la procedure Private Sub cbo_proprietaireparc_Click(index As Integer)

met un CommandButton, double click dessus, VB6 va t'ouvrir la procedure
Private Sub Command1_Click()
.........
End Sub

met le code suivant :

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
'ouvre la base de données
    BDclients.Provider = "microsoft.jet.oledb.4.0"
    BDclients.ConnectionString = App.Path & "\save\save_clients.mdb"
 
On Error Resume Next
    BDclients.Open
If Err.Number <> 0 Then
 MsgBox CStr(Err.Number) & "  " & Err.Description
 Exit Sub
End If
 
'On Error Resume Next est toujours dispo inutil de le respecifier
 tbclients.Open "Select*from table1", BDclients, adOpenDynamic, adLockOptimistic
If Err.Number <> 0 Then
 MsgBox CStr(Err.Number) & "  " & Err.Description
 Exit Sub
 else
 If Not tbclients.EOF Then
  Do While Not tbclients.EOF
   cbo_proprietaireparc.AddItem tbclients!Nom & " " & tbclients!prenom
   tbclients.MoveNext: DoEvents
  Loop
 End If
 If cbo_proprietaireparc.ListCount = 0 Then cbo_proprietaireparc.AddItem "Aucun enregistrement"
 cbo_proprietaireparc.ListIndex = 0
End If
 
'ferme la base de données
    tbclients.Close
    BDclients.Close
    Set tbclients = Nothing
    Set BDclients = Nothing

Je vais manger mais je reviens de temps en temps pour voir la suite

ProgElecT

**sovo** · 03/08/2006, 20h03

ou alors pour eviter les click tu le mets dans le form_load, pour que le combobox se charge en meme temps que le formulaire (plus pratique je trouve), a moins que le chargement du dit combo depend d'un evenement pendant "l'utilisation" du formulaire.

**ologele** · 03/08/2006, 20h07

Sa fonctionne!!

merci Progelect!!! et merci sovo, plus besoin du bouton!!

Merci je vais pouvoir avancer dans mon projet maintenant!

a bientot je pense pour de nouvelle question!

Ologele

**ProgElecT** · 03/08/2006, 20h32

ou alors pour eviter les click tu le mets dans le form_load

Tres juste SOVO, le CommandButton n'etait sujeré que pour pour deboguer.

A la prochaine

ProgElecT

**ologele** · 04/08/2006, 12h03

Bonjour!

me revoila pour un nouveau petit problème.

Après avoir résolu mon dernier problème dur les combobox j'ai pu continuer mon projet... Enfin jusqu'à ce que je bloque.

Mes combobox affiche bien les données que je veux mais j'ai maintenant un petit soucis. J'ai voulu essayé que, lorsque que je choisi un mot ou autre dans la combobox, sa change le texte d'une textbox.

Pour cela j'ai écrit ce code qui me parraissait pas mal :

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_tracteurstrav_Click()
'ouvre la base de données matériel (tracteur)
    tb2mat.Open "select*from table1 where [Libele] like '" & cbo_tracteurstrav.Text & "'", BDmat, adOpenDynamic, adLockOptimistic
 
'récupère les données
    If Not tb2mat.EOF Then
      Do While Not tbmat.EOF
       txt_prixtracteurstrav.Text = tb2mat!Prix
       tb2mat.MoveNext: DoEvents
      Loop
    End If
  If cbo_tracteurstrav.ListCount = 0 Then cbo_tracteurstrav.AddItem "Aucun enregistrement"
    cbo_tracteurstrav.ListIndex = 0
 
'ferme la base de données
    tb2mat.Close
    Set tb2mat = Nothing
End Sub

Mais on m'indique une erreur lorsque j'ouvre ma table (première ligne) et je ne voit pas pourquoi.

Avez vous une petite idée..

Peut être que je devrait mettre mon code dans lostfocus non?

d'avance merci pour vos réponses

Ologele

**sovo** · 04/08/2006, 12h21

Envoyé par ologele

Mais on m'indique une erreur lorsque j'ouvre ma table (première ligne) et je ne voit pas pourquoi.

et c'est quoi le message d'erreur ??

Et puis pourquoi tu te tues a vouloir repartir de la base de donnee. Si tu as deja rempli ton combobox comme tu le dit

Envoyé par ologele

J'ai voulu essayé que, lorsque que je choisi un mot ou autre dans la combobox, sa change le texte d'une textbox.

alors tu as deja tout fait il ne te reste plus qu'a faire ceci :

Code :

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

1
2
3
4
5
6
 
private sub Combo1_change()
     text1.text = combo1.text
     'ou 
     text1.text = combo1.list(combo1.listindex)  'Plus propre selon moi.
end sub

**ologele** · 04/08/2006, 13h36

Envoyé par sovo

Code :

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

1
2
3
4
5
6
 
private sub Combo1_change()
     text1.text = combo1.text
     'ou 
     text1.text = combo1.list(combo1.listindex)  'Plus propre selon moi.
end sub

Oui mais avec sa, on recopie le texte de la combobox dans la texbox non?

Alor que moi, dans mon projet, on doit choisir un article (par exemple) dans la combobox et son prix s'affiche dans la texbox. je pense que c'est possible non?

ologele

**sovo** · 04/08/2006, 14h28

tu ne veux que prendre le prix ??

voila une petite astuce la j'utilise un tableau pour m'iader.

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
'tu declare ca en general
dim TabPrice () as integer     'si tu as les prix en entier, sinon tu changes

'dans le code pour charger le combo box tu fait comme ceci
Private Sub Form_Load()
     dim i as integer
     
     '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
     
    redim TabPrice(0 to tbclients.RecordCount) 
    'sélection des noms
    with tbclients
         .movefirst
         i=0
         while not .eof
              cbo_proprietaireparc.additem !NomChamp
              TabPrice(i)= !ChampPrix
              i=i+1
             .movenext
        wend
    while end 
End Sub 

'maintenant pour voir le prix correspondant a l'article tu fait
private Combo1_Change()
      Text1.text = TabPrice(Combo1.ListIndex)
end sub

Les texte en rouge sont ceux que j'ai ajouter dans ta procedure pour le remplissage du combobox.

Ca devrais aller je croit.

**ologele** · 04/08/2006, 15h25

Envoyé par sovo

Code :

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

redim TabPrice(0 to tbclients.RecordCount)

Lorsque je compil, il m'indique une erreur sur cette ligne et marque : compile error : expected array

Je ne sais pas ce que cela signifie...

Ologele

**sovo** · 04/08/2006, 17h19

essai de faire ceci

Code :

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

msgbox tbclients.RecordCount

juste apres t'etre connecter, c'est pour avoir le nombre d'enregitrement de ta table, et dit moi ce que tu as. Pour que le code marche ca doit etre superieure a 0.

**ologele** · 04/08/2006, 18h21

Envoyé par sovo

Code :

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

msgbox tbclients.RecordCount

il m'indique -1, c'est mauvais signe... Pourtant il y a des données dans ma base...

Je suis un peu perdu la...

Ologele

Edit : voici le code que j'ai mis:

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 Form_Load()
 
Dim i As Integer
'ouvre la base de données matériel (tracteur)
    BDmat.Provider = "microsoft.jet.oledb.4.0"
    BDmat.ConnectionString = App.Path & "\save\save_materiel.mdb"
    BDmat.Open
    tbmat.Open "select*from table1 where table1.Motorisation = 'Motorisé'", BDmat, adOpenDynamic, adLockOptimistic
    MsgBox tbmat.RecordCount
'récupère les données
 ReDim TabPrice(0 To tbmat.RecordCount)
  If Not tbmat.EOF Then
   Do While Not tbmat.EOF
    cbo_tracteurstrav.AddItem tbmat!Libelle
    tbmat.MoveNext: DoEvents
   Loop
  End If
   If cbo_tracteurstrav.ListCount = 0 Then cbo_tracteurstrav.AddItem "Aucun enregistrement"
  cbo_tracteurstrav.ListIndex = 0
  cbo_tracteurstrav.Text = ""
'ferme la base de données
    tbmat.Close
    BDmat.Close
    Set tbmat = Nothing
    Set BDmat = Nothing
 
End Sub

**sovo** · 04/08/2006, 18h41

Bon ce n'est pas grave, moi aussi j'ai souvent ce probleme je ne sais pourquoi. D'ailleur si quelqu'un pouvais me l'expliquer ce serais une bonne chose.

On va faire les choses nous meme (ca j'adore).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private function AllRecords (Rs as ADODB.Recordset) as integer
     dim i as integer
 
     i=0
     rs.MoveFirst
     While not Rs.EOF
           i = i+1
           Rs.MoveNext
     Wend 
 
     AllRecords = i
end function

Et maintenant tu remplace le tbclients.RecordCount par AllRecords(tbclients)

la ca devrais aller.

**ologele** · 04/08/2006, 18h46

Non il me dit que l'opération n'est pas autorisé si l'objet est fermé.. au fait ton bout de code je le met n'importe où?

ologele

**sovo** · 04/08/2006, 18h52

mets la fonction a la fin met appel comme si tu appelai tbclients.RecordCount

ou alors tu l'utilise comme ceci

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
41
'tu declare ca en general
dim TabPrice () as integer     'si tu as les prix en entier, sinon tu changes
 
'dans le code pour charger le combo box tu fait comme ceci
Private Sub Form_Load()
     dim i as integer
 
     '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
 
     'Pour  compter le nombre d'enregistrement
     i=0
     tbclients.MoveFirst
     While not tbclients.EOF
           i = i+1
           tbclients.MoveNext
     Wend 
 
 
    redim TabPrice(0 to i) 
 
    'sélection des noms
    with tbclients
         .movefirst
         i=0
         while not .eof
              cbo_proprietaireparc.additem !NomChamp
              TabPrice(i)= !ChampPrix
              i=i+1
             .movenext
        wend
    End With
End Sub 
 
'maintenant pour voir le prix correspondant a l'article tu fait
private Combo1_Change()
      Text1.text = TabPrice(Combo1.ListIndex)
end sub

**ologele** · 04/08/2006, 18h59

il me di que la variable rs n'est pas définie.

Je la défini en général en intenger?

ologele

**sovo** · 04/08/2006, 19h10

J'ai mis le source a jour. C'etait juste un probleme de rapidite. la ca devrais te plaire.

**ologele** · 04/08/2006, 19h25

il ne veut pas du while end à la fin... syntax error...

ologele

**sovo** · 04/08/2006, 19h32

excuse. du a une rapidite (lorsque j'ecrivais le code) je n'ai pas vu ca.

c'est plustot End With j'ai remis la source a jour.

**ologele** · 04/08/2006, 23h26

J'ai trouvé autre chose, sa ne fonctionnait toujours pas... Voici ke code :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Option Explicit
  Dim BDmat As New ADODB.Connection
  Dim BD1mat As New ADODB.Connection
 
  Dim tbmat As New ADODB.Recordset
  Dim tb2mat As New ADODB.Recordset
 
'code dans le chargement de la page pour la combobox:
 
Private Sub Form_Load()
 
'ouvre la base de données matériel (tracteur)
    BDmat.Provider = "microsoft.jet.oledb.4.0"
    BDmat.ConnectionString = App.Path & "\save\save_materiel.mdb"
    BDmat.Open
    tbmat.Open "select*from table1 where table1.Motorisation = 'Motorisé'", BDmat, adOpenDynamic, adLockOptimistic
'récupère les données
 If Not tbmat.EOF Then
  Do While Not tbmat.EOF
   cbo_tracteurstrav.AddItem tbmat!Libelle
   tbmat.MoveNext: DoEvents
  Loop
 End If
 If cbo_tracteurstrav.ListCount = 0 Then cbo_tracteurstrav.AddItem "Aucun enregistrement"
 cbo_tracteurstrav.ListIndex = 0
 cbo_tracteurstrav.Text = "" 'vide le  champ de la combobox
'ferme la base de données
    tbmat.Close
    BDmat.Close
    Set tbmat = Nothing
    Set BDmat = Nothing
 
txt_prixtracteurstrav.Text = "" 'vide la textbox Prix
 
End Sub
 
'code inscrit dans la combo box
 
Private Sub cbo_tracteurstrav_Click()
'ouvre la base de données matériel (tracteur)
    BD1mat.Provider = "microsoft.jet.oledb.4.0"
    BD1mat.ConnectionString = App.Path & "\save\save_materiel.mdb"
    BD1mat.Open
    tb2mat.Open "select*from table1 where [Libelle] like '" & cbo_tracteurstrav & "' ", BD1mat, adOpenDynamic, adLockOptimistic
 
'récupère les données en fonction du choix de la combobox
 If Not tb2mat.EOF Then
  Do While Not tb2mat.EOF
   txt_prixtracteurstrav.Text = tb2mat!Prix
   tb2mat.MoveNext: DoEvents
  Loop
 End If
 
'ferme la base de données
    tb2mat.Close
    BD1mat.Close
    Set tb2mat = Nothing
    Set BD1mat = Nothing
End Sub

Si un jour sa peu aider quelqu'un...

Ologele

**sovo** · 05/08/2006, 13h37

j'ai teste mon code, il marche pourtant bien chez moi. Mais bon l'essentiel est que tu ais resolu ton probleme. bien que je trouve ton code pas obtimiser.

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

VB 6 et antérieur

Discussions similaires

Partager

Partager