Discussion :

[bailamos]

Code :

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

SELECT DISTINCT table.A FROM [table] ORDER BY table.A°;

Cette requête SQL, je ne sais pas comment l'ajouter à ma form1 qui contient un [composant nommé] data1 qui est connecté à la table en question et [pour ensuite] ajouter la réponse à list1


merci d'avance

[zazaraignée]

Je ne suis pas certaine que tu utilises la meilleure méthode de connexion pour obtenir le résultat recherché. Ton Data1 est bien un contrôle Data de la boîte d'outils standard?

Si oui: Qu'as tu à la propriété RecordType de ton composant Data (nommé Data1)?

[bailamos]

oui c'est un data standart
recordsettype : dynaset

[Delbeke]

dans le form_load

Code :

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

1
2
3
Data1.DataBaseName = "CheminCompletDeMaBaseDeDonnees"
Data1.RecordSource= "SELECT DISTINCT table.A FROM [table] ORDER BY table.A"
Data1.Refresh

[bailamos]

j'ai cette erreur :

syntax error in from clause

merci

[Mr NGANZI]

"table" est un mot reservé sql. je crois que le mieux est de renommer ta table.

[bailamos]

Code :

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

1
2
3
4
5
6
7
8
9
10
Data1.DatabaseName = "C.MDB"
Data1.RecordSource = "M"
Data1.RecordSource = "SELECT DISTINCT a FROM M"
Data1.Refresh
 
 
For x = 0 To Data1.Recordset.EOF
List1.AddItem Data1.Recordset.Fields(2).Name
Data1.Recordset.MoveNext
Next x

erreur 3265

item not found in this collection

[OhMonBato]

Connais tu les points d'arret ? Les techniques de debogage ?
J'ai l'impression que tu ecris du code au hasard et qu'ensuite tu nous le refile pour correction.

Comment veux tu que cette ligne fonctionne ?

Code :

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

For x = 0 To Data1.Recordset.EOF

As tu été voir dans l'aide quel type de valeur renvoit BOF ou EOF ? Ce sont des booléens.
Il faut donc faire une boucle DO en partant du premier enregistrement (movefirst) puis boucler jusqu'à ce qu'on atteigne la fin (loop until data1.recordset.eof).

Va voir un peu les tutoriels (lien dans ma signature)

[Mr NGANZI]

puisqu'il semble que tu veuilles qu'on corrige ton code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
with Data1
.DatabaseName = "C.MDB"
.RecordSource = "M"
.RecordSource = "SELECT DISTINCT a FROM M"
.Refresh
 
while not .Recordset.EOF
List1.AddItem .Recordset.Fields(2).value
.Recordset.MoveNext
wend
end with

[bailamos]

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 Command1_Click()
Data1.DatabaseName = "C:\coran\tools\tabel\3.MDB"
Data1.RecordSource = "SELECT DISTINCT M.A FROM M"
Data1.Refresh
 
 
Do While Not Data1.Recordset.EOF
List1.AddItem Data1.Recordset.Fields(1).Value
Data1.Recordset.MoveNext
Loop
 
 
End Sub

il ya encor une erreur

item not found in this collection

merci

[Delbeke]

Normal , la collection field commence avec l'index 0, ta requete ne demandanrt qu'un seul field :

Code :

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

List1.AddItem Data1.Recordset.Fields(0).Value

Un peu de recherche personelle que diable !

[bailamos]

exactement merci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Load()
Data1.DatabaseName = d.Caption
Data1.RecordSource = "SELECT DISTINCT A FROM M"
Data1.Refresh
Do While Not Data1.Recordset.EOF
List1.AddItem Data1.Recordset.Fields(0).Value
Data1.Recordset.MoveNext
Loop
End Sub