Erreur d'automation

[Calimero33]

Bonjour afin de factoriser mon code VBA j'ai veux faire une boucle for qui execute mes requêtes via des recordset. Mes requetes fonctionne je les ai toutes testé individuellement. Quand je fais :

Set Rst = Cn.Execute("Texte_SQL_10") ça fonctionne
Set Rst = Cn.Execute("Texte_SQL_" & I) ça fonctionne pas j'ai une erreur d'automation.

Extrait code :

Texte_SQL10 =  " SELECT ..."
Texte_SQL11 =  " SELECT ..."
Texte_SQL12 =  " SELECT ..."
Texte_SQL13 =  " SELECT ..."

...

For I = 10 To 14

Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute("Texte_SQL_" & I)

...

Next

 

[supernov3]

Re : Erreur d'automation

Extrait code :

Texte_SQL10 =  " SELECT ..."
Texte_SQL11 =  " SELECT ..."
Texte_SQL12 =  " SELECT ..."
Texte_SQL13 =  " SELECT ..."

...

For I = 10 To 14

Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute("Texte_SQL[B]_[/B]" & I)

...

Next

Bonjour,

Peut être l'anomalie provient elle du second "_"? Le code va chercher à exécuter "Texte_SQL_10" et non "Texte_SQL10".
A vous lire.

 

[jetted]

Re : Erreur d'automation

Avez-vous essayer

Texte_SQL10 =  " SELECT ..."
Texte_SQL11 =  " SELECT ..."
Texte_SQL12 =  " SELECT ..."
Texte_SQL13 =  " SELECT ..."

...

For I = 10 To 14
I= CStr(I)
Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute("Texte_SQL_" & I)

...

Next

[/QUOTE]

 

[tbft]

Re : Erreur d'automation

et avec :

Set Rst = Cn.Execute("Texte_SQL" & CSTR(I))

est ce que cela arrange qqch?

Bonjour jetted

Désolé je n'avais pas vue votre message...

 

[Pierrot93]

Re : Erreur d'automation

Bonjour à tous,

peut être ainsi :

For I = 10 To 14
Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute("Texte_SQL_" & I)
[COLOR="Blue"][B]Rst.Close
Set Rst = Nothing[/B][/COLOR]
Next

bonne soirée
@+

 

[Calimero33]

Re : Erreur d'automation

L'absence du caractere "_" dans la déclaration est un oublie de recopie. J'ai essaye

Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute("Texte_SQL_" & CStr(I))
Rst.Close
Set Rst = Nothing

mais la probleme persiste.

 

[supernov3]

Re : Erreur d'automation

L'absence du caractere "_" dans la déclaration est un oublie de recopie.

Dommage, c'était une bonne piste... Je n'ai pas d'autre idée, désolé... 🙁

 

[tbft]

Re : Erreur d'automation

Attention question bête:
pourquoi faire deux set sur la variable Rst?
à quoi correspond cn?