Erreur d'execution ?

Résolu/Fermé
sasafca Messages postés 505 Date d'inscription mercredi 27 février 2008 Statut Membre Dernière intervention 8 septembre 2017 - 16 juil. 2013 à 14:26
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 17 juil. 2013 à 11:23
Bonjour,

pourquoi est-ce que j'ai l'erreur d'exécution 3704 ???
Operation is not allowed when the object is closed
Alors que j'ai toujours procédé ainsi et que ma requête et bonne ?


'--Connection à la base de données
Dim Connect As New ADODB.Connection
Connect.Open ("DRIVER={Microsoft ODBC for Oracle};UID=xxx;PWD=xxx;SERVER=xxx;")
Dim Result2, Result3 As ADODB.Recordset

var_fourni = zt_code_fournisseur.Value

'--Requête qui créer la LDA
SQL2 = "INSERT INTO PRL() VALUES ()"
Set Result2 = Connect.Execute(SQL2)
If Result2.EOF = True Then
ElseIf IsNull(Result2.Fields(0).Value) Or IsEmpty(Result2.Fields(0).Value) Then
Else:
var_LDA = Result2.Fields(0).Value
End If

Merci je deviens fou à pas trouver!!

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
17 juil. 2013 à 11:23
Bonjour

lorsque tu écris
Dim Result2, Result3 As ADODB.Recordset

en VBA,Result2 est ici déclaré comme variant et non comme recordset
donc, ca plante quand tu appelles result2

Dim Result2 As ADODB.Recordset , Result3 As ADODB.Recordset



1
sasafca Messages postés 505 Date d'inscription mercredi 27 février 2008 Statut Membre Dernière intervention 8 septembre 2017 4
16 juil. 2013 à 14:39
Est-il possible de faire un Result.EOF sur un INSERT d'abord ? ^^
0