Pbl sur envoi de rqte SQLRésolu

Question

bonjour,



je cherche a executer un prog avec une requete sql tres longue :
...
For i =  1 To cpte  'cpte peut etre tres grand (ie > 500)     fin_sql  IIf(i 1, "code = '" & Replace(tableau(1), "'", "''") & "'", fin_sql & " OR code = '" & Replace(tableau(i), "'", "''") & "'")
Next
rst.Open "SELECT * FROM matable WHERE (" & fin_sql & ");", connexion
...


losque vb6 juge ma requete trop longue, il m'envoie le message d'erreur ci-dessous sur la ligne "rst.open"  :
Erreur d'ex&#233;cution '-2147467259':
La requ&#234;te est trop complexe.


comment faire passer ma rqte sql malgres le desaccord de vb6 ?
existe t'il une instruction prevue a cet effet ? sinon, quelle est la bidouille la plus propre ?


merci a vous,



alonsyl

cs_CanisLupus · Accepted Answer

Salut,

Effectivement, 500 OR, c'est un peu trop.
Peut &#234;tre qu'en utilisant une liste, essaie toujours :

For i = 1 To cpte fin_sql IIf(i 1, "code IN ('" & Replace(tableau(1), "'", "''") & "'", fin_sql & ", '" & Replace(tableau(i), "'", "''") & "'")
next

fin_sql = fin_sql & ")"

rst.Open "SELECT * FROM matable WHERE " & fin_sql & ";", connexion

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

nhervagault · Answer

Salut,



Externalise le code de ta requete



Et je conprends pas ta requete 



fin_sql = a pas beaucoup de parametre car tu ne concatene pas 

fin_sql &=fin_sql 



Voila comment exterliser 

Le code devient 



fin_sql =  replace (table(i),'....)



Il n'y a pas besoin de boucle.

Ni du IIF

--> Performance optimale.



Voila

alonsyl · Answer

pour nhervagault:

si, je concatene fin_sql IIf(i 1, "code = '" & Replace(tableau(1), "'", "''") & "'", fin_sql & " OR code = '" & Replace(tableau(i), "'", "''") & "'") peut egalement s'ecrire
if i=1 then
fin_sql="code = '" & Replace(tableau(1), "'", "''") 
else:
 fin_sql=fin_sql & " OR code = '" & Replace(tableau(i), "'", "''") & "'")  
end if

etant donne que i  =1 to 500 (au mini) => je concatene au moins 500 fois.

merci quand meme
--------------------------------------------------------------------------------------
pour canislapidus:

j'essais de suite et je te dis ce qu'il en est ...

merci a toi.

nhervagault · Answer

OK



J'avais pas vu la fin de la requete d&#233;sol&#233;.



J'ai deux propositions a te faire dans ce cas

fin_sql= "code IN("

 fin_sql=fin_sql & join( tableau,',') & ')'

fin_sql  = replace(fin_sql, "'", "''")



C'est propre et rapide et maintenable ;-)



--> en resultat

CODE IN ('10',20','40')





Si ca plante encore



Il faut que tu creer une table temporaire

tu inseres tous les codes 

et 

ta requete devient

 for i = 1 to ....

INSERT INTO TEMP_CODE VALuES(table(i))

next i



CODE IN (SELECT CODE FROM TEMP_CODE)

Vidange table

DELETE FROM TEMP_CODE



voila

alonsyl · Answer

OK !

marche avec la methode "code in(...)".
je n'ai pas encore teste la 2eme solution (mais ca ne saurait tarder).

 mon pc se joint a moi pour vour remercier (car etait a 2 doigts de passer par la fenetre). @+,

alonsyl

poquelicot2 · Answer

Merci merci merci merci merci !!! Si simple et si bon, j'en &#233;tait venu &#224; d&#233;couper mes requ&#234;tes en plusieurs morceaux et &#224; les ex&#233;cuter &#224; la suite, ce qui pose &#224; nouveau plein de probl&#232;mes !!!

Merci encore !!!