'Résolu le problème du chemin de la base de données ACCESS !
'Utilisez DBType=0 ou DBType=1 pour distinguer la bibliothèque AC ou la bibliothèque MSSQL
'Pour les questions spécifiques auxquelles il convient de prêter attention lors de l'utilisation de la bibliothèque AC, veuillez consulter la description du programme
----------------------------- ----- ----------
Faible DBType, Conn, StrConn
DBType=0 '0 est la base de données Access, 1 est la base de données MSSQL
If(DBType=0) Then
'******************ACCÈS À LA BASE DE DONNÉES******************
Dim NomDbFolder,DbFolder_Path,SiteFolder
DbFolderName="ArticleData" 'Nom du dossier où se trouve la base de données
DbFolder_Path = Server.MapPath(DbFolderName) 'Le chemin d'accès à la base de données
SiteFolder="Article" 'Le nom du répertoire racine où se trouve le systèmeIf
Session("RootDir") = "" Then
Session("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder
Terminer si
Définir Conn = Server.CreateObject("Adodb.Connection")
StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & ""& DbFolderName & "Data.mdb" 'Se connecter à la base de données
Conn.Open StrConn
'************************************************ *
SinonSi(DBType=1) Alors
'***************Base de données SERVEUR MSSQL******
Faible DBUserID, DBPassWord, DBName, DBIP
'Modifiez les informations suivantes en fonction de votre site
DBUserID="sa" 'Nom de connexion à la base de données
DBPassWord="" 'Mot de passe de la base de données
DBName="dbname" 'Nom de la base de données
DBIP="local" 'L'adresse de la base de données, s'il s'agit d'une base de données locale : (local)
Set Conn=Server.CreateObject("Adodb.Connection")
StrConn = "PROVIDER=SQLOLEDB.1;Data Source="&DBIP&";Initial Catalog="&DBName&";Persist Security Info=True;User ID="&DBUserID&";Password="&DBPassWord&";Connect Timeout=30"
Conn.Open StrConn
'************************************************ * ****
Autre
'************************Erreur de configuration de la base de données******************
Response.Write "Erreur de configuration de la base de données, veuillez contacter l'administrateur !"
Réponse.Fin
Fin si
'Réponse.WriteStrConn