probléme entre access et vb avec select distinct

Question

Bonjour,
J'ai un petit probl&#233;me, je m'explique: 

je fais &#231;a : 

C_Str = " SELECT DISTINCT TypeProduit FROM produit "
Set Recordset = Ma_Base.OpenRecordset(C_Str)
If Not (Recordset.BOF And Recordset.EOF) Then
Do While Not Recordset.EOF
'On affiche les noms
Combo1.AddItem Recordset.Fields("TypeProduit").value
Loop
        End If
Et j'ai une erreur a "set recordset"(2&#233;me ligne) , &#231;a me dit "argument type incorrect, en dehors des limites autoris&#233; ou en conflit avec un autre" 
je ne comprends pas.
Merci d'avance

  JIMM

Starec · Answer

Essaye ceci :
1- Met un ; apr&#233;s produit dans ta chaine Sql
2- Essaye Set Recordset = Ma_Base.OpenRecordset(C_Str, dbOpenDynaset)

Starec

jimluis · Answer

Merci, mais &#231;a ne marche toujours pas, &#231;a bloque au set recorset. M&#234;me message.

  JIMM

Dje69r · Answer

Question bete... tu n'aurais pas un champs m&#233;mo dans ta table [produit] ??
Car moi j'ai eu le soucis il y a pas mal de temps sur Access 97...

Dje

Starec · Answer

Je ferais plut&#244;t

    C_Str = "SELECT DISTINCT TypeProduit FROM produit;" Vire l'espace avant le Select
    Set Recordset = Ma_Base.OpenRecordset(C_Str,dbOpenDynaset) 
    WHILE not Recordset.Eof
           nomdelaform.Combo1.Additem Recordset("TypeProduit")
            recordset.movenext
     Wend
     Recordest.close
     set Reordset = Nothing

Starec

jimluis · Answer

Non j'ai pas de champs m&#233;mo.c'est un champs texte.

M&#234;me avec ce code cela ne marche pas , &#231;a bloque a  "Set Recordset = Ma_Base.OpenRecordset(C_Str,dbOpenDynaset) " 

Comme toujours d'ailleurs
Je ne vois pas l'erreur, d'ou &#231;a peut venir???
merci d'avance.

  JIMM

Starec · Answer

C'est s&#251;rement la requ&#234;te qui "Merde", je n'ai jamais utilis&#233; la fonction DISTINCT en Sql, je pense qu'elle doit distinguer les diff&#233;rentes valeurs du champ de TypeProduit de ta table Produit, si c'est ce cas essaye un GROUP BY

C_Str = "SELECT  TypeProduit FROM produit GROUP BY TypeProduit;" 

De plus as-tu bien d&#233;clar&#233; tes donn&#233;es, C_Str comme une string, Ma_Base comme DAO.Database, et Recordset comme DAO.Recordset

Sinon je coince d&#233;sol&#233;

Car je fais tout de t&#234;te je ne peux tester

Starec

jimluis · Answer

Et bah non pas de chance, c'est pas &#231;a non plus, 
Merci quand m&#234;me pour cette aide, c'est cool.

  JIMM

Starec · Answer

Je pense &#224; un truc Recordset est un nom r&#233;serv&#233;, fait une d&#233;claration

dim rst as DAO.Recordest et remplace tous les Recordset par rst.

Starec

jimluis · Answer

j'ai deja essay&#233; &#231;a , &#231;a marche pas non plus, lol
C'est un probl&#233;me tr&#233;s bizarre, mais ou est la solution.
Merci pour l'aide.

  JIMM

Dje69r · Answer

En fait tu veux faire quoi ?
Car pour recuperer le recorset d'une table a la con perso je fais ca :

Set MaBase = OpenDatabase("c:\DB1.mdb")
Set MaReq = MaBase.CreateQueryDef("")
MaReq.SQL = "SELECT DISTINCT TypeProduit FROM produit"
Set MonRecordset = MaReq.OpenRecordset()

Je sais pas si ca peux t'aider...

Dje

Probléme entre access et vb avec select distinct

10 réponses

Discussions similaires