Pagina 2 di 3 primaprima 1 2 3 ultimoultimo
Visualizzazione dei risultati da 11 a 20 su 27

Discussione: ordinamento da select

  1. #11
    Utente di HTML.it L'avatar di longline
    Registrato dal
    Sep 2001
    Messaggi
    5,363
    Attenzione che non è detto che TOP 10 restituisca sempre 10 record...

  2. #12
    Utente bannato
    Registrato dal
    Jan 2003
    Messaggi
    2,407
    Originariamente inviato da longline
    Attenzione che non è detto che TOP 10 restituisca sempre 10 record...
    era per questo che avevo pensato ad una variabiel che mi conteggiasse i record... e che facesse come un condown..

  3. #13
    Originariamente inviato da Certe Notti
    era per questo che avevo pensato ad una variabiel che mi conteggiasse i record... e che facesse come un condown..
    Ma hai letto quello che ti ho scritto sopra?

  4. #14
    Utente di HTML.it L'avatar di longline
    Registrato dal
    Sep 2001
    Messaggi
    5,363
    Codice per la prima pagina (visualizza solo i primi 10 record)
    codice:
    Contarecord=0
    
    'apro la connessione con il db
    set myConn = server.CreateObject("ADODB.Connection")
    
    dim strConnDb
    strConnDb = ""
    strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/news.mdb")
    myConn.Open(strConnDb)
    mySqlSelect = "select * from notizie order by Data desc"
    set myRSComS = server.CreateObject("ADODB.Recordset")
    myRSComS.Open mySqlSelect, myConn
    do while not(myRSComS.EOF) Or Contarecord = 10
      Contarecord = Contarecord + 1
    
      ' visualizza il record
      
      myRSComS.MoveNext
    loop
    Codice per la seconda pagina (visualizza i record che seguono i primi 10)
    codice:
    Contarecord=0
    
    'apro la connessione con il db
    set myConn = server.CreateObject("ADODB.Connection")
    
    dim strConnDb
    strConnDb = ""
    strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/news.mdb")
    myConn.Open(strConnDb)
    mySqlSelect = "select * from notizie order by Data desc"
    set myRSComS = server.CreateObject("ADODB.Recordset")
    myRSComS.Open mySqlSelect, myConn
    do while not(myRSComS.EOF) Or Contarecord = 10
      Contarecord = Contarecord + 1
    
      ' non fare nulla prima di avere raggiunto il 10mo record
      
      myRSComS.MoveNext
    loop
    
    ' ora facciamo su serio ;)
    do while not(myRSComS.EOF)
    
      ' visualizza il record
      
      myRSComS.MoveNext
    loop

  5. #15
    Utente bannato
    Registrato dal
    Jan 2003
    Messaggi
    2,407
    Originariamente inviato da weppos
    Ma hai letto quello che ti ho scritto sopra?
    si ma non capisco come faccio a fare 10 move.next e che faccio glieli faccio contare??

    :master:

  6. #16
    Utente di HTML.it L'avatar di longline
    Registrato dal
    Sep 2001
    Messaggi
    5,363
    Originariamente inviato da Certe Notti
    si ma non capisco come faccio a fare 10 move.next e che faccio glieli faccio contare??

    :master:
    Certamente. È esattamente quello che ho fatto io modificando il tuo codice...

  7. #17
    Utente bannato
    Registrato dal
    Jan 2003
    Messaggi
    2,407
    Originariamente inviato da longline
    Codice per la prima pagina (visualizza solo i primi 10 record)
    codice:
    Contarecord=0
    
    'apro la connessione con il db
    set myConn = server.CreateObject("ADODB.Connection")
    
    dim strConnDb
    strConnDb = ""
    strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/news.mdb")
    myConn.Open(strConnDb)
    mySqlSelect = "select * from notizie order by Data desc"
    set myRSComS = server.CreateObject("ADODB.Recordset")
    myRSComS.Open mySqlSelect, myConn
    do while not(myRSComS.EOF) Or Contarecord = 10
      Contarecord = Contarecord + 1
    
      ' visualizza il record
      
      myRSComS.MoveNext
    loop
    Codice per la seconda pagina (visualizza i record che seguono i primi 10)
    codice:
    Contarecord=0
    
    'apro la connessione con il db
    set myConn = server.CreateObject("ADODB.Connection")
    
    dim strConnDb
    strConnDb = ""
    strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/news.mdb")
    myConn.Open(strConnDb)
    mySqlSelect = "select * from notizie order by Data desc"
    set myRSComS = server.CreateObject("ADODB.Recordset")
    myRSComS.Open mySqlSelect, myConn
    do while not(myRSComS.EOF) Or Contarecord = 10
      Contarecord = Contarecord + 1
    
      ' non fare nulla prima di avere raggiunto il 10mo record
      
      myRSComS.MoveNext
    loop
    
    ' ora facciamo su serio ;)
    do while not(myRSComS.EOF)
    
      ' visualizza il record
      
      myRSComS.MoveNext
    loop
    bellissimo

    peccato che nella prima pagina io deva visualizzare gli ultimi 10 inseriti e non i primi 10 come nella seconda tutti quelli che restano diversamente da quelli della prima...

  8. #18
    Utente di HTML.it L'avatar di longline
    Registrato dal
    Sep 2001
    Messaggi
    5,363
    Penso che ora tu abbia abbastanza elementi per fare tutto ciò che vuoi...

  9. #19
    Originariamente inviato da Certe Notti
    si ma non capisco come faccio a fare 10 move.next e che faccio glieli faccio contare??

    :master:
    Ciclo for per indice da 1 a 10.

  10. #20
    Utente bannato
    Registrato dal
    Jan 2003
    Messaggi
    2,407
    Originariamente inviato da Certe Notti
    si ma non capisco come faccio a fare 10 move.next e che faccio glieli faccio contare??

    :master:

    grazie

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.