Erreur d'automation

Calimero33 · 13 Juillet 2010

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 :

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 · 13 Juillet 2010

Re : Erreur d'automation

Calimero33 à dit:

Extrait code :

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 · 13 Juillet 2010

Re : Erreur d'automation

Avez-vous essayer

Code:

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 · 13 Juillet 2010

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 · 13 Juillet 2010

Re : Erreur d'automation

Bonjour à tous,

peut être ainsi :

Code:

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 · 13 Juillet 2010

Re : Erreur d'automation

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

Code:

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

mais la probleme persiste.

supernov3 · 13 Juillet 2010

Re : Erreur d'automation

Calimero33 à dit:
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 · 13 Juillet 2010

Re : Erreur d'automation

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

Erreur d'automation

Calimero33

XLDnaute Nouveau

supernov3

XLDnaute Nouveau

jetted

XLDnaute Occasionnel

tbft

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

Calimero33

XLDnaute Nouveau

supernov3

XLDnaute Nouveau

tbft

XLDnaute Accro

Discussions similaires