begin process at 2012 05 24 22:20:31
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de données

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

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


 Information sur la source

Note :
Aucune note
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 :6 111

Auteur : Alex001

Ecrire un message privé
Site perso
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

               %>



 Sources de la même categorie

Source avec Zip GESTION_ENSEIGNANTS par Elmarzougui
Source avec Zip ZONE MEMBRE EN ASP "E-MEMBRES1.0" par cmaelc
Source avec Zip Source avec une capture Source .NET (Dotnet) ADMINISTRATION BASE DE DONNÉES ORACLE par chbayah
Source avec Zip Source avec une capture Source .NET (Dotnet) UTILISATION D'UN DATASET par ManuAntibes
Source avec Zip Source .NET (Dotnet) INSERTION / RECUPERATION D'IMAGE STOCKEE DANS UNE DB MS SQL ... par jimmy69

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir



 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,343 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales