Discussion :

[pikamo]

salut
(excel vba )
je besoin de votre aide
j'ai une basse de données ( acess ) : un table "acteur " qui contient des champs .Parmi ces champs : "nom"
mon but de compter les acteurs qui ont un "nom" comme "jean"

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 cmdvalider_Click()
 
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
con.ConnectionString = "Dbq=" & Chemin & "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"
 
con.Open
 
Set rs.ActiveConnection = con
 
' rs.Open " select   from acteur where nom =   jean ;"
 
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing

merci d'avance

[pgz]

Bonsoir.

Si c'est la requête SQL que tu cherches, cela devrait être

Code :

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

"SELECT Count(Nom) FROM Acteur WHERE Nom = ""Jean"";"

Remarque : appeler un champ "Nom" n'est pas conseillé.

Cordialement,

PGZ

[pikamo]

salut

merci pgz

mais aussi elle ne marche pas
un message d'erreur " trop peu de paramètres. 1 attendu "

Code :

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

1
2
 
rs1.Open "SELECT Count(Nom) FROM Acteur WHERE Nom = ""Jean"";"

salut

elle marche bien jsute au lieu ("jean ") j'ai mettre (' jean ')

mais autre code est erroné :
j'ai un combobx qui doit être initialiser par les noms exp jean , diane etc
alors j'ai commencer a faire ca :

Code :

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

1
2
3
4
5
Private Sub frmpanne_Initialize()
frmacteur.Comboact.AddItem "jean"
frmacteur.Comboact.AddItem "diane"
frmacteur.Comboact.AddItem "constance" 'On n'demande qu'à en rire
End Sub

mais rien se passe

avant je le fais avant d’ouvrir la frmacteur , c est à dire à partir d' un bouton d'un autre feuil mais aussi un problème se produit :
apres le choix de nom , à l'ouverture de la frmacteur une autre fois , la liste de choix se double ...

alors j'ai construie un boton dans cette userform " fermer" en cliquant tout les données serait "Null "

Code :

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

Comboact.Value = Null

mais aussi ca marche pas

[pgz]

Bonsoir.

Eh bien, ce n'est pas très clair tout cela. Une info quand même : pur vider la liste de la combobox, c'est la méthode Clear.

Code :

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

frmMachin.ComboTruc.Clear

Ensuite, quand tu fais la liste, la méthode AddItems est la bonne, mais il faut que le formulaire conteneur soit ouvert.

Cordialement,

PGZ