[vb6] list1 sql

Version imprimable

26/09/2008, 10h29
bailamos

[vb6] list1 sql

Code:

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
27/09/2008, 15h37
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)?
29/09/2008, 16h02
bailamos

oui c'est un data standart
recordsettype : dynaset

dans le form_load

Code:

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

29/09/2008, 16h53
bailamos

j'ai cette erreur :

Citation:

syntax error in from clause

merci
29/09/2008, 17h22
Mr NGANZI

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

Code:

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

30/09/2008, 09h49
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:

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)

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

Code:

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

Code:

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

05/10/2008, 17h12
Delbeke

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

Code:

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

Un peu de recherche personelle que diable !

exactement merci

Code:

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

:yaisse2: