Erreur d'execution ?
Résolu
sasafca
Messages postés
505
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
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!!
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!!
A voir également:
- Erreur d'execution ?
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- Java code erreur 1603 ✓ - Forum Windows
