Créez un recordset avec le curseur défilant de votre choix

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 101 fois - Téléchargée 36 fois

Contenu du snippet

Créez un Recordset avec le curseur défilant de votre choix. Il doit être possible d'aller au dernier enregistrement puis de revenir au premier jusqu'à ce que la propriété BOF de l'objet Recordset soit True. Dans cet exemple, plutôt que d'aller du début à la fin du Recordset en passant d'un enregistrement à l'autre, vous allez directement de la fin au début.

Source / Exemple :


<% @Language = VBSCRIPT %>

               <% Option Explicit %>

               <!--#include virtual="/adovbs.inc"-->

               <%

               'Crée une connexion à notre base de données Produits

               Dim objConn

               Set objConn = Server.CreateObject("ADODB.Connection")

               objConn.ConnectionString = "DSN=BDDProduits"

               objConn.Open

               'Crée une instance d'objet recordset, objRS

               Dim objRS

               Set objRS = Server.CreateObject("ADODB.Recordset")

               'Ouvre le Recordset avec un curseur Keyset 

               objRS.Open "Produits", objConn, adOpenKeyset, , adCmdTable

               'Affiche le contenu de la table Produits du dernier

               'enregistrement au premier... Donc, pour commencer, nous devons passer

               'au dernier enregistrement

               objRS.MoveLast

               'Nous devons maintenant passer du dernier au premier

               Do While Not objRS.BOF

               Response.Write "<BR>" & objRS("Nom") & " - " & _

               FormatCurrency(objRS("Prix"))

               'Passe au précédent enregistrement

               objRS.MovePrevious

               Loop

               'Nettoyage !

               objRS.Close

               Set objRS = Nothing

               objConn.Close

               Set objConn = Nothing

               %>

               2. Créez implicitement un objet Recordset à l'aide de la méthode Execute de l'objet Connection. Cette méthode doit lancer une requête SQL.

               <% @Language = VBSCRIPT %>

               <% Option Explicit %>

               <!--#include virtual="/adovbs.inc"-->

               <%

               'Crée une connexion à notre base de données Produits

               Dim objConn

               Set objConn = Server.CreateObject("ADODB.Connection")

               objConn.ConnectionString = "DSN=BDDProduits"

               objConn.Open

               'Crée une chaîne SQL 

               Dim strSQL

               strSQL = "SELECT Nom,Prix FROM Produits ORDER BY Prix"

               'Crée une instance d'objet recordset, objRS

               Dim objRS

               Set objRS = objConn.Execute(strSQL)

               'Affiche le contenu du Recordset objRS

               Do While Not objRS.EOF

               Response.Write "<BR>" & objRS("Nom") & " - " & _

               FormatCurrency(objRS("Prix"))

               'Passe au prochain enregistrement

               objRS.MoveNext

               Loop

               'Nettoyage !

               objRS.Close

               Set objRS = Nothing

               objConn.Close

               Set objConn = Nothing

               %>

               3. Créez implicitement un objet Recordset en utilisant la méthode Execute de l'objet Command. La méthode Execute doit être utilisée pour extraire le contenu de la table de la base de données.

               <% @Language = VBSCRIPT %>

               <% Option Explicit %>

               <!--#include virtual="/adovbs.inc"-->

               <%

               'Crée une connexion à notre base de données Produits

               Dim objConn

               Set objConn = Server.CreateObject("ADODB.Connection")

               objConn.ConnectionString = "DSN=BDDProduits"

               objConn.Open

               'Crée l'objet command 

               Dim objCommand

               Set objCommand = Server.CreateObject("ADODB.Command")

               'Définit les propriétés de l'objet command 

               objCommand.CommandText = "Produits"

               objCommand.ActiveConnection = objConn

               objCommand.CommandType = adCmdTable

               'Crée une instance d'objet implicite recordset, objRS

               Dim objRS

               Set objRS = objCommand.Execute

               'Affiche le contenu du Recordset objRS

               Do While Not objRS.EOF

               Response.Write "<BR>" & objRS("Nom") & " - " & _

               FormatCurrency(objRS("Prix"))

               'Passe à l'enregistrement suivant

               objRS.MoveNext

               Loop

               'Nettoyage !

               objRS.Close

               Set objRS = Nothing

               objConn.Close

               Set objConn = Nothing

               %>

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.