Bonjour à tous,

Nouveau sur le forum, je me tourne vers vous pour m'aider à résoudre un problème que je n'arrive pas à solutionner, malgré des heures et des heures de recherches et de tests.

Je me suis lancé dans le développement d'une application métier pour ma nouvelle activité professionnelle.
Le gros de l'application se base sur de la lecture/écriture en base.

Je cherche à réaliser une fonction que je puisse appeler afin d'ouvrir un connexion à la base et effectuer un test de validité de connexion,
pour ensuite pouvoir faire mes requêtes.

Le code fonctionne correctement lorsque je le copie/colle aux endroits où il est nécessaire.
Par contre quand je le place dans une fonction et que je l'appelle dans le code d'une autre Form, cela ne fonctionne pas.

Auriez-vous s'il vous plaît une idée de ce que je peux rater?

Merci d'avance



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
Class BDD
        Shared server As String = "127.0.0.1"
        Shared prt As String = "3306"
        Shared user As String = "root"
        Shared pass As String = "************"
        Shared db As String = "dbs*******"
        Shared conn As MySqlConnection
        Shared str As String
        Shared cmd As New MySqlCommand
        Shared dr As MySqlDataReader
 
        Shared Function TestConnexionDB() As Boolean
            Try
                str = "server=" & server & ";user=" & user & ";database=" & db & ";port=" & prt & ";password=" & pass
                conn = New MySqlConnection(str)
 
                If conn.State = ConnectionState.Closed Then
                    conn.Open()
                    If ConnectionState.Open Then
                        Return True
                        conn.Close()
                    Else Return False
                        'MessageBox.Show("Connection BDD Failed!", "Connection", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    End If
 
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message.ToString)
            End Try
 
        End Function
 
        Shared Function OpenConnexionDB()
            Try
                str = "server=" & server & ";user=" & user & ";database=" & db & ";port=" & prt & ";password=" & pass
                conn = New MySqlConnection(str)
 
                If conn.State = ConnectionState.Closed Then
                    conn.Open()
                    If ConnectionState.Open Then
                        Return True
                    Else
                        Return False
                        MessageBox.Show("Connection BDD Failed!", "Connection", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    End If
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message.ToString)
            End Try
        End Function