1 réponse
Salut
Moi je créé une fonction ConnectDB où tu passes en paramètre le nom de ta base de données :
Voilà essai ça et tiens moi au courant...
Moi je créé une fonction ConnectDB où tu passes en paramètre le nom de ta base de données :
Public Function ConnectDB(ByVal nomDB As String) As ADODB.Connection
Dim chemin As String = Application.StartupPath
'connection à la base de données
Dim connect As New ADODB.Connection
nomDB = chemin & "\" & nomDB
connect.ConnectionString = "provider=microsoft.Jet.OLEDB.4.0;Data Source=" & nomDB & ";Mode=ReadWrite;Persist Security Info=False"
connect.Open()
Return connect
End Function
Voilà essai ça et tiens moi au courant...
