<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Classe d'opération de base de données
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Nom : Classe_DBPerate
'Version : 0.2
'Auteur : Qihangnet
'Mise à jour : 14 juin 2005
'Fonction : Simplifier le processus des opérations de base de données
'Autorisation : Utilisation gratuite
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Classe Class_DBOperate
'************ * **************************
'Définition variable
'************************************
'Conn ---------- objet de connexion à la base de données
'Conn_Str ------ Chaîne de connexion à la base de données
Private Conn,Conn_Str
'************************************ ** ***
'Initialisation/terminaison de l'instance
'************************************
Sous-classe privée_Initialize()
Définir Conn = Server.CreateObject("ADODB.Connection")
Fin du sous-
classe privée sous-classe_Teriminate()
SetConn=Rien
Fin du sous-
'************************************
'propriété
'************************************
'Chaîne de connexion à la base de données de sortie
'Type de valeur de retour : chaîne
Propriété Get ConnectString
ConnectString = Conn_Str
End Property
'Définir la chaîne de connexion à la base de données (chaîne de connexion à la base de données)
' Paramètre : str --- string
Propriété Let ConnectString(str)
Conn_Str = chaîne
Fin de la propriété
'************************************
'événement
'************************************
'La base de données s'ouvre
Sous-public DB_Open() .
Conn.ConnectionString = Conn_Str
Conn.Ouvert
End Sub
'La base de données est fermée
Sous-public DB_Close()
Conn.Fermer
Fin du sous-
'************************************
'méthode
'************************************
'Requête de base de données (instruction SQL)
'Paramètres et catégories : sql ---- chaîne
'Type de valeur de retour : jeu d'enregistrements
' Prérequis : L'état de la base de données est ouvert
Fonction publique DB_Select(sql)
Définir DB_Select = Conn.Execute(sql)
End Function
'Exécution de la base de données (instruction SQL)
'Paramètres et catégories : sql ---- chaîne
'Type de valeur de retour : entier
'Valeur renvoyée signifiant : nombre de lignes affectées
' Prérequis : L'état de la base de données est ouvert
Fonction publique DB_Excute(sql)
Dim rs_affecté
Conn.Execute sql,rs_affected
DB_Excute = rs_affected
Classe de fin de
fonction de fin
%>