Discussion :

[eddyphan]

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]

Bonjour,

Cette erreur se déclenche où ?

[eddyphan]

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]

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 ?

[eddyphan]

ok Merci, je vais essayer voir.

[eddyphan]

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-]

Salut,

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"..