Query insert e ciclo loop

[Enrique_Rojas]

Buonasera.

Dovrei eseguire un query di inserimento dopo aver esaminato dei records che rispondono a determinati canoni e selezionati da una precedente query select...

Se posiziono la query insert into fuori dal ciclo dei records mi registra solo il primo che incontra, se la posiziono all'interno del ciclo mi registra per un certo numero di volte sempre e solo il primo record.

Qual'è il problema?
Se è necessario posto anche il code. Grazie

[fiber81]

posta il codice.
Ma quando fai il ciclo ti sposti avanti nel recorset?

[Enrique_Rojas]

Grazie, ecco il codice: (versione con la query dentro al ciclo)

Set rs= Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM tabella1 WHERE id = "&idcd&" and campo3 IS NULL"
rs.Open strSQL, OpenStr, 3, 3 

If rs.Eof then
response.write "niente da visualizzare"

Else

Do while (Not rs.Eof)

sql = "SELECT * FROM tabella2"
Set rs1 = Con.Execute(sql)

strSQL = "SELECT * FROM tabella3 WHERE id="&idcd&"
Set rs2 = Con.Execute(strSQL)

IF rs2("campo1") < rs1("campo1") then

sql = "INSERT INTO----------------
set rs1 = Con.execute(sql) 

rs.Movenext
Loop
end if

rs.Close
Set rs = Nothing
Con.Close
Set Con = Nothing

[rossella_m]

IF rs2("campo1") < rs1("campo1") then
sql = "INSERT INTO----------------
set rs1 = Con.execute(sql)

Manca un END IF
Prova cosi

....................
.....................
.........
IF rs2("campo1") < rs1("campo1") then
  sql = "INSERT INTO----------------
  set rs1 = Con.execute(sql) 
END IF 
............
..............

Ciao
Rox

[Enrique_Rojas]

grazie, ma non cambia nulla...

[Enrique_Rojas]

modifico così, ma non va:

Set rs= Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM tabella1 WHERE id = "&idcd&" and campo3 IS NULL"
rs.Open strSQL, OpenStr, 3, 3 

If rs.Eof then
response.write "niente da visualizzare"

Else

sql = "SELECT * FROM tabella2"
Set rs1 = Con.Execute(sql)

strSQL = "SELECT * FROM tabella3 WHERE id="&idcd&"
Set rs2 = Con.Execute(strSQL)

Do while (Not rs2.Eof)


IF rs2("campo1") < rs1("campo1") then

sql = "INSERT INTO----------------
set rs1 = Con.execute(sql) 
end if

rs2.Movenext
Loop
end if

rs.Close
Set rs = Nothing
Con.Close
Set Con = Nothing

[rossella_m]

Scusa ma l'insert com'e'? Tu mandi avanti solo rs2 e non rs1. Mi posti l'insert?

[Enrique_Rojas]

SQL = "INSERT INTO tabella (data, disponibile, azione) VALUES (#"& data &"#, 'disponibile', 'visionare')"
set rs1 = Con.execute(sql)

[rossella_m]

Ma cosi facendo fai il confronto sempre con il primo campo del recordset rs1, che magari dopo che hai fatto l'insert diventa il campo dell'insert...insomma, perche non usi un recordset diverso?
Set rs= Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM tabella1 WHERE id = "&idcd&" and campo3 IS NULL"
rs.Open strSQL, OpenStr, 3, 3

If rs.Eof then
response.write "niente da visualizzare"

Else

sql = "SELECT * FROM tabella2"
Set rs1 = Con.Execute(sql)

strSQL = "SELECT * FROM tabella3 WHERE id="&idcd&"
Set rs2 = Con.Execute(strSQL)

Do while (Not rs2.Eof)


IF rs2("campo1") < rs1("campo1") then

sql = "INSERT INTO----------------
set rs_nuovo = Con.execute(sql)
end if
rs1.Movenext
rs2.Movenext
Loop
end if

rs.Close
Set rs = Nothing
Con.Close
Set Con = Nothing