reinitialiser les instances de classe

Bonjour,

J'utilise une bibliothèque de classes définies par mes soins pour faire tourner mon programme, dans chacune de ces classes métiers se trouve une variable

Code:

---

Shared cnx = AccesBase.getConnection

---

.

Le souci que j'ai c'est que cette variable peut prendre 2 valeurs qui représentent les connectionString de 2 bases (la base de test et la base de prod), donc lorsque je fais "Déconnecter" sur mon appli et que je reviens sur l'écran de log, il faudrait que je puisse "killer" ces variables cnx ou invalider les instances de mes classes métier.

P.S: J'ai également essayer deplacer cette variable cnx sur My.Settings mais le problème reste le même, une fois mes classes instanciées je n'arrive plus à leur mettre une nouvelle valeur de connexion.

Merci d'avance.

Salut,

A mon humble avis, tu ne prends pas le problème comme il le faut.

Ce qui serait le plus simple pour toi, ce serait d'avoir une classe avec les deux chaines de connections.

Tu crée une énumération (enum) pour définir deux "constantes" qui distingueront tes chaines.

Tu définis tes méthodes en Shared, comme ça, tu n'instancies pas ton objet.

Il te reste à faire

MaClasse.MaMethode(ma_base_de_donnee, ma_requete)

Et bien c'est déjà ce que j'ai fait, accesBase est une classe contenant une méthode getConnection qui elle même se réfère à My.Settings pour savoir à quelle chaîne de connection faire appel (My.Settings défini cette chaîne lors du log de l'utilisateur sur l'appli).

Ensuite lors des appels à mes classes métiers, elles s'instancient avec la chaîne "en cours", ce que je voudrais c'est changer la valeur de cette variable, en gros faire un test lors d'un appel pour savoir si la valeur est toujours la bonne.

Je crois que le plus simple c'est que lors de la déconnexion, il faudrait que je kill toutes les instances de mon programmes en cours, j'ai cherché dans le namespace "My" mais je n'ai pas trouvé mon bonheur,

Code:

---

My.Application.ApplicationContext.ExitThread

---

est un peu trop radical :mrgreen:

Bon, j'ai essayé ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub BtDeconnecter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtDeconnecter.Click My.Settings.UserEnCours = Nothing My.Settings.Test = Nothing Dim listForm As New List(Of Form) For Each f As Form In My.Application.OpenForms If f.Name Is "Login" Then Continue For Else listForm.Add(f) End If Next For Each f As Form In listForm My.Application.OpenForms.Item(f.Name).Dispose() Next Dim panoLogin As Windows.Forms.Form = New Login Me.Hide() panoLogin.Show() End Sub

---

mais toujours pas plus de succès...

Vraiment si quelqu'un pouvait m'indiquer la marche à suivre ça serait super sympa, parce que là je n'ai plus beaucoup de cheveux à force de les arracher :roll:

Je suis quasiment sûr que la solution réside dans le namespace "My" mais je ne trouve pas...

Vraiment, je pense que tu as un souci de conception.

Code:

---

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 37

Public Class MaClasseSQL Public Enum eTypeConnexion prod dev End Enum   Private _tpCnx as eTypeConnexion private _strCnx as String     Public Sub New(i_typecnx as eTypeConnexion) _tpCnx = i_typecnx me.Init() End Sub   Private Sub Init()   Select Case _tpCnx   Case prod 'ici tu charges la chaine de connexion prod + instanciation de ta variable de con _strCnx = "chainedeconnexion;prod"   Case dev _strCnx = "chainedeconnexion;dev"   Case Else   End Select   TaVariableDeConnexion.ConnectionString = _strCnx   End Sub     '.... End Class

---

Voilà comment tu pourrais structurer ta classe d'accès aux données.

Quand tu crées ta classe d'accès aux données, tu indiques dans quel cas tu te trouves ... Ou tu peux même gérer ça avec un booléen dans ton cas "True = prod / False = dev"

A toi de voir après, comment dans ton appli, tu switch le mode prod/dev...

Dans tes paramètres (my.settings) tu crées donc deux variables !

CNXSTR_PROD
CNXSTR_DEV

Oui c'est à peu près ce que j'ai fait au final:

au login :

Code:

---

1 2 3 4 5

If CbTest.Checked Then My.Settings.connect = "maChaîneDeTest" Else My.Settings.connect = "maChaînedeProd" End If

---

et dans la classe d'accès au données :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Class AccesBase   ''' <summary> ''' Retourne la sqlConnection à utiliser ''' </summary> ''' <returns>SqlConnection</returns> ''' <remarks>la chaîne de connection est différente en cas de connexion à la base test ou prod</remarks> Public Shared Function getConnection() As SqlClient.SqlConnection Dim cnx As New SqlClient.SqlConnection cnx.ConnectionString = My.Settings.connect Return cnx End Function   End Class

---

Ce qui me gêne, c'est que je faisais déjà à peu près ça avant, puis je me suis dit qu'à chaque fois que j'appelais mes classes métier j'instanciait une nouvelle chaîne de connexion, mais en la placant dans My.Settings le problème est résolu non? C'est bien toujours le même objet qui est appelé? C'est même du coup le même objet pour toute les classes (si j'ai bien compris les settings)?

EDIT : Ou alors il faudrait que je fasse une autre fonction (closeConnection par exemple) qui ferait un Dispose() sur le cnx?

Suite à un "mini-débat" avec mon CDP (qui est ancien dev'),

je fais comme toi.

Mais tu peux simplifier et faire deux fonctions (voir 3) comme ça

Code:

---

1 2 3

Public Shared Select(type as TonTypeDeCnx, req as String) as DataTable Public Shared NonSelect(type as TonTypeDeCnx, req as String) as Boolean Public Shared Insert(type as TonTypeDeCnx, req as String) as String

---

Comme ça, tu fais tes appels comme çà :

Code:

---

MaClasse.Select("dev"/"prod", "select * from users")

---

Et tu n'as jamais à te préoccuper des connexions/deconnexions, qui sont encapsulé dedans... Du coup, après ta requête tu es déconnecté de ta base.

Et le premier paramètre de la fonction ("prod" ou "dev") reste inchangé tout le long de la session