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

Salut,

C'est bien de faire des classes :)

• L'as-tu testée?
• Inutile de répéter "class" dans le nom de ta classe. On sait que c'est une classe. Enlève le cela fera de la place pour donner un nom plus explicite.
• Détruit tes objets (=nothing) dans le class_terminate
• Une classe comporte des procédures, fonctions, mais aussi c'est très important des propriétés. Celles-ci te renvoient (te donne) tout ce pour quoi tu les auras programmées. Si tu veux disposer d'un outils mettant à ta disposition un recordset, il faut utiliser une fonction ou une propriété. Dans ton exemple les procédures executent du code mais toutes seules de leur coté.
• Détruit tes objet dans l'odre inverse de celui dans lequel tu les as créés:
  
  Code:

  ---

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

  Dim conn, cm, rs Set conn = Server.createObject("ADODB.Connection") conn.ConnectionString = "ta chaine de connection" conn.open Set cm = Server.CreateObject("ADODB.Command") cm.ActiveConnection = conn Set rs = Server.createObject("ADODB.Recordset") rs.open "select ... from Matable", cm   rs.close Set rs = nothing Set cm = Nothing conn.close Set conn = nothing

  ---

  Les évènements doivent être imbriqués dans l'ordre.
• As-tu regardé ici: http://www.developpez.net/forums/sho....php?t=503798?
• Dans ce code tu ne créés pas d'instance nommée "Connection":
  Code:

  ---

  1 2 3 4 5 6 7 8 9 10 11 12 13 14

  <% '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 %>

  ---

C'est un bon début :)

A+