Discussion :

[vg-matrix]

Bonjour,

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

Code :

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

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.

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

Que dois-je faire?

[Pol63]

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

[vg-matrix]

Dans un module

Code :

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
'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 :

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

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 :

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

connexmysql.Open()

pour donner le message suivant:

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

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

[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 :

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

1
2
Option Strict On
Option Explicit On

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

[vg-matrix]

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 :

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

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.

[_Ez3kiel]

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

Code :

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

1
2
3
MsgBox(ex.Message & ex.StackTrace)
'ou
MsgBox(ex.ToString)