'===================================================================================== '2005/03/13 23:39 ' 'Voici un exemple réel de connexion à une base de données MSAccess (anciennement sur le serveur de brinkster). ' 'Il s'agit d'un exemple tiré d'un projet de cégep fait par deux de mes collègues et moi. ' 'Remarquer, que la connexion utilise un fichier qui contient les droits d'accès, le fichier .mdw. Il n'est pas nécessaire. Si on n'utilise pas le paramètre Jet OLEDB:System database="MSAccessMotDePasse.mdw", il faut seulement spécifier le mot de passe avec Password. '===================================================================================== ' Constantes globales de connexion Dim strDB_Path : strDB_Path = """" & Server.MapPath("BaseDeDonneMSAccess.mdb") & """" Dim strMDW_Path : strMDW_Path = """" & Server.MapPath("MSAccessMotDePasse.mdw") & """" Dim strConOpen : strConOpen = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Étudiant;Data Source=" & strDB_Path strConOpen = strConOpen & ";Persist Security Info=True;Jet OLEDB:System database=" & strMDW_Path & ";" Dim cnc Set cnc = Server.CreateObject("ADODB.Connection") cnc.Open strConOpen If (cnc.State <> 0) Then ' Connexion OK, mettez les instructions ici cnc.Close End If Set cnc = Nothing