Création d'une classe ASP (connection & recordset)
Salut,
J'aurais voulu avoir un avis sur la classe de connexion que je viens d'écrire...
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73
| PARTIE CLASSE
<%
Class ClassBase
Private ObjectConnection,AccessDB
'Constructeur
Public Sub Class_Initialize()
ObjectConnection = "A"
AccessDB = "B"
End Sub
'Destructeur
Public Sub Class_Terminate()
End Sub
'Procedure d'ouverture d'une Connexion
Public Sub OpenCN(AccessDB)
Set ObjectConnection = Server.CreateObject("ADODB.Connection")
ObjectConnection.ConnectionString = " PROVIDER = Microsoft.Jet.OLEDB.4.0 ; DATA SOURCE = ";" & Server.MapPath(AccessDB) & ";"
ObjectConnection.Open ObjectConnection.ConnectionString
End Sub
'Procedure d'ouverture d'un Recorset
Public Sub OpenRS(AccessDB)
Set ObjectConnection = Server.CreateObject("ADODB.Recordset")
ObjectConnection.ConnectionString = " PROVIDER = Microsoft.Jet.OLEDB.4.0 ; DATA SOURCE = ";" & Server.MapPath(AccessDB) & ";"
ObjectConnection.Open ObjectConnection.ConnectionString
End Sub
'Procedure de fermeture de la connexion
Public Sub CloseCN()
Set OjectConnection = Nothing
ObjectConnection.Close()
End Sub
'Procedure de fermeture du Recordset
Public Sub CloseRS()
Set OjectConnection = Nothing
ObjectConnection.Close()
End Sub
End Class
%>
PARTIE PROGRAMME
<%
'Creation d'une instance de la classe ClassConnection
Set CN = New
CN.OpenCN "base.mdp"
RS.OpenRS "base.mdp"
CN.CloseCN
RS.CloseRS
'Destruction de l'instance de classe ClassConnection
Set Connection = Nothing
%> |
Merci d'avance