L'Altruiste : La technique ADO - L'objet ADO <i>Connection</i>

L'objet ADO Connection représente un connexion ouverte à une source de données.

Objet_Connection.Collection | Méthode | Propriété | Evénement

Il n'est pas fondamentalement utile de créer un objet Connection pour ouvrir une connexion sur une base de données puisque automatiquement, une ouverture de cete dernière s'opère implicitement, lors de l'utilisation des objets Command, Recordset, et Record.

Outre la connexion à une base de données, l'objet Connection permet de paramètrer précisément des connexions dans le domaine de la sécurité, de la gestion des transactions, du fournisseur OLE DB, etc..

Dépendant des fonctionnalités supportées par le fournisseur, plusieurs collections, méthodes, ou propriétés d'un objet Connection peuvent ne pas être disponibles.

Les Collections

Collection
Description
Errors
contient tous les objets Error créés en réponse à des erreurs relatives du fournisseur.
Properties
contient toutes les objets Property pour une instance spécifique d'un objet.

Les Propriétés

Propriété
Description
Objet_Connection.Objet_Connection.Attributes
retourne une ou plusieurs caractéristiques d'un objet.
Objet_Connection.CommandTimeout = Temps
indique le délai à appliquer lors de la tentative d'exécution d'une commande avant de déclencher l'interruption puis la génération d'un message d'erreur.
Objet_Connection.ConnectionString = "Argument=Valeur..."
indique les informations utlisées pour établir une connexion à une source de données.
Objet_Connection.ConnectionTimeout = Temps
indique le délai de temporisation lors d'une tentative d'établissement d'une connexion avant de déclencher son interruption et la génération d'un message d'erreur.
Objet_Connection.CursorLocation = CursorLocationEnum
indique la localisation du service de curseur.
Objet_Connection.DefaultDatabase = "Base de donnée"
indique la base de données par défaut.
Objet_Connection.IsolationLevel = IsolationLevelEnum
indique le niveau d'isolation d'un objet Connection
Objet_Connection.Mode = ConnectModeEnum
indique les permissions disponibles pour la modification des données dans les objets Connection, Record ou Stream.
Objet_Connection.Provider
indique le nom du fournisseur à utiliser pour un objet Connection.
Objet_Connection.State = True \| False
indique pour tous les objets applicables si l'état de l'objet est ouvert ou fermé.
Objet_Connection.Version
indique le numéro de version d'ActiveX Data Objects.

Les Méthodes

Méthode
Description
Objet_Connection.BeginTrans
commence une nouvelle transaction.
Objet_Connection.CommitTrans
sauvegarde n'importe quels changements et la fin de la transaction courante. Il est égaement possible de commencer une nouvelle transaction.
Objet_Connection.RollbackTrans
annule n'importe quels changements opérés durant la trasaction courante et termine la transaction. Il peut aussi démarrer une nouvelle transaction.
Objet_Connection.Cancel
annule l'exécution de la méthode appelée en cours.
Objet_Connection.Close
ferme un objet ouvert ainsi que tous les objets en dépendant.
Set recordset = Objet_Connection.Execute(Enregistrements_Affectés, Paramètres, Options) 'ou_Command.Execute
exécute une requête, une instructions SQL, une procédure stockée ou le texte propre au fournisseur spécifié.
Objet_Connection.Open Texte_Connexion, ID_Utilisateur, Mot_de_Passe, Options
ouvre une connexion à une source de données.
Set Objet_Recordset = Objet_Connection.OpenSchema(SchemaEnum, Critères, ID_Schema)
obtient les informations en provenance du fournisseur, sur le schéma de la base de données.

Les Evénements

Evénement
Description
Objet_Connection.BeginTransComplete Niveau_Transaction, Erreur, Statut, Connexion
est appelé après l'exécution de la méthode BeginTrans.
Objet_Connection.CommitTransComplete Erreur, Statut, Connexion
est appelé après l'exécution de la méthode CommitTrans.
Objet_Connection.RollbackTransComplete Erreur, Statut, Connexion
est appelé après l'exécution de la méthode RollbackTrans.
Objet_Connection.ConnectComplete Erreur, Statut, Connexion
est appelé après le démarrage d'une connexion.
Objet_Connection.Disconnect Statut, Connexion
est appelé après la fin d'une connexion.
Objet_Connection.ExecuteComplete Enregistrement_Affecté, Erreur, Statut, Commande, Recordset, Connexion
est appelé après qu'une commande ait fini son exécution.
Objet_Connection.InfoMessage Erreur, Statut, Connexion
est appelé à chaque fois que se produit un avertissement durant une opération de connexion.
Objet_Connection.WillConnect Texte_Connexion, ID_Utilisateur, Mot_de_passe, Options, Statut, Connexion
est appelé avant le démarrage d'une connexion.
Objet_Connection.WillExecute Source, Type_Curseur, Type_Verrou, Options, Statut, Commande, Recordset, Connexion
est appelé juste avant une commande en instance soit exécutée sur une connection.

Exemple [voir]

<!-- Formulaire de modification -->
<html>
 <head>
 <script language="VBScript">
     Sub Soumission_OnClick()
       If Len(formulaire.txtNom.value) = 0 Then
       Alert "Veuillez entrer un Nom !"
       formulaire.txtNom.focus
       Exit Sub
       ElseIf Len(formulaire.txtPrenom.value) = 0 Then
       Alert "Veuillez entrer un Prénom !"
       formulaire.txtPrenom.focus
       Exit Sub
       ElseIf Len(formulaire.txtAge.value) = 0 Then
       Alert "Veuillez entrer un âge !"
       formulaire.txtAge.focus
       Exit Sub
       ElseIf Len(formulaire.txtQualite.value) = 0 Then
       Alert "Veuillez entrer une qualité !"
       formulaire.txtQualite.focus
       Exit Sub
       ElseIf Len(formulaire.txtAdresse.value) = 0 Then
       Alert "Veuillez entrer une adresse complète !"
       formulaire.txtAdresse.focus
       Exit Sub
       End If
       Call formulaire.submit()
     End Sub
 </script>
 </head>
 <body>
 <%
     Dim Commande_SQL
     If Len(Request.Form("Etape")) = 0 Then
       Set obj_Recordset = Server.CreateObject("ADODB.Recordset")
       obj_Recordset.Open "Select eMail from Fiche","DSN=Personnel"
 %>
 <form action="traitement.asp" method="post" name="form">
     <input type="hidden" name="Etape" value="Modif">
     <table>
       <tr>
       <th>Sélectionner une adresse eMail</th>
       </tr>
       <tr>
       <td>
         <select name="select_eMail">
         <%
           Do While Not obj_Recordset.EOF
         %>
           <option value="<%=obj_Recordset("eMail")%>">
             <%=obj_Recordset("eMail")%>
           </option>
         <%
             obj_Recordset.MoveNext
           Loop
           obj_Recordset.Close
           Set obj_Recordset = Nothing
         %>
         </select>
       </td>
       </tr>
       <tr>
       <td>
         <input type="submit" name="Validation" value="Soumettre">
       </td>
       </tr>
     </table>
 </form>
 <%
     ElseIf Request.Form("Etape") = "Modif" Then
       Commande_SQL = "Select * from Fiche where eMail = '" & _
                 CStr(Request.Form("select_eMail")) & "'"
       Set obj_Recordset = Server.CreateObject("ADODB.Recordset")
       obj_Recordset.Open strSQL,"DSN=personnel"
 %>
 <form action="connection.asp" method="post" name="formulaire">
     <input type="hidden" name="txtEmail" 
               value="<%=obj_Recordset("eMail")%>">
     <table>
       <tr>
       <td>eMail</td>
       <th style="color: red; font-size:12pt">
         <%=obj_Recordset("eMail")%>
       </th>
       </tr>
       <tr>
       <td>Nom</td>
       <td>
         <input type="text" name="txtNom" size="20"
                  value=<%=obj_Recordset("Nom")%>>
       </td>
       </tr>
       <tr>
       <td>Prenom</td>
       <td>
         <input type="text" name="txtPrenom" size="20"
                  value=<%=obj_Recordset("Prenom")%>>
       </td>
       </tr>
       <tr>
       <td>Age</td>
       <td>
         <input type="text" name="txtAge" size="20"
                  value=<%=obj_Recordset("Age")%>>
       </td>
       </tr>
       <tr>
       <td>Qualité</td>
       <td>
         <input type="text" name="txtQualite" size="20"
                  value=<%=obj_Recordset("Qualite")%>>
       </td>
       </tr>
       <tr>
       <td>Adresse</td>
       <td>
         <textarea name="txtAdresse" cols="20" rows="3">
           <%=obj_Recordset("Adresse")%>
         </textarea>
       </td>
       </tr>
       <tr>
       <td>
         <input type="button" name="Soumission" value="Modifier">
       </td>
       </tr>
     </table>
 </form>
 <%
       obj_Recordset.Close
       Set obj_Recordset = Nothing
     End If
 %>
 </body>
</html>
<!-- Formulaire de traitement traitement.asp -->
<html>
 <body>
 <%
     Dim Commande_SQL
     Dim adCmdText
     adCmdText = 1
     Commande_SQL = "Update Fiche Set " & _
               "Nom = '" & _
               CStr(Request.Form("txtNom")) & "', " & _
               "Prenom = '" & _
               CStr(Request.Form("txtPrenom")) & "', " & _
               "Age = " & _
               CLng(Request.Form("txtAge")) & ", " & _
               "Qualite = '" & _
               CStr(Request.Form("txtQualite")) & "', " & _
               "Adresse = '" & _
               CStr(Request.Form("txtAdresse")) & "' " & _
               "Where eMail = '" & _
               CStr(Request.Form("txtEmail")) & "'"
     Set obj_Connection = Server.CreateObject("ADODB.Connection")
     obj_Connection.Open "DSN=personnel"
     Set obj_Command = Server.CreateObject("ADODB.Command")
     Set obj_Command.ActiveConnection = obj_Connection
     obj_Command.CommandText = Commande_SQL
     obj_Command.CommandType = adCmdText
     obj_Command.Execute
     Response.Write "<p>Les éléments suivants ont été modifiés dans " & _
                   "la table de données <i>Personnel</i> :</p>" & _
                   "<b>" & Commande_SQL & "</b>"
     Set obj_Command = Nothing
     obj_Connection.Close
     Set obj_Connection = Nothing
 %>
 </body>
</html>

Sommaire

Les arguments de ConnectionString