Designed by Maunakea !
61 en ligne
  Forum | Actu | Glossaire | Codes | Tips | Liens | Livres | Annuaire
 

 Recherche





   

SQL & ASP - faire une requête aléatoire

Comment faire une requête aléatoire





Plusieurs fois, il m'a été demandé sur des forums comment faire une requête qui retourne des enregistrements aléatoires. Dans les lignes qui suivront, nous tenterons d'y voir un peu plus clair. Après quelques recherches sur le web, j'ai pu trouver des exemples pour SQL-Server et MySQL seulement.



La façon proposée sous SQL Server est la suivante :
select * from TABLE order by newid()

La façon proposée sous MySQL est la suivante :
Select * From TABLE Order By RAND()


Mais qu'en est-il des autres SGBD ?

J'ai développé une code qui permet la pige aléatoire d'un enregistrement dans un jeu d'enregistrements (recordset).

Voici le code en question :

<%
' Définition du connection string
' le fichier "adovbs.inc" contient les constantes ADO
%>

<!-- #include file="Include/Connection.asp" -->
<!-- #include file="Include/adovbs.inc" -->
<% 

    Dim SQL, rs, MyConn
    Dim NbRecord, Pos
    
    
    
    ' Définition de la requête SQL
    SQL = "Select * From SousListe" 

    ' Instance de la connection et du recordset
    set MyConn = Server.CreateObject("adodb.connection")
    Set Rs = Server.CreateObject("Adodb.recordset")
    
    ' Ouverture de la base
    'Note : ConnectionString votre connection a votre BD
    MyConn.Open ConnectionString
    
    ' Ouverture du recordset
    Rs.Open Sql, MyConn , adOpenStatic, adLockPessimistic
    
    ' Requete vide ?
    If Not Rs.EOF Then 
        ' Se positionner au dernier record
        Rs.MoveLast 
        ' Se positionner au premier record
        Rs.MoveFirst 
        ' Saisir le nombre de record
        NbRecord = Rs.RecordCount 

        ' Initialize random-number generator. 
        Randomize
        
        ' Définir la position a atteindre
        Pos = Int((NbRecord * Rnd)) 
        ' Se positionner au record aléatoire
        Rs.Move (Pos) 
        
        ' Afficher le champ2
        Response.Write rs("Nom")
    End If 

' Fermeture du recordset
Rs.Close 

' Fermeture de la connection
MyConn.Close

' Destruction des instances
Set MyConn = Nothing
Set rs = Nothing

%>


Pour pouvoir écrire dans ce forum, identifiez-vous !

  v1.3p © ASP-PHP.net 2002  

alakazoo le 26/11/2002 (46 854 hits)
Didier Téléchargez gratuitement et légalement des logiciels Microsoft ! Si, si ;)
  • Visual Studio 2010
  • Office 2010
  • Expression Studio 3
  • SQL Server 2008
  • et d'autres...
Au fil des news  
PHP - Drupagora : 1ère edition
Utiliser Reporting Services pour des NewsLetter - SQL Server Reporting Services et les NewsLetters
Le moteur de rapport inclus dans Microsoft SQL Server permet de créer de nombreux rapports ...
Changer la page d'erreur 401 SharePoint - La page d'erreur d'authentification SharePoint
Avec l'authentification classique des sites SharePoint, l'erreur d'authentification est gérée par ...
PHP - Graphique de l'angle du soleil en fonction du lieu
PHP5 - Graphique de l'angle du soleil en fonction du lieu
Adobe - Disponibilité d'Adobe Creative Suite 5.5
Les Thèmes dans SharePoint 2010 - Gérer les thèmes dans SharePoint 2010
SharePoint 2010 apporte de nombreuses modifications dont certaines dans le principe des thèmes.
JavaScript - fonction qui affiche l'heure à travers javascript
Installer SharePoint Foundation 2010 sur Windows 7 - Installer SP Foundation 2010 sur Windows Seven
Lorsque l'on souhaite développer dans le monde SharePoint, il existe plusieurs solutions. La ...
SharePoint et SQL Server 2008 R2 Report Server - Comment accéder à SharePoint depuis SSRS 2008 R2
Depuis la première version, la solution de rapport proposée par Microsoft "SQL Server Reporting ...
JS - Envoi d'un formulaire après chargement d'une image
Divers - Bannir une ip dans le global asax
Dreamweaver CS5 - Nouvelle version Dreamweaver CS5
Déjà plus de 6 mois que le produit est sorti, il fallait bien que je vous en parle un peu. Je vous ...
SharePoint Output Caching dans un site Intranet - Comment utiliser le cache dans un site Publishing
Afin de permettre l'amélioration des performances de sa ferme MOSS utilisée pour le site portail ...
Adobe - Adobe lance le Musée Adobe des Médias Numériques
Adobe - Adobe lance HTML5 Pack pour Illustrator CS5
PHP - Forum PHP 2010 : Le programme
Magazines - Le numéro 133 de programmez est disponible
Adobe - Adobe lance des applications Photoshop Express....
PHP - Détermination de l'intersection entre 2 segments
Magazines - Le N°132 de Programmez est disponible
Les alertes dans SharePoint 2007 - Comment SharePoint 2007 gère les User Alerts
Une des fonctionnalités de base de SharePoint, aussi bien dans Windows SharePoint Services (WSS) ...
Adobe - Photoshop.com Mobile pour Android 1.2
Adobe - Adobe dévoile une technologie de lecture.......
PHP - Experts PHP : participez au Forum PHP 2010 !
PHP - Fobec.com - Code source PHP & javascript
Foliotage alphabétique - Lister sur la première lettre d'un champ
Pour faire suite à l'article de JPierre sur la pagination alphabétique, voici, en ASP et en PHP, ...
Dreamweaver CS4 + Php + Mysql - Pagination alphabétique
Je vous propose la création d'une barre de navigation ou pagination alphabétique pour filtrer les ...
Adobe - HTML5 dans Dreamweaver CS5
VBScript - Déterminer si un chemin est absolu ou relatif
VBScript - Lire/écrire un fichier texte
Magazines - Le N°130 de Programmez est disponible
Hebergement - Hébergement à prix libre
Adobe - Adobe Creative Suite 5
PHP - Calcul de la date de Pâques
Magazines - Le N°128 de Programmez est disponible
Magazines - Le N°127 de Programmez est disponible
Dreamweaver CS4 + Php + Mysql - Trucs et Astuces - Part 6
Pour continuer dans le même style, je vous propose une suite au précédent article. Rechercher tous ...
Adobe - Adobe Photoshop.com Mobile pour iPhone 1.1
JavaScript - Ajouter une page dans vos favorites
Tutorial : HTML | Scripting | ASP-PHP | ASP.net | SQL Server | XML
Sharepoint | XAML | Pocket | Dreamweaver | VML | Divers
  Scripts : Scripting | ASP-PHP | ASP.net | Divers
  Boutique | Annuaire | Bannières | Météo | Tribune | Partenariats
v3b © Didier 2003   
 

Corpo Sciences de Reims Partitions gratuites Carte, météo, annonces
 TechNet DotNet Project ASP-magazine MVP Groupes Utilisateurs Microsoft