+ Rispondi alla Discussione
Risultati da 1 a 9 di 9

[ASP] Strana questione con Absolutepage

Ultimo Messaggio di scura il:
  1. #1
    User L'avatar di scura
    Data Registrazione
    Jan 2005
    Messaggi
    303

    [ASP] Strana questione con Absolutepage

    Salve a tutti

    una questione strana, come al solito

    Mi trovo per la prima volta a sviluppare un sito su un nuovo server che non conosco

    ho notato andando a fare una semplice paginazione che dopo avere aperto il recordset stando ancora nella prima pagina response.write rs.AbsolutePage mi stampa -1...


    scrivo un p di codice per capirsi:

    Sub Ricerca
    cn.open
    set rs = Server.CreateObject("ADODB.Recordset")
    sSql = "Select * from Tbl"
    rs.Open sSql, cn, 3, 3


    if not rs.eof then
    response.write rs.AbsolutePage

    rs.close
    set rs = nothing
    cn.close

    exit sub

    ecc...............

    Come dicevo stampa -1...

    com' possibile ? Da cosa pu dipendere secondo voi?

  2. #2
    Esperto L'avatar di madai
    Data Registrazione
    Jun 2006
    Messaggi
    640
    Ciao scura,


    prova a cambiare cursore:

    Codice:
    rs.Open sSql, cn, 1, 3
    Cerchi un hotel a Ischia? Pronto Ischia.

  3. #3
    User L'avatar di scura
    Data Registrazione
    Jan 2005
    Messaggi
    303
    Gu fatto ho provato anche questa, nada...pu dipendere dal Server ?

  4. #4
    Moderatore L'avatar di paocavo
    Data Registrazione
    Mar 2006
    Localit
    Lecce, Italy
    Messaggi
    1,016
    Aggiungi paocavo su Facebook Aggiungi paocavo su Linkedin
    Non vorrei sbagliare ma la propriet AbsolutePage dell'oggetto ADODB.Recordset va necessariamente ed esplicitamente inizializzata ad 1 poi la puoi aggiornare (tramite QueryString, Variabili di Sessione, ecc...), ad esempio:

    Codice:
     If Request.QueryString("page") = "" Then
        ' Prima Pagine
        iPageCurrent = 1
     Else
        ' Pagine successive da Querystring
      iPageCurrent = CInt(Request.QueryString("page"))
     End If
    [...]
      ' Costruisco la query...
    [...]
    ' Apro il Recordset
     RS.Open strSQL, Conn, 3, 3 
     ' Vado alla pagina Num.  iPageCurrent:
    
     RS.AbsolutePage = iPageCurrent 
     iRecordCount = RS.RecordCount
    [...]

  5. #5
    User L'avatar di scura
    Data Registrazione
    Jan 2005
    Messaggi
    303
    In effetti ho riportato solo una parte per farmi capire, ma ho provato anche cos:


    Sub nomeSub

    cn.open
    set rs = Server.CreateObject("ADODB.Recordset")
    sSql = "Select * from Tbl"
    rs.Open sSql, cn, 1, 3


    if not rs.eof then


    'imposto numero rec per pagina
    rs.PageSize = 2

    if request.Querystring("page")<>"" then
    rs.AbsolutePage = Cint(request.Querystring("page"))
    else
    rs.AbsolutePage = 1
    end if

    response.write rs.AbsolutePage
    exit sub
    ecc...


    ... ancora non ho passato nulla per query , sono nella pagina 1 ...ma stampa sempre -1

  6. #6
    User L'avatar di scura
    Data Registrazione
    Jan 2005
    Messaggi
    303
    Help! non sono ancora riuscita a risolvere

    una cosa cos davvero non mi era ancora capitata: posto tutta la mia sub...ma l'errore non sembra essere nel codice, ho spostato il tutto su un altro server e comunque l'errore resta... a sto punto pu dipendere dal DB Access ????


    Sub Ricerca


    cn.open
    set rs = Server.CreateObject("ADODB.Recordset")
    sSql = "Select * from Tbl_Immobili"
    rs.Open sSql, cn, 3, 3


    if rs.eof then
    response.write "Nessun Record"
    cn.close
    exit sub
    end if



    'imposto numero rec per pagina
    rs.PageSize = 2

    if request.Querystring("page")<>"" then
    rs.AbsolutePage = Cint(request.Querystring("page"))
    else
    rs.AbsolutePage = 1
    end if

    response.write rs.AbsolutePage
    'exit sub

    'recupero il numero di pagine
    numpag = rs.PageCount

    paginazione = navigatore(rs)


    For j=1 to rs.PageSize

    'if ((j mod 2) = 0) then
    'bg_color = "bgcolor=""#eeeeee"" "
    'else
    'bg_color = "bgcolor=""#F1FAFF"" "
    'end if

    str = str&"<tr "&bg_color&"><td>"&rs("dataInserimento")&"</td><td><a href=""immobili.asp?act=schedaImmobile&idI="&rs("i d")&""">scheda</a></td><td><a href=""immobili.asp?act=eliminaImmobile&idI="&rs(" id")&""">elimina</a></td></tr>"

    rs.movenext
    if rs.EOF then exit for
    next

    response.write "<table>"&str&"</table>"&paginazione



    cn.close
    end sub

  7. #7
    User L'avatar di scura
    Data Registrazione
    Jan 2005
    Messaggi
    303
    risolto cambiando la stringa di connessione al db:

    DA:
    cnStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath(""&percorso&"")&"/DB/data.mdb"

    A:
    cnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(""&percorso&"")&"/DB/data.mdb"& ";Persist Security Info = False"

  8. #8
    Esperto L'avatar di madai
    Data Registrazione
    Jun 2006
    Messaggi
    640
    Citazione Originariamente Scritto da scura Visualizza Messaggio
    risolto cambiando la stringa di connessione al db:

    DA:
    cnStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath(""&percorso&"")&"/DB/data.mdb"

    A:
    cnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(""&percorso&"")&"/DB/data.mdb"& ";Persist Security Info = False"
    Ciao scura,

    non mi ero mai trovato davanti a quell'errore, grazie per il feedback

    A presto
    Cerchi un hotel a Ischia? Pronto Ischia.

  9. #9
    User L'avatar di scura
    Data Registrazione
    Jan 2005
    Messaggi
    303
    Neanche a me era mai successa una cosa del genere, ma penso ci debba essere una spiegazione a tutto... almeno per queste cose, altrimenti non chiaro

    qualcuno sa ipotizzare almeno qualcosa ?

+ Rispondi alla Discussione

Tag per Questa Discussione

^ Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •  
  • Il codice BB Attivato
  • Le faccine sono Attivato
  • Il codice [IMG] Attivato
  • Il codice [VIDEO] Attivato
  • Il codice HTML Disattivato
  • Trackbacks Attivato
  • Pingback Attivato
  • Refback Attivato

SEO by vBSEO 3.6.0 PL2 ©2011, Crawlability, Inc.