Visualizzazione dei risultati da 1 a 3 su 3
  1. #1

    query con indice variabile

    Ho il seguente problema:
    in tabelle aule tblAule ho una serie di nomi di aule nel campo CodPost
    devo fare una query in 30 tabelle con struttura identica (30 aule) e vorrei automatizzare l'operazione facendo una query con il nome tabella preso nella tabella aule.
    Il codice è il seguente, ma non funziona:

    <%Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
    OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("prova.mdb")

    sql = "SELECT * FROM tblAule"
    Set RS=OBJdbConnection.Execute(sql)
    CodPost=RS("CodPost")
    %>

    <%Do while NOT RS.EOF
    i=i+1%>
    <%
    dim tabella
    tabella="tbl"& CodPost

    sql(i) = "SELECT * FROM "&tabella&" "
    Set RS(i)=OBJdbConnection.Execute(sql(i))
    %>
    <%Do while NOT RS(i).EOF
    i=i+1%>
    <%
    IDPrenot=rs(i)("IDPrenot")
    DataC=rs(i)("DataC")
    %>
    <%
    RS(i).MoveNext
    Loop
    RS(i).Close
    %>
    <%
    RS.MoveNext
    Loop
    RS.Close
    %>
    mi potete aiutare a indicizzare la query?

  2. #2
    Utente di HTML.it L'avatar di wallrider
    Registrato dal
    Apr 2003
    Messaggi
    2,755

    Re: query con indice variabile

    Originariamente inviato da Subroutine72
    ...
    ma non funziona:
    ...
    cioè?

    PS: scusa ma sono un po' limitato , potresti postare il codice usando i tag CODE?
    RIP Cicciobenzina 9/11/2010

    "Riseminaciceli, i ceci nell'orto"

  3. #3

    SCUSA

    ma non so cosa vuol dire i tag code?
    comunque in parte ho risolto il problema in questo modo:

    <%dim tabella1()%>
    <%Do while NOT RS.EOF
    i=i+1%>
    <%
    IDAula=rs("IDAula")
    Nomeaula=rs("Nomeaula")
    NPostazioni=rs("NPostazioni")
    CodPost=RS("CodPost")
    redim preserve tabella1(i)
    tabella1(i)="tbl"& CodPost
    tab=tabella1(i)
    %>
    <%sql1 = "SELECT * FROM "&tabella1(i)&" WHERE (InStr(fascia1, '"&UserID&"')<>0 AND DataC LIKE '%"&dataG&"%') OR (InStr(fascia2, '"&UserID&"')<>0 AND DataC LIKE '%"&dataG&"%') "
    Set RS1=OBJdbConnection.Execute(sql1)
    %>
    <%Do while NOT RS1.EOF
    i=i+1%>
    <%
    IDPrenot=RS1("IDPrenot")
    DataC=RS1("DataC")
    %>

    <%
    RS1.MoveNext
    Loop
    RS1.Close
    %>
    <%
    RS.MoveNext
    Loop
    RS.Close
    %>
    Dico in parte perché sono riuscita ad indicizzare la query ma non funziona qualcosa perché dovrei trovare una determinata riga del database individuata da data e UserID, ma in realtà mi da tutte le righe con USERID e non considera esclusivamente la data voluta.
    Ci deve essere un problema su AND e OR....

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.