Visualizzazione dei risultati da 1 a 10 su 10
  1. #1
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916

    trovare ultimo campo popolato tra 10

    ciao.

    dovrei fare questa cosa:

    ho 10 campi nel db chiamari r1,r2,r3 ecc
    dove vengono inserite a mia discrezione in ordine da r1 a r10 delle date

    io dovrei mettere nella select una condizione dove l'ultimo campo popolato è quello che prendo in considerazione!

    io ho provato così ma non funzica:

    codice:
    
    Set rs5 = Server.CreateObject("ADODB.Recordset")
    rsSQL5 = "SELECT * FROM richieste_info"
    rs5.open rsSQL5, MM_store_STRING, 0,3
    if rs5("r10") = "" then
    gigi = rs5("r9")
    elseif rs5("r9") = "" then
    gigi = rs5("r8")
    elseif rs5("r8") = "" then
    gigi = rs5("r7")
    elseif rs5("r7") = "" then
    gigi = rs5("r6")
    elseif rs5("r6") = "" then
    gigi = rs5("r5")
    elseif rs5("r5") = "" then
    gigi = rs5("r4")
    elseif rs5("r4") = "" then
    gigi = rs5("r3")
    elseif rs5("r3") = "" then
    gigi = rs5("r2")
    elseif rs5("r2") = "" then
    gigi = rs5("r1")
    end if
    ma gigi risulta inesistente...
    avete dei consigli??

    grazie!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  2. #2
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    effettivamente così non ha molto senso... perche io devo avere il nome dell'ultimo campo popolato!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  3. #3
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    sarebbe + sensato così. ma gigi risulta sempre vuota!

    codice:
    Set rs5 = Server.CreateObject("ADODB.Recordset")
    rsSQL5 = "SELECT * FROM richieste_info"
    rs5.open rsSQL5, MM_store_STRING, 0,3
    
    if rs5("r10") = "" then
    gigi = "r9"
    elseif rs5("r9") = "" then
    gigi = "r8"
    elseif rs5("r8") = "" then
    gigi = "r7"
    elseif rs5("r7") = "" then
    gigi = "r6"
    elseif rs5("r6") = "" then
    gigi = "r5"
    elseif rs5("r5") = "" then
    gigi = "r4"
    elseif rs5("r4") = "" then
    gigi = "r3"
    elseif rs5("r3") = "" then
    gigi = "r2"
    elseif rs5("r2") = "" then
    gigi = "r1"
    end if
    response.Write(gigi)
    
    
    Set rs_richiami = Server.CreateObject("ADODB.Recordset")
    rsSQL = "SELECT * FROM richieste_info WHERE stop = true AND ("&gigi&" = #"&oggi&"# ) ORDER BY ID DESC"
    rs_richiami.open rsSQL, MM_store_STRING, 0,3
    e neanche così:
    codice:
    if rs5("r10") <> "" then
    gigi = "r10"
    elseif rs5("r9") <> ""  then
    gigi = "r9"
    elseif rs5("r8") <> "" then
    gigi = "r8"
    elseif rs5("r7")<> "" then
    gigi = "r7"
    elseif rs5("r6") <> "" then
    gigi = "r6"
    elseif rs5("r5") <> "" then
    gigi = "r5"
    elseif rs5("r4") <> "" then
    gigi = "r4"
    elseif rs5("r3") <> "" then
    gigi = "r3"
    elseif rs5("r2")<> "" then
    gigi = "r2"
    elseif rs5("r1")<> "" then
    gigi = "r1"
    end if
    response.Write(gigi)
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  4. #4
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    gUlP!!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  5. #5
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    nessuno??
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  6. #6
    usa la pluridecorata...
    codice:
    if Trim(rs5("r10") & "[]") <> "[]" then
       gigi = "r10"
    elseif Trim(rs5("r9") & "[]") <> "[]" then
       gigi = "r9"
    ...
    end if
    response.Write(gigi)

  7. #7
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    Originariamente inviato da optime
    usa la pluridecorata...
    codice:
    if Trim(rs5("r10") & "[]") <> "[]" then
       gigi = "r10"
    elseif Trim(rs5("r9") & "[]") <> "[]" then
       gigi = "r9"
    ...
    end if
    response.Write(gigi)
    perfetto grazie... adesso funziona.

    ma non mi fa il ciclo... ovvero:

    codice:
    '-------definizione della data---------------------
    giorno = datepart("d",now()) 
    mese = datepart("m",now()) 
    anno = datepart("yyyy",now()) 
    oggi = anno & "/" & mese & "/" & giorno
    
    Set rs_richiami = Server.CreateObject("ADODB.Recordset")
    rsSQL = "SELECT * FROM richieste_info WHERE stop = false AND r1 <> NULL ORDER BY ID DESC"
    rs_richiami.open rsSQL, MM_store_STRING, 0,3
    %>
    
    <% do While NOT rs_richiami.EOF
    
    if Trim(rs_richiami("r10") & "[]") <> "[]" then
       gigi = "r10"
    elseif Trim(rs_richiami("r9") & "[]") <> "[]" then
       gigi = "r9"
       elseif Trim(rs_richiami("r8") & "[]") <> "[]" then
       gigi = "r8"
       elseif Trim(rs_richiami("r7") & "[]") <> "[]" then
       gigi = "r7"
       elseif Trim(rs_richiami("r6") & "[]") <> "[]" then
       gigi = "r6"
       elseif Trim(rs_richiami("r5") & "[]") <> "[]" then
       gigi = "r5"
       elseif Trim(rs_richiami("r4") & "[]") <> "[]" then
       gigi = "r4"
       elseif Trim(rs_richiami("r3") & "[]") <> "[]" then
       gigi = "r3"
       elseif Trim(rs_richiami("r2") & "[]") <> "[]" then
       gigi = "r2"
       elseif Trim(rs_richiami("r1") & "[]") <> "[]" then
       gigi = "r1"
    
    
    
    end if
    response.Write(gigi)
    Set rs_date = Server.CreateObject("ADODB.Recordset")
    rsSQL_date = "SELECT * FROM richieste_info WHERE  "&gigi&" <= #"&oggi&"# "
    rs_date.open rsSQL_date, MM_store_STRING, 0,3
    
    %>
    
    qua prelevo i campi che mi servono!! 
      
      <% 
      rs_date.close()
    set rs_date = nothing
      
      rs_richiami.MoveNext()
    loop
    
    rs_richiami.close()
    set rs_richiami = nothing
    %>
    al momento ci sono 2 campi che corrispondono alla prima select... e uno che corrisponde alla seconda... ma mi cicla 2 volte sullo stesso campo... :master:
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  8. #8
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    uppounpò!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  9. #9
    no compriendo. fa' un esempio

  10. #10
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    Originariamente inviato da optime
    no compriendo. fa' un esempio
    praticamente devo fare questo:

    ho una rubrica tipo quella della caselle di posta elettronica sul mio db

    questi contatti devono essere chiamati e richiamati x 10 volte

    i miei 10 campi da r1 a r10 contengono 10 date e io devo fa apparire in una tabella le persone da richiamare quando la data corrisponde a uno dei campi r1/r10 e deve rimanere in quella tabella finche non cambio la data.


    quindi io faccio il ciclo di tutti gli id con queste clausule
    codice:
    WHERE stop = false AND r1 <> NULL
    che ho messo per allegerire il lavoro...

    poi per ogni record trovato trovo l'ultimo campo in cui ho inserito la data e se corrisponde a oggi o a un giorno passato la visualizzo nella mia tabella altrimenti niente.

    so che non è molto semplice da spiegare a parole... :master: spero tu mi abbia capito altrimenti riprovo in altri termini!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

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 © 2025 vBulletin Solutions, Inc. All rights reserved.