Erreur d'execution ? Résolu/Fermé

Question

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!!
Configuration: Windows 7  / Internet Explorer 8.0

sasafca · Answer

Est-il possible de faire un  Result.EOF sur un INSERT d'abord ? ^^

michel_m · Answer

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

Erreur d'execution ?

2 réponses

Discussions similaires