Avendo due tabelle in access correlate tra di loro:

ARTICOLI: codice, nome
PREZZI: codicearticolo, prezzo1, prezzo2, prezzo3

è possibile creare un ciclo che mi visualizzi per ogni articolo i suoi prezzi ovvero come faccio a far visualizzare i prezzi restando nel ciclo For i=1 to Records ?:

SQL = "SELECT * FROM articoli "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 1, 3
For i=1 to Records
Response.write rs("codice")
Response.write rs("nome")
Response.write rs("prezzo1") 'evidente! non funziona
rs.movenext
loop



@ndrew

Scusa ma avendo questa struttura
ARTICOLI: codice, nome
PREZZI: codicearticolo, prezzo1, prezzo2, prezzo3
non ti conviene qualcosa del genere

SELECT * FROM articoli
INNER JOIN prezzi
ON articoli.codice=prezzi.codice

A quel punto hai tutti i campi che ti servono:
codice, nome, prezzo1, prezzo2, prezzo3
e non devi effettuare due query annidate !

SQL = "SELECT * FROM articoli " & _
"INNER JOIN prezzi " & _
"ON (articoli.codice=prezzi.codicearticolo)"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 1, 3
if Not (rs.EOF and rs.BOF) then
rs.MoveFirst
while Not rs.EOF
Response.write rs("codice")
Response.write rs("nome")
Response.write rs("prezzo1")
Response.write rs("prezzo2")
Response.write rs("prezzo3")
rs.movenext
wend
End If

ebbene si caro mio, sono di nuovo io!
il tormento del forum...

questa domanda l'ho fatta giorni fa.....

però ci sto lavorando sopra adesso..

ti ringrazio per la risposta che ancora una volta mi sta chiarendo molte cose..... ora vedo se funziona (non ho dubbi.....)

PS. Forse sarebbe meglio se io venissi da te per qualche lezione privata di ASP... eviterei di fare brutte figure con domande magari banali!!!

@ndrew

mi succede una cosa strana:

in linea di massima va bene infatti ho scritto così come hai detto tu:

dim Conn, strConn
strConn= "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&_
Server.MapPath("data/zermat.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
SQL = "SELECT * FROM articoli " & _
"INNER JOIN prezzi " & _
"ON (articoli.codice=prezzi.codice)"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 1, 3
if Not (rs.EOF and rs.BOF) then
rs.MoveFirst
while Not rs.EOF
Response.write rs("codice")
Response.write rs("nome")
Response.write rs("prezzo1")
rs.movenext
wend
End If

però mi da errore sul Response.write rs("codice").
Se io elimino quella riga, funziona correttamente e mi fa vedere il nome e il prezzo1 2 ecc.

secondo te perchè non mi visualizza il codice?


@ndrew