Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CRÉEZ UN RECORDSET AVEC LE CURSEUR DÉFILANT DE VOTRE CHOIX


Information sur la source

Catégorie :Base de données Niveau : Initié Date de création : 08/07/2002 Date de mise à jour : 08/07/2002 19:24:52 Vu : 5 124

Note :
Aucune note

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

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

  • <% @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
  • %>
<% @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

               %>

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


HTC G1

Entre 449€ et 449€


Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,359 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.