Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it
    Registrato dal
    Jun 2004
    Messaggi
    493

    recordset da 2 tabelle con filtro particolare

    salve
    ho fatto una pagina dove faccio 2 recordset.

    la prima query mi richiama tutti i record di una tabella senza filtri particorari.

    la seconda query vorrei che mi prendesse tutti i valori della colonna offerte ma che fosse estratto con un ordine preciso.
    praticamente vorrei fare una sorta di servizio aste.

    quindi ho la tabella aste

    e un altra tabella offerte

    quando visualizzo tutte le aste vorrei che l'asta con "idasta" 1 (chiave univoca in tabella aste) mi visualizzasse il prezzo dell'offerta attuale nel campo offerta della tabella "offerte" selezionando l'id aste del primo recordset

    in sostanza ho una pagina che mi mostra le aste

    venditore - oggetto --- prezzo---- offerta attuale
    pippo ----- cane ------100-----------110
    paperino---papera-----1000 --------2000
    il valore del campo offerta attuale (110 e 2000), a differenza di venditore, oggetto e prezzo, è nella tabella OFFERTE
    e come colegamento ha lo stesso idaste del record della tabella ASTE dove sono i valori venditore, oggetto e prezzo.
    quindi il collegamento c'è ma come posso fare per prendere i dati ogni volta relativi a quel prodotto?

    questo è il codice della pagina.
    grazie mille e spero non sia troppo intrecciato!
    ciao
    codice:
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
    
    
    <%
    Dim Recordset1
    Dim Recordset1_cmd
    Dim Recordset1_numRows
    
    Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
    Recordset1_cmd.ActiveConnection = MM_aste_STRING
    Recordset1_cmd.CommandText = "SELECT * FROM aste" 
    Recordset1_cmd.Prepared = true
    
    Set Recordset1 = Recordset1_cmd.Execute
    Recordset1_numRows = 0
    %>
    <%
    Dim reupero_offerta
    recupero_offerta=recordset1("idasta")
    
    Dim Recordset2
    Dim Recordset2_cmd
    Dim Recordset2_numRows
    
    Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
    Recordset2_cmd.ActiveConnection = MM_offri_STRING
    Recordset2_cmd.CommandText = "SELECT * FROM offerte" 
    Recordset2_cmd.Prepared = true
    
    Set Recordset2 = Recordset2_cmd.Execute
    Recordset2_numRows = 0
    %>
    <%
    Dim Repeat1__numRows
    Dim Repeat1__index
    
    Repeat1__numRows = -1
    Repeat1__index = 0
    Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
    %>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <title>aste</title>
    </head>
    
    <body>
    <table width="100%" border="0" cellpadding="0">
      <tr>
        <th width="18%" scope="col">venditore</th>
        <th width="37%" scope="col"></th>
        <th width="24%" scope="col"></th>
        <th width="21%" scope="col"></th>
      </tr>
      <% 
    While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
    %>
        <tr>
          <td>">fai offerta</td>
          <td><%=(Recordset1.Fields.Item("oggetto").Value)%></td>
          <td><%=(Recordset1.Fields.Item("startprezzo").Value)%></td>
          <td><%=(Recordset2.Fields.Item("offerta").Value)%></td>
        </tr>
        <% 
      Repeat1__index=Repeat1__index+1
      Repeat1__numRows=Repeat1__numRows-1
      Recordset1.MoveNext()
    Wend
    %>
    </table>
    
    
    <% =Session("MM_Username") %></p>
    </body>
    </html>
    <%
    Recordset1.Close()
    Set Recordset1 = Nothing
    %>
    <%
    Recordset2.Close()
    Set Recordset2 = Nothing
    %>

  2. #2
    Utente di HTML.it
    Registrato dal
    Jun 2004
    Messaggi
    493
    uppino

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.