Connexion a une base de donnée

Réponse acceptée !
salut tu trouvera ton bonheur ici
connexion sql server et access


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

Public Class connexion
    Dim m_connexionSQL As SqlConnection
    Dim m_ConnexionOLEDB As OleDbConnection
 
    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

 

#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