Discussion :

[freko]

Bonjour à tous

Voici mon probleme :

Je recupere une information de ma base de données access dans un combobox ( nom de famille )
Pas de probleme pour ca 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
28
Const MA_BASE_ACCESS As String = "basesav97.mdb"
Dim db As DAO.Database
    Dim rs As DAO.Recordset
 
    Me.combnom.Clear
 
    Set db = DAO.Workspaces(0).OpenDatabase(MA_BASE_ACCESS, False, False)
 
    Set rs = db.OpenRecordset("select * from [coordonnees];", , dbForwardOnly)
 
    Do While Not rs.EOF
        'Ajout dans la combo du premier champ de la requête
        Me.combnom.AddItem rs.Fields(0).Value
 
        rs.MoveNext
    Loop
 
    If Me.combnom.ListCount > 0 Then
        Me.combnom.ListIndex = 0
    End If
 
    rs.Close
 
    db.Close
 
    Set rs = Nothing
 
    Set db = Nothing

Et voila ce que je souhaite c'est dans le meme combobox je puisse afficher le nom de famille ainsi que le prenom
Apres avoir selectionné le nom de famille, je voudrais pouvoir afficher les coordonnées complete mais je vois pas comment faire
Est ce possible ??
Dans ma base access j'ai 2 tables : Coordonnées et Pannes
J'essai de faire une application de gestion de SAV

Merci pour vos reponses

[muzele]

Salut,
j'ai une question à te poser:
- Ton combobox rempli la tache que tu lui a assigné? charge t-il correctement les données?
- et dans quel objet veut tu afficher les coordonnées complètes? dans des labels, des textbox? ...?
Surtout n'oublie pas de mettre ton code entre les balise de code le " # " au dessus !
à tantot !

[freko]

Salut muzele

- Oui le combobox charge bien les données mais il ne me charge que le nom de famille de la table Coordonnées ( je voudrais qu'il charge aussi le Prenom )

J'aimerai que les données soient charge dans un label sur un autre form ( form recapitulatif)

Merci la belgique

[muzele]

hey !
Voila j'ai essayé de faire quelque chose !

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
Option Explicit
Dim Cnx As ADODB.Connection
Dim corde As ADODB.Recordset
 
Private Sub Form_Load()
' ouverture de la connexion à la BDD
Set Cnx = New ADODB.Connection
    Cnx.Provider = "Microsoft.Jet.Oledb.4.0"
    Cnx.ConnectionString = App.Path & "\basesav97.mdb"
	' ou active la ligne suivante pour déterminer l'emplacement si ta BDD n'est pas dans le même dossier que l'appli
    'Cnx.ConnectionString = "C:\le_chemin_de_ta_base\basesav97.mdb"
    Cnx.Open
''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''tu charge ta combobox''''''''''''''''''''
'''''''''''''''tu charge ta combobox''''''''''''''''''''
'''''''''''''''tu charge ta combobox''''''''''''''''''''
 
Private Sub Combnom_Click()
	corde.Open "coordonnees", Cnx, adOpenDynamic, adLockOptimistic 
    corde.Find "ton_champ=" & "'" & Combnom.Text & "'" 'ton_champ: celui qui correspond au nom de famille  comme tu le dis
 
    Ta_Form.Ton_Label.Caption = Combnom!Ta_1ere_coordonnee 'ta_1ere_coordonnee, c'est la valeur du champ dans ta table
	Ta_Form.Ton_Label2.Caption = Combnom!Ta_2eme_coordonnee ' même chose et ainsi de suite
	Ta_Form.Ton_Label3.Caption = Combnom!Ta_3eme_coordonnee
	'et ainsi de suite !
	corde.Close

je travaille avec ADO, alors tu sera obliger d'insérer le composants dans ton projet !
A tout à l'heure

[freko]

Merci pour ton aide je vais essayer de suite
PAr contre pour ADO c'est bien Activex Data Object et si oui j'en ai 5 (2.1,2.5,2.6,2.7) je prend laquelle ?

[muzele]

tu prend le plus recent ! le 2.7

[freko]

Grand merci à muzele ça fonctionne