Discussion :

[Boubye]

Bonjour,

Je développais en VB 6 e je viens de mettre en VB.net. J'ai un code ne vb 6 que j'ai essayer de mettre en vb.net mais à l'exécution j'ai cette erreur : "impossible de changer la propriété 'connectionstring'. l'état actuel de la connexion est ouvert". Merci de m'aider s'il vous plait.
Voici la portion de code VB 6 que j'ai essayer de transcrire en vb.net

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
            'Passation des écritures
            Set rsEcriture = New ADODB.Recordset
            rsEcriture.Open "SELECT * FROM ECRITURE", cn, 1, 2
            rsEcriture.AddNew
            rsEcriture.Fields(0) = EcritureComptable
            rsEcriture.Fields(1) = DTDate.Value
            rsEcriture.Fields(2) = "Reglt. Fournisseur " & Nom_Fournisseur(Fournisseur_Credit(RefCredit))
            rsEcriture.Fields(3) = TxtRef
            rsEcriture.Fields(4) = Date
            rsEcriture.Fields(5) = CodePeriode
            rsEcriture.Fields(6) = TxtCodeGestion
            rsEcriture.Fields(7) = CodeDocument
            rsEcriture.Fields(8) = CmbCompte
            rsEcriture.Fields(9) = TxtCheque
            rsEcriture.Fields(10) = MontantOp
            rsEcriture.Update
 
            'Compte Financier : Debit
            Set rsMouvCompte = New ADODB.Recordset
            rsMouvCompte.Open "SELECT * FROM MOUVEMENT_COMPTABLE", cn, 1, 2
            rsMouvCompte.AddNew
            rsMouvCompte.Fields(0) = EcritureComptable
            rsMouvCompte.Fields(1) = CompteFinancier
            rsMouvCompte.Fields(2) = MontantOp
            rsMouvCompte.Update
            'Compte Fournisseur : Crédit
            Set rsMouvCompte = New ADODB.Recordset
            rsMouvCompte.Open "SELECT * FROM MOUVEMENT_COMPTABLE", cn, 1, 2
            rsMouvCompte.AddNew
            rsMouvCompte.Fields(0) = EcritureComptable
            rsMouvCompte.Fields(1) = CompteFournisseur
            rsMouvCompte.Fields(3) = MontantOp
            rsMouvCompte.Update
            'Mise à jour
            Set rsMaj = New ADODB.Recordset
            rsMaj.Open "UPDATE CREDIT_FOURNISSEUR SET CR_Regle=" & Val(TxtReg) + MontantOp & " WHERE CR_Ref=" & RefCredit & "", cn, 1, 2

[chrisdot]

Dans le code que tu donnes, on ne voit pas trop la manipulation de la chaine de connexion (connectionString justement), du coup c'est difficile de te donner un avis.

[Boubye]

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Sub OuvrirBd()
        cnx.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & Application.StartupPath & "\Data\Gescompta.accdb; Persist Security Info=False;"
        cnx.Open()
End Sub

[daerlnaxe]

Salut à toi,

A vue de nez, en espérant ne pas me tromper, tu laisses en permanence ta connexion ouverte, et tu cherches à la rouvrir à chaque requête. Si c'est bien ça il faut que tu vois si tu utilises un système avec une base à laquelle tu restes en permanence connecté (sous réserve de possibilité au niveau de la configuration du provider)ou bien si tu fermes la connexion à chaque fois que ta requête est passée. Je me souviens plus trop de vba mais faut voir du côté using en c# (donc voir si équivalent) pour être sur de refermer à chaque fois.

je suis passé sur la page MS voir si quelque chose pourrais t'aider , j'ai trouvé ça:
https://docs.microsoft.com/fr-fr/tro...ordset-objects

et si je ne me plante pas ça convergerait dans mon sens, le recordset est fermé puis la connexion.