[VBA] Pb avec une requete select

Question

Bonjour,



J'ai besoin d'un gros coup de main parce que &#231;a fait 2 jours que je gal&#232;re sur ce  probl&#232;me.

Je chercher &#224; importer des donn&#233;es de excel dasn une base de donn&#233;es
access mais je rencontre un probl&#232;me au niveau de ma requete.



Dim xl As Excel.Application



        Dim MySQL , typ As String



        Dim rst As DAO.Recordset


        Dim typ as string


        .......


        MySQL = "SELECT [type],[Taxon] FROM
ListePollens WHERE ([Taxon]= '" & xl.Cells(i, 1).Value & "')"



        Set rst = CurrentDb.OpenRecordset(MySQL, dbOpenDynaset, dbReadOnly)



        typ=rst![type]

        ........



J'ai &#224; chaque fois fois le message comme quoi il n'y a pas
d'enregistrement en cours. Pourtant j'ai v&#233;rifi&#233; et rev&#233;rifi&#233;
l'orthographe de mes champs et il n'y a aucun probl&#232;me l'enregistrement
existe bien. Mais le programme ne le voit pas.

J'ai aussi v&#233;rifi&#233; mes boucles et il n'y a pas de probl&#232;me.

Le programme bloque au niveau de :

 Set rst = CurrentDb.OpenRecordset(MySQL, dbOpenDynaset, dbReadOnly)




J'ai vraiment besoin d'un coup de main svp 

Merci,

Seb.

cs_dan80 · Answer

taxon est bien un string?

cokinoumasterflash · Answer

Salut,



Oui oui Taxon a bien &#233;t&#233; d&#233;fini comme du texte dans ma base de donn&#233;e.



Seb.

cs_frop01 · Answer

Si Taxon est de type string essai

 MySQL = "SELECT [type],[Taxon] FROM ListePollens WHERE ([Taxon]= '" & trim(str(xl.Cells(i, 1).Value) & "')" 

PS: Si votre probl&#232;me est r&#233;solu, pri&#232;re de bien vouloir cl&#244;turer votre message par une r&#233;ponse accept&#233;e !

cokinoumasterflash · Answer

Alors j'ai essay&#233; avec ta solution mais du coup j'ai un autre message d'erreur :

incompatibilit&#233; de type.

Seb.

cs_dan80 · Answer

je te conseille d'affecter la aleur de la cellule a une variable, de l'afficher pour controle puis tu envoi la variable a ta requete 
comme ca tu trouveras peut etre ton erreur

cs_frop01 · Answer

Dans le cas que j'ai cit&#233; il manque une parenth&#232;se



 MySQL = "SELECT [type],[Taxon] FROM ListePollens WHERE ([Taxon]= '" & trim(str(xl.Cells(i, 1).Value)) & "')" 



sinon fait un d&#233;boguage comme dan80 a dit !! 

PS: Si votre probl&#232;me est r&#233;solu, pri&#232;re de bien vouloir cl&#244;turer votre message par une r&#233;ponse accept&#233;e !

cokinoumasterflash · Answer

Merci de pr&#233;venir pour les parenth&#232;se mais j'avais corriger de moi-m&#234;me

Alors j'ai fait ce que vous m'avez dit c'est &#224; dire :



Dim nom as integer

nom = "'" & xl.Cells(i, 1).Value & "'"

MySQL = "SELECT [type],[Taxon] FROM ListePollens WHERE ([Taxon]=nom)" 

Du coup j'ai un message d'erreur : Trop peu de param&#232;tres, 1 attendu.



Si je met ensuite [taxon]='nom', je retrouve mon message : pas d'enregistrements correspondant.



Le probl&#232;me c'est que je ne comprends m&#234;me pas le nouveau message d'erreur.



Seb.

Zlub · Answer

Salut











 Dim nom as integer

 nom = "'" & xl.Cells(i, 1).Value & "'"

 MySQL = "SELECT [type],[Taxon] FROM ListePollens WHERE ([Taxon]=nom)" 



pas d'enregistrements correspondant, &#231;a parait logique, tu voulais pas plut&#244;t faire &#231;a :



 Dim nom as integer


 nom = "'" & xl.Cells(i, 1).Value & "'"


 MySQL = "SELECT [type],[Taxon] FROM ListePollens WHERE ([Taxon]=" & nom & ")" 



Perso, j'aime pas manipuler les noms de champs avec les []  ...
donc je te dirais de les enlever vu qu'ils ne servent pas &#224; grand chose
(dans le cas o&#249; les noms de champs sont sans espaces) ... Mais &#231;a
n'explique pas ton bug ....





Et quand tu testes ta requ&#234;tes sous access, tu as une erreur ? Tant que
ta requ&#234;te ne tourne pas sous access, ce n'est pas la peine de compter
la voir fonctionner dans ton appli VB...



++



Zlub

cokinoumasterflash · Answer

ok je vais regarder ta solution en esp&#233;rant que &#231;a marche....



@+

Seb.

cokinoumasterflash · Answer

J'ai fait ce que tu m'as dis. Il y a du mieux. Le programme ne me
renvoie pas tuot de suite un message d'erreur. Mais au bout d'un
certain temps il me dit : D&#233;passement de capacit&#233;.

Pourtant je n'utilise pas un grand tableau. (Il fait 116 lignes * 23 colonnes).

L'ordinateur &#233;tant r&#233;cent le probl&#232;me ne devrait pas venir de lui.Peut-&#234;tre que cela vient de ACCESS ?



As-tu d&#233;j&#224; eu ce genre de bug ?



Seb.

[VBA] Pb avec une requete select

10 réponses

Discussions similaires