salut
en faite je fais une connexion sur une base de donnée, mais je veux pouvoir appeler cette connexion de n import quel form, je pense que je dois cree une class ou un module , mais avec tout mes testes malheuresement avec echec.
En faite je veux apple la region connexionSQL et la region connexionOLEDB a partir d'une classe ou un module a partir du Private Sub Button2_Click
ce code fonctionne mais j ai tous sur la meme classe

Merci


Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class connexion
    Dim m_connexionSQL As SqlConnection
    Dim m_ConnexionOLEDB As OleDbConnection
    Dim connexionG As connect


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connexionG As New connect

        OuvrirConnexionSQL()
        MessageBox.Show("etat de la connexion:" & Me.m_connexionSQL.State.ToString)
        'MessageBox.Show("etat de la connexion:" & Me.m_connexionSQL.State.ToString)
        FermerConnexionSQL()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Str As String = "create table temps (ch1 nvarchar(50))"
        Dim cmdSQL As New SqlCommand
        Dim cmdOLEDB As New OleDbCommand
        If CheckBox1.Checked Then
            OuvrirConnexionSQL()
            cmdSQL.Connection = Me.m_connexionSQL
            cmdSQL.CommandText = Str
            cmdSQL.CommandType = CommandType.Text
            cmdSQL.ExecuteNonQuery()
        Else
            OuvrirConnexionOLEDB()
            With cmdOLEDB
                .Connection = Me.m_ConnexionOLEDB
                .CommandText = Str
                .CommandType = CommandType.Text
                .ExecuteNonQuery()
            End With
        End If
    End Sub

#Region "Connexion OLEDB"
    Sub OuvrirConnexionOLEDB()
        Dim StringConnexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=;Password=;Data source=C:\RENAULT\Base iDVU\BDDiDVU.mdb"
        Me.m_ConnexionOLEDB = New OleDbConnection(StringConnexion)
        Try
            Me.m_ConnexionOLEDB.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Sub FermerConnexionOLDB()
        Me.m_ConnexionOLEDB.Close()
    End Sub
#End Region

#Region "connexionQSL"
    Sub OuvrirConnexionSQL()
        Dim StringConnexion As String = "Server=broken\sqlexpress;" & "DataBase=iDVU78;" & "Integrated Security=SSPI"
        Me.m_connexionSQL = New SqlConnection(StringConnexion)
        Try
            Me.m_connexionSQL.Open()

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

    Sub FermerConnexionSQL()
        Try
            Me.m_connexionSQL.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
#End Region
End Class