Erreur SQL0519

Question

Option Explicit
Dim CnnAs400 As New ADODB.Connection


Private Sub Command1_Click()
Dim Rsas400 As New ADODB.Recordset
Dim Cmdas400 As New ADODB.Command


    Cmdas400.ActiveConnection =  CnnAs400
    Cmdas400.CommandType = adCmdText


    Cmdas400.CommandText = "select * from BIB.TABLE"
     Set Rsas400 = Cmdas400.Execute 
    Do Until Rsas400.EOF
       MsgBox Rsas400(1)
       Rsas400.MoveNext
    Loop
    Rsas400.Close
    Set Rsas400  = Nothing
End Sub


Private Sub Form_Load()
    CnnAs400.Open "Provider=IBMDA400;Data source=SXXXXX", "", ""
End Sub

le programme se deroule sans problème la premiere fois mais si je click une 2 fois sur le boutton il bloque sur l'instruction en rouge et je reçois un message d'erreur: 
SQL0519: l'instruction préparée S1 est déjà utilisée.
j'ai beau cherche j'ai pas trouvé la solution. Merci pour votre aide.


N.B: le meme programme marche impec qd je change de provider.

cs_vpoyo · Answer

pourquoi tu ne désalloue pas ton objet command a la fin de la procédure en même tant que le recordset ?
tu dois avoir également une méthode qui permet de "reseter" l'objet command

jnazih · Answer

Salut,

merci de t'avoir interessé à mon problème.

il n'y a pas de methode pour desallouer la commande ou du moins je ne la connais pas si tu sais comment faire je serai vraiment ravi.

d'avance je t'en remercie.

cs_vpoyo · Answer

désallouer c'est mettre l'objet à nothing

jnazih · Answer

j'ai essayé et j'ai tjrs le meme message.
es ce que ça peut venir de la version de CAE (Client Access Express) j'ai la version V5R2 avec le dernier pack.

Erreur SQL0519

4 réponses

Votre réponse