Accorpare due select in una!

**Marco7303** · 31-05-2004, 15:38

Salve... è possibile accorpare queste due select in una?

codice:

"SELECT DISTINCT msgPvt.usernameAutore, msgpvt.idAutore, msgpvt.idDestinatario FROM msgPvt WHERE msgPvt.idDestinatario="& Session("ID_access")&" order by msgPvt.usernameAutore"

e

codice:

"SELECT * FROM Incontri WHERE ID=" & (oRs.Fields.Item("idAutore").Value)

Grazie

**ID-entity** · 31-05-2004, 15:41

Si, con UNION.

esempio:

select * from tab1 UNION select * from tab2

**Marco7303** · 31-05-2004, 15:42

Grazie ID... ma nel mio caso compe dovrei fare?

**ID-entity** · 31-05-2004, 15:52

SELECT DISTINCT msgPvt.usernameAutore, msgpvt.idAutore, msgpvt.idDestinatario FROM msgPvt WHERE msgPvt.idDestinatario="& Session("ID_access")&" order by msgPvt.usernameAutore UNION SELECT * FROM Incontri WHERE ID=" & (oRs.Fields.Item("idAutore").Value)

**Marco7303** · 31-05-2004, 16:06

Non è andata nemmeno così!
Provo a postare tutta la pagina e a spiegare quello che non fa...

Praticamente su questa pagina vengono visualizzati gli username più altri dati di persone che si scambiano messaggi.

Il problema è che quando una persona invia un messaggio ad un'altra e quest'ultima non risponde, la pagina va in errore:

Tipo di errore:
ADODB.Field (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/Incontri/Messaggi.asp, line 99

mentre se la persona a cui ho inviato un messaggio mi risponde o mi manda anch'essa un nuovo messaggio la pagina viene visualizzata correttamente!

Questa è la pagina:

codice:

<%@ Language=VBScript %> 

<html>
<head>
<title>corrispondenza</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body leftmargin="0" marginwidth="0">



<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/dbase.mdb")

set oRs= Server.CreateObject("ADODB.Recordset")
strsql="SELECT DISTINCT msgPvt.usernameAutore, msgpvt.idAutore, msgpvt.idDestinatario FROM msgPvt WHERE msgPvt.idDestinatario="& Session("ID_access")&" order by msgPvt.usernameAutore"
oRs.Open strsql, Conn

 set mRs= Server.CreateObject("ADODB.Recordset")
 strsqlmRs="SELECT * FROM Incontri WHERE ID=" & (oRs.Fields.Item("idAutore").Value)
 mRs.Open strsqlmRs, Conn	

set mRs2= Server.CreateObject("ADODB.Recordset")
   strsqlmRs2="SELECT * FROM msgPvt WHERE msgPvt.idDestinatario="& Session("ID_access")&""
	  mRs2.Open strsqlmRs2, Conn  
%>
  

</p>
<div align="center">
     


   <%if not oRs.eof then%>
     <table width="95%" border="1" align="center" cellpadding="2" cellspacing="5" bordercolor="#FFF8E8" class="unnamed2">
     <%while not oRs.EOF%>
      <tr>
 
    <td width="15%"><div align="left"></div>
      <div align="left"><span class="Stile1">
           <% Response.Write oRs("usernameAutore") %>
        </span></div></td>
        <td width="15%"> <div align="left"></div>          <div align="center">
          <%
Response.Write (mRs.Fields.Item("DataNas").Value) & " anni" & ",  "
if mRs.Fields.Item("Stato").Value=True Then Response.Write("single") else Response.Write("non sono single!") & "
"

Response.Write "
"
%>
        </div></td>
        <td width="12%" nowrap>		  <div align="center"><span class="Stile2">
	        <% if mRs.Fields.Item("Login").Value=True Then Response.Write("Sono onLine") else Response.Write("Non sono onLine") & "
"%>
        </span></div></td>
        <td width="15%" nowrap><div align="center"><span class="Stile2">
		    <% if mRs2.Fields.Item("letto").Value=True Then Response.Write("NON ci sono nuovi messaggi") else Response.Write("Ci sono nuovi messaggi") & "
"%>
        </span></div></td>
        <td width="6%" nowrap class="Stile1"><div align="right"> </div>          
          <div align="right" class="Stile1">
            <div align="center" class="Stile5">
              <% Response.Write "<a href=/incontri/MessaggiDettaglio.asp?idAutore=" & (oRs.Fields.Item("idAutore").Value) & "&idDestinatario=" & (oRs.Fields.Item("idDestinatario").Value) & ">" & "Vedi &raquo;" & "</a>"%>        
            </div>
        </div></td>
       </tr>      
     <%
   oRs.MoveNext
   wend
   %>
  </table>
   <%else%>
      

        

     </p>
</div>
<div align="center">
   

[img]Images/MessaggiNo.gif[/img]</p>
   

Nessun messaggio!</p>
</div>
   <%end if%> 
</body>
</html>
<%
oRs.close
set oRs=Nothing
Conn.close
set Conn=Nothing
%>

Discussione: Accorpare due select in una!

Strumenti discussione

Ricerca discussione

Visualizza

Accorpare due select in una!

Permessi di invio