<%
Classrlmandbcls
PrivateDBPath, RLConn, SdbType, SServerName, Susername, Spassword
Public public
PRIVATESUBCLASS_INITIALIZE ()
sdbType = ""
Fin
PRIVATESUBCLASS_TERMINE ()
IfisObject (rlConn) puis
RlConn.close
SetrlConn = rien
Endire
Fin
PublicProperTyletDBType (ByValStrvar)
sdbtype = strvar
Endproperty
PublicPropertyletServerName (ByValStrvar)
sservername = strvar
Endproperty
PublicPropertyleTuserName (ByValStrvar)
Susername = Strvar
Endproperty
PublicProperTyletPassword (ByValStrvar)
spassword = strvar
Endproperty
'Définir le chemin de la base de données
PublicProperTyletDBPath (ByValStrvar)
sdbpath = strvar
SelectCasesDbType
Cas "SQL"
StrServer = SServername 'Nom du serveur de base de données
Struid = susername'y votre compte de connexion
StrSapwd = spassword'sour mot de passe de connexion
Strdbname = sdbpath'your name de base de données
sdbpath = "driver = {sqlServer}; server =" & strServer & "; uid =" & struid & "; pwd =" & strSapwd & "; database =" & strdbname
Cas "Access", ""