encore !
tout d'abord, nous allons utiliser ADODB
tu dois donc ajouter "Microsoft Active Data Objects 2.x Library" x êtant le plus grand (normallement 8)
dans un module que tu nommes Database tu mes :
Option Explicit
Public Conn As New ADODB.Connection
Public Conn_ConnStr As String
Public Sub OpenConn(DBPath As String)
Set Conn = New ADODB.Connection
Conn_ConnStr = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & DBPath & ";Uid=Admin;Pwd=Admin;PassWord=Admin;"
Conn.ConnectionString = Conn_ConnStr
Conn.Open
End Sub
Public Sub CloseConn()
On Error Resume Next
Conn.Close
On Error GoTo 0
Set Conn = Nothing
End Sub
