CLASSE DE CONNEXION À UNE BASE MYSQL

Imports MySql.Data
Imports MySql.Data.MySqlClient

Public Class Connexion

    Private m_connexion As MySqlConnection

    Public Shared ConnexionStr As String

    Sub OuvrirConnexion()

        Dim VR As New Variables

        Me.m_connexion = New MySqlConnection("server=NOMDUSERVEUR;database=NOMDELABASEDEDONNEES;userid=IDENTIFIANT;password=MOTDEPASSE;")
        Me.m_connexion.Open()


    End Sub

    Sub FermerConnexion()

        Try
            Me.m_connexion.Close()

        Catch ex As System.Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    Function RetourneConnexion()
        Return m_connexion
    End Function

    Sub RequeteSUI(ByVal SQL As String)

        Me.OuvrirConnexion()

        Dim cmd As New MySqlCommand(SQL, Me.RetourneConnexion())

        cmd.ExecuteNonQuery()

        Me.FermerConnexion()

    End Sub

    Function RetourSelectUnResultat(ByVal SQL As String)

        Dim retour As Object = Nothing

        Me.OuvrirConnexion()

        Dim cmd As New MySqlCommand(SQL, Me.RetourneConnexion())
        Dim Reader As MySqlDataReader = Nothing

        Reader = cmd.ExecuteReader()

        While Reader.Read()
            retour = Reader.Item(0)
        End While

        Reader.Close()

        Return retour

        Me.FermerConnexion()

    End Function

    Function RetourRequete(ByVal SQL As String)


        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim NbChamps

        Me.OuvrirConnexion()

        Dim cmd As New MySqlCommand(SQL, Me.RetourneConnexion())
        Dim Reader As MySqlDataReader = Nothing

        Reader = cmd.ExecuteReader()
        NbChamps = Reader.FieldCount()

        Dim retour(500, NbChamps) As Object

        While Reader.Read()
            For j = 0 To NbChamps
                retour(i, j) = Reader.GetValue(j)
            Next
            i = i + 1
        End While

        Reader.Close()

        Return retour

        Me.FermerConnexion()
    End Function

End Class

Télécharger le zip