Instance dynamique SqlConnection

Bonjour,

j'effectue la connexion à une base de données SQL Server en utilisant l'expression suivante:

Code:

---

Public connexmssql As New SqlConnection("Data Source=" & My.Computer.Name & ";Initial Catalog=madb;Integrated Security=True")

---

Je souhaite remplacer My.Computer.Name par une variable qui contient la même valeur que My.Computer.Name. Mais lorsque je remplace, j'ai une exception qui est levée.

Citation:

---

Une exception a été levée par l'initialiseur de type

---

Que dois-je faire?

nous donner le code qui bug ...

enfin l'exception se passe dans un shared sub new à priori (ou une variable shared avec instanciation)

try catch ca aide

Dans un module

Code:

---

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

'Connexion à MySQL Public connexmysql As New MySqlConnection("Database=dbtest; Data Source=localhost;User Id=root;Password='';" & "Connection Timeout=20")   'Récupération du nom du serveur dans MySQL Function nomserveur()   Dim nomserv As New MySqlCommand("SELECT monserveur FROM config WHERE id=1", connexmysql) Dim ns As String = nomserv.ExecuteScalar() Return ns   End Function     'Connexion à SQL Server Public chainemssql As String = "Data Source=" & nomserveur() & ";Initial Catalog=basetest;Integrated Security=True" Public connexmssql As New SqlConnection(chainemssql)

---

Puis dans ma fenêtre

Code:

---

1 2 3 4 5 6 7

Try connexmysql.Open() MsgBox("Connexion réussie") connexmysql.Close() Catch ex As Exception MsgBox(ex.Message) End Try

---

Dans un debug pas à pas, l'application plante sur la ligne

Code:

---

connexmysql.Open()

---

pour donner le message suivant:

Citation:

---

Une exception a été levée par l'initialiseur de type dans module1

---

Je note que la fonction nomserveur() retourne bien un résultat.

Ce serait p-e pas mal de définir un type de retour pour la fonction nomserveur().

Je te suggère de placer tout en haut de ton module les deux lignes suivantes

Code:

---

1 2	Option Strict On Option Explicit On

---

Et d'ensuite corriger les erreurs que VS te montrera. Cela devrait déjà faire beaucoup.

Citation:

---

Envoyé par Kropernic

Ce serait p-e pas mal de définir un type de retour pour la fonction nomserveur().

Je te suggère de placer tout en haut de ton module les deux lignes suivantes

Code:

---

1 2	Option Strict On Option Explicit On

---

Et d'ensuite corriger les erreurs que VS te montrera. Cela devrait déjà faire beaucoup.

---

Merci mais le problème demeure.

Peut-on avoir plus d'information sur l'exception ?

Code:

---

1 2 3

MsgBox(ex.Message & ex.StackTrace) 'ou MsgBox(ex.ToString)

---