Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Erreur de connexion manuelle ou distribuée

Erreur de connexion manuelle ou distribuée

2 réponses
Avatar
marmotte
Bonjour,

je ne sais pas comment r=E9gler le probl=E8me de cette erreur
"impossible d'ouvrir une nouvelle connexion en mode=20
manuelle ou distribu=E9e"

voici mon code:
'D=E9but de transaction
cn.BeginTrans
=20

sql =3D "UPDATE W_Requetes SET [Nom requ=EAte] =3D '" &=20
DoubleLesQuotes(NouveauNomRequ=EAte) & "',[Cr=E9ateur requ=EAte]=20
=3D '" & DoubleLesQuotes(NomProfil) & " ' WHERE [Nom=20
requ=EAte] =3D '" & DoubleLesQuotes(NomRequete) & "'"
=20
On Error Resume Next
cn.Execute sql
If DetecteErreurSQL(sql) =3D True Then
cn.RollbackTrans
Exit Sub
End If
=20
'Validation des =E9critures
cn.CommitTrans

merci pour votre aide
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Axel Guerrier [MS]
Bonjour,

Est ce que tu as mis tout ton code ?

jette un coup d'oeil ici
272358 PRB: SQLOLEDB Allows Only One Connection in Scope of Transaction
http://support.microsoft.com/?id'2358


--
Axel GUERRIER
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.

"marmotte" wrote in message
news:8f1e01c4787c$b0bd4b90$
Bonjour,

je ne sais pas comment régler le problème de cette erreur
"impossible d'ouvrir une nouvelle connexion en mode
manuelle ou distribuée"

voici mon code:
'Début de transaction
cn.BeginTrans


sql = "UPDATE W_Requetes SET [Nom requête] = '" &
DoubleLesQuotes(NouveauNomRequête) & "',[Créateur requête]
= '" & DoubleLesQuotes(NomProfil) & " ' WHERE [Nom
requête] = '" & DoubleLesQuotes(NomRequete) & "'"

On Error Resume Next
cn.Execute sql
If DetecteErreurSQL(sql) = True Then
cn.RollbackTrans
Exit Sub
End If

'Validation des écritures
cn.CommitTrans

merci pour votre aide
Avatar
marmotte
oui j'ai mis tout le code

-----Message d'origine-----
Bonjour,

Est ce que tu as mis tout ton code ?

jette un coup d'oeil ici
272358 PRB: SQLOLEDB Allows Only One Connection in Scope


of Transaction
http://support.microsoft.com/?id'2358


--
Axel GUERRIER
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le


newsgroup où il a été
posté. Je le consulte régulièrement.

"marmotte" wrote in message
news:8f1e01c4787c$b0bd4b90$
Bonjour,

je ne sais pas comment régler le problème de cette erreur
"impossible d'ouvrir une nouvelle connexion en mode
manuelle ou distribuée"

voici mon code:
'Début de transaction
cn.BeginTrans


sql = "UPDATE W_Requetes SET [Nom requête] = '" &
DoubleLesQuotes(NouveauNomRequête) & "',[Créateur requête]
= '" & DoubleLesQuotes(NomProfil) & " ' WHERE [Nom
requête] = '" & DoubleLesQuotes(NomRequete) & "'"

On Error Resume Next
cn.Execute sql
If DetecteErreurSQL(sql) = True Then
cn.RollbackTrans
Exit Sub
End If

'Validation des écritures
cn.CommitTrans

merci pour votre aide


.