ODBC : Une exception a été levée par l'initialiseur de type pour 'PREMICIA.EDDYPHAN'.

**eddyphan** · 14/05/2012, 09h35

Bonjour à tous
Depuis trois jours, je traine avec ce message d'erreur
(Une exception a été levée par l'initialiseur de type pour 'PREMICIA.EDDYPHAN'.) et toutes mes tentatives n'ont rien donné. J'utilise une connexion odbc. Veuillez m'aider SVP

voici mon module de connexion

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 Public Function connexion() As OdbcConnection
 
 
 
 
 
        Dim username As String = "sa"
        Dim password As String = "Secundia84"
 
        Dim db As String = "DSN=PREMICIA;UID=" & username & ";PWD=" & password & ";"
 
        'Dim cnx1 As New OdbcConnection(db)
        Dim cnx1 = New OdbcConnection(db)
 
        longcpteR = 3
        longcpteG = 6
        lenCpte = "000000"
 
        With db
            Try
 
                cnx1.Open()
 
                'frconnexe.ShowDialog()
            Catch ex As Exception
                MsgBox("Erreur de Connexion....")
                MsgBox(Err.Description)
            End Try
        End With
 
        'End If
        '    End If
        Return cnx1
 
 
 
    End Function

Mon objet de démarrage est un formulaire et voici le code qui est derrière la form_load du formulaire :

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
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub frconnexe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'md_CONNEXION()
        connexion()
        Me.Icon = My.Resources.iconePM1
        Me.PictureBox1.Image = My.Resources.ImagePrémicia
 
 
 
        'Dim Mycommand1 As OdbcCommand = connexion.CreateCommand()
 
 
        'Mycommand1.CommandText = "SELECT Representant FROM REPRESENTANT"
 
 
 
        'Dim myReader1 As OdbcDataReader = Mycommand1.ExecuteReader()
 
 
        'Do While myReader1.Read()
 
        '    ComboBox1.Items.Add(myReader1.GetString(0))
 
        'Loop
        'myReader1.Close()
 
    End Sub

**Gurdil le nain** · 14/05/2012, 10h05

Bonjour,

Cette erreur se déclenche où ?

**eddyphan** · 14/05/2012, 10h15

Dans le load de mon formulaire de démarrage

sur l'appel de la fonction connexion qu'il souligne en jaune et affiche l'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Private Sub frconnexe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        connexion()
 
 
 
 
 
    End Sub

**Gurdil le nain** · 14/05/2012, 10h26

Déjà, ta fonction renvoi quelque chose que ton appel ne stocke pas...
Il faudrait faire un truc du genre :

Code :

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

Dim con as OdbcConnection = connexion()

Ensuite, il faudrait savoir où cela plante dans la connexion : est ce que ta chaine de connexion est bonne ?

**-N4w4k-** · 14/05/2012, 10h29

Salut,

Envoyé par eddyphan

Code :

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

Dim db As String = "DSN=PREMICIA;UID=" & username & ";PWD=" & password & ";"

Voici un exemple de connexion (en C#):

Code :

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

1
2
3
4
5
6
7
8
using System.Data.Odbc;
 
OdbcConnection conn = new OdbcConnection();
conn.ConnectionString = 
              "Dsn=DsnName;" + 
              "Uid=UserName;" + 
              "Pwd=Secret;"; 
conn.Open();

Je remarque que "DSN" <> "Dsn", "UID" <> "Uid" et "PWD" <> "Pwd"..

**eddyphan** · 14/05/2012, 10h38

ok Merci, je vais essayer voir.

**eddyphan** · 14/05/2012, 10h47

Merci pour vos apport de solution.

Ou vais je déclarer le

Code :

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

1
2
 
Dim con As OdbcConnection = connexion()

Je vais la déclarer dans la fonction de connexion ou dans le formulaire de démarrage?

**-N4w4k-** · 14/05/2012, 10h54

Ici:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim con As OdbcConnection = Nothing 'variable dont tu pourras te servir dans tout ton formulaire (dans toutes les méthodes)
 
 Private Sub frconnexe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    con = connexion()
    '...
 
End Sub

La connexion ne plante plus?

**eddyphan** · 14/05/2012, 10h58

J'ai repris avec les recommandations mais j'ai toujours les même erreurs :

voici la reprise

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Public Function connexion() As OdbcConnection
 
 
 
 
 
        Dim username As String = "sa"
        Dim password As String = "Secundia84"
 
 
 
 
 
        'Dim db As String = "Dsn=PREMICIA;Uid=" & username & ";Pwd=" & password & ";"
 
        'Dim cnx1 As New OdbcConnection(db)
        'Dim cnx1 = New OdbcConnection(db)
 
        Dim con As OdbcConnection = connexion()
        con.ConnectionString =
              "Dsn=Premicia;" +
              "Uid=sa;" +
              "Pwd=Secundia84;"
 
        longcpteR = 3
        longcpteG = 6
        lenCpte = "000000"
 
        With con
            Try
 
                con.Open()
 
            Catch ex As Exception
                MsgBox("Erreur de Connexion....")
                MsgBox(Err.Description)
            End Try
        End With
 
 
        Return con
 
 
 
    End Function

**eddyphan** · 14/05/2012, 11h13

J'ai toujours la même erreur avec entête

L'Exception TypeInitializationException n'a pas été gérée

Le message:

Une exception a été levée par l'initialiser de type 'PREMICIA.EDDYPHAN'

**Gurdil le nain** · 14/05/2012, 11h15

Tu as des détails sur l'exception ? (Fais afficher les détails lors de son déclenchement)

De plus, tu n'as pas compris où mettre le

Code :

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

con = connexion()

, là tu l'as mis dans ta fonction de connexion alors qu'il doit être dans le load de ton formulaire...là tu nous a fait une fonction qui s'appelle en boucle!!

**-N4w4k-** · 14/05/2012, 11h16

Apparemment ton exception est de type TypeInitializationException et:

Lorsqu'un initialiseur de classe n'arrive pas à initialiser un type, une TypeInitializationException est créée et passe une référence à l'exception levée par l'initialiseur de classe du type. La propriété InnerException de TypeInitializationException contient l'exception sous-jacente.

Essaie d'avoir le type non initialisé (TypeInitializationException.TypeName) et le message d'erreur (TypeInitializationException.InnerException.Message).

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
17
18
19
20
21
    Dim con As OdbcConnection = Nothing
 
    Private Function Connection()
        Try
            Dim cs As String = "Dsn=PREMICIA;Uid=sa;Pwd=Secundia84;"
            Return New OdbcConnection(cs)
        Catch tiex As TypeInitializationException
            MsgBox("Type non initialisé: " + tiex.TypeName)
            MsgBox("Message: " + tiex.InnerException.Message) 
        Catch ex As Exception
            MsgBox("Autre exception: " + ex.Message)
        End Try
        Return Nothing
    End Function
 
    Private Sub frconnexe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        con = Connexion()
        '...
 
    End Sub

**eddyphan** · 14/05/2012, 11h51

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
17
18
19
20
21
22
 
 Dim con As OdbcConnection = Nothing
 
    Private Function Connection()
        Try
            Dim cs As String = "Dsn=PREMICIA;Uid=sa;Pwd=Secundia84;"
            Return New OdbcConnection(cs)
        Catch tiex As TypeInitializationException
            MsgBox("Type non initialisé: " + tiex.TypeName)
            MsgBox("Message: " + tiex.InnerException.Message) 
        Catch ex As Exception
            MsgBox("Autre exception: " + ex.Message)
        End Try
        Return Nothing
    End Function
 
    Private Sub frconnexe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        con = Connexion()
        '...
 
    End

merci pour votre apport

Je voudrais savoir si ce code va remplir mon code existant dans le module de connexion qui est :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
 Public Function connexion() As OdbcConnection
 
 
 
 
 
        Dim username As String = "sa"
        Dim password As String = "Secundia84"
 
 
 
 
 
        'Dim db As String = "Dsn=PREMICIA;Uid=" & username & ";Pwd=" & password & ";"
 
        'Dim cnx1 As New OdbcConnection(db)
        'Dim cnx1 = New OdbcConnection(db)
 
        Dim con = connexion()
        con.ConnectionString =
              "Dsn=Premicia;" +
              "Uid=sa;" +
              "Pwd=Secundia84;"
 
        longcpteR = 3
        longcpteG = 6
        lenCpte = "000000"
 
        With con
            Try
 
                con.Open()
 
            Catch ex As Exception
                MsgBox("Erreur de Connexion....")
                MsgBox(Err.Description)
            End Try
        End With
 
 
        Return con
 
 
 
    End Function

Aussi lorque con est déclaré avec Dim, je n'arrive pas à l'avoir dans le load du formulaire de démarrage.

Est que c'est Private Function Connection() que vous voulez écrire ou
Private Function Connexion().

Merci pour tout

**-N4w4k-** · 14/05/2012, 12h13

Envoyé par eddyphan

Est que c'est Private Function Connection() que vous voulez écrire ou
Private Function Connexion().

Private Function Connexion(). Remplace ta fonction par la mienne.

Envoyé par eddyphan

Aussi lorque con est déclaré avec Dim, je n'arrive pas à l'avoir dans le load du formulaire de démarrage.

Déclare la connexion dans le form, et non dans une fonction comme ça tu pourras retrouver la variable dans toutes tes méthodes.

EDIT: Arf j'ai oublié d'ouvrir la connexion:

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
17
18
19
20
21
22
23
Dim con As OdbcConnection = Nothing
 
    Private Function Connexion()
        Try
            Dim cs As String = "Dsn=PREMICIA;Uid=sa;Pwd=Secundia84;"
            Dim conn As New OdbcConnection(cs)
            conn.Open()
            Return conn
        Catch tiex As TypeInitializationException
            MsgBox("Type non initialisé: " + tiex.TypeName)
            MsgBox("Message: " + tiex.InnerException.Message) 
        Catch ex As Exception
            MsgBox("Autre exception: " + ex.Message)
        End Try
        Return Nothing
    End Function
 
    Private Sub frconnexe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        con = Connexion()
        '...
 
    End

**DonQuiche** · 14/05/2012, 12h22

Bonjour.

Avec un nom pareil c'est forcément une MST.

Plus sérieusement, c'est le constructeur statique de PREMICIA.EDDYPHAN qui plante, rien à voir avec le code que tu as montré : c'est seulement lors de l'appel de ce code que le constructeur statique a été implicitement appelé.

**eddyphan** · 14/05/2012, 12h41

Merci à tous pour vos apports et pour le temps qui m'est consacré. J'ai essayé mais ça ne marche pas.
J'ai une liste d'erreur provenant de chaque formulaire qui dit ceci :

Connexion n'est pas déclaré. Il est peut être inaccessible en raison de son niveau de protection.

Entre autre, voici tout mon module de connexion. peut être que l'erreur se situe dedans. Veuillez m'aider SVP...

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
Imports System.Data
Imports System.Data.Odbc
Imports System.IO
Imports System.Data.CommandBehavior
Imports Microsoft.VisualBasic
 
Module EDDYPHAN
    Public Vmodif As Boolean
 
    Public PCaisse, PDepot, PCodDepo, PCodcaiss, PVendeur As String
    Public Pdate As Date
    Public chain, chem, loginpastor As String
    Public Ji, Mi, Ai, DE As String
 
    Public daform, dadform, DARE, dapepe As OdbcDataAdapter
    Public dsform, dsdfrm, Dsre, dspepe As New DataSet
    Public daro, darod As DataRow
    Public frm As New Article
    Public cmup As OdbcCommandBuilder
 
    Public eddy As OdbcCommand
    Public eddyReader As OdbcDataReader
    Public optParent, optexist, mlig As Boolean
    Public etattick As New TCaisse
    Public etaBroui As New brouillardSaise
    Public etabrouicais As New BrouillardCaiss
    Public frmet As New Rpt
    Public cbod As New DataGridViewComboBoxColumn
    Public txtgrid As New DataGridViewTextBoxColumn
    Public formlist As New Form
    Public optlistG, ord As String
    Public valgrid, valgrid1, valgrid2, valgrid3, valgrid4, valgrid5, valgrid6, valgrid7, vdelai, gridaa, gridbb, grida, gridb, gridc, gridaf, gridafa, gridafb, gridT, lenCpte, subString As String
    Public i, nb, j, K, longcpteR, longcpteG, A, B As Integer
    Public optserv, optlist, optconnect As Boolean
 
    Public Function CreateComboBoxColumn() _
    As DataGridViewComboBoxColumn
        Dim column As New DataGridViewComboBoxColumn()
 
        With column
            '.DataPropertyName = ColumnName.TitleOfCourtesy.ToString()
            '.HeaderText = ColumnName.TitleOfCourtesy.ToString()
            .DropDownWidth = 160
            .Width = 90
            .MaxDropDownItems = 3
            .FlatStyle = FlatStyle.Flat
        End With
        Return column
    End Function
 
 
    Private Function Connexion()
        Try
            Dim cs As String = "Dsn=PREMICIA;Uid=sa;Pwd=Secundia84;"
            Dim conn As New OdbcConnection(cs)
            conn.Open()
            Return conn
        Catch tiex As TypeInitializationException
            MsgBox("Type non initialisé: " + tiex.TypeName)
            MsgBox("Message: " + tiex.InnerException.Message)
        Catch ex As Exception
            MsgBox("Autre exception: " + ex.Message)
        End Try
        Return Nothing
    End Function
 
 
    Sub main()
 
        frconnexe.ShowDialog()
 
    End Sub
End 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
  Private Sub frconnexe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim con As OdbcConnection = Nothing
 
 
        Dim con As OdbcConnection = Nothing
 
 
        con = connexion
 
        Me.Icon = My.Resources.iconePM1
        Me.PictureBox1.Image = My.Resources.ImagePrémicia
 
 
 
        'Dim Mycommand1 As OdbcCommand = connexion.CreateCommand()
 
 
        'Mycommand1.CommandText = "SELECT Representant FROM REPRESENTANT"
 
 
 
        'Dim myReader1 As OdbcDataReader = Mycommand1.ExecuteReader()
 
 
        'Do While myReader1.Read()
 
        '    ComboBox1.Items.Add(myReader1.GetString(0))
 
        'Loop
        'myReader1.Close()
 
    End Sub

**-N4w4k-** · 14/05/2012, 12h49

Envoyé par eddyphan

Connexion n'est pas déclaré. Il est peut être inaccessible en raison de son niveau de protection.

Il faut que tu mette la fonction Connexion à coté de la méthode frconnexe_Load

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim con As OdbcConnection = Nothing
 
Private Sub frconnexe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    con = Connexion()
    '...
End Sub
 
Private Function Connexion()
    '...
End Function

Envoyé par DonQuiche

lors de l'appel de ce code que le constructeur statique a été implicitement appelé.

Un constructeur statique?

**DonQuiche** · 14/05/2012, 12h51

Tu dois avoir une InnerException sur ta TypeLoadException, il suffit de regarder ce que c'est.

Envoyé par -N4w4k-

Un constructeur statique?

Oui, un constructeur statique. En VB un shared constructor.

**eddyphan** · 14/05/2012, 13h02

Monsieur N4w4k-

je vais vous expliquer. Avec mon ex Public function connexion as odbcconnection,
J'ai déjà créer plusieur formulaire et j'exécutais sans soucis mon application avant que l'erreur ne surgisse tout récemment environ 4 jours.

Donc si je mets mon Private Function à côté du load de ma feuille de démarrage, les autres feuilles qui utilisait ma function public connexion connection affiche l'erreur
"connexion n'est pas déclaré"..

Est ce possible que je remplace le private par public?

merci pour tout

**Gurdil le nain** · 14/05/2012, 13h45

Si tu commençais par répondre aux questions que l'on te pose...

Tu as des détails sur l'exception ? (Fais afficher les détails lors de son déclenchement)

Essaie d'avoir le type non initialisé (TypeInitializationException.TypeName) et le message d'erreur (TypeInitializationException.InnerException.Message).

Tu dois avoir une InnerException sur ta TypeLoadException, il suffit de regarder ce que c'est.

ODBC : Une exception a été levée par l'initialiseur de type pour 'PREMICIA.EDDYPHAN'.

VB.NET

Discussions similaires

Partager

Partager