Condizioni e loro impostazioni

[Luis33]

Grazie Teo... ma come scrivo questa condizione secondo lo script che mi suggerisci?:

IF rec("CO_PPM") < recdown("CO_PPM") or rec("CO2_PPM") < RECDown("CO2_PPM") or rec("H2_PPM") < RECDown("H2_PPM") or rec("CH4_PPM") < RECDown("CH4_PPM") or rec("C2H6_PPM") < RECDown("C2H6_PPM") or rec("C2H4_PPM") < RECDown("C2H4_PPM") or rec("C2H2_PPM") < RECDown("C2H2_PPM") then

[teorema55]

:maLOL:


Se non ci sono errori, E' GIA' SCRITTA NEL MIO SCRIPT: provalo!

[Luis33]

Originariamente inviato da teorema55
:maLOL:


Se non ci sono errori, E' GIA' SCRITTA NEL MIO SCRIPT: provalo!

Microsoft VBScript compilation error '800a0410'

Invalid 'for' loop control variable

/indexteo.asp, line 92

for each campo1 in rs1.fields

[teorema55]

Con la sintassi

if campo2.name = campo1.name
......
if campo2.value < campo1.value

lo script confronta ogni campo con il suo omonimo, e controlla che il suo valore sia inferiore a quello!

[teorema55]

Lasciami fare un test, 5 minuti.

[Luis33]

Originariamente inviato da teorema55
Lasciami fare un test, 5 minuti.

Tutto il tempo che vuoi... se può aiutarti così com'è il code inserisci solo un record nella tabella B e lo etichetta ed aggiorna per tutti i records della tabella A il campo "stato"...

[Luis33]

VVoVe: Ci siamo quasi Teo... il problema è che tutti i records scritti nella tabella B vengono etichettati come SANA; invece dovrebbero essere etichettati secondo l'esito del confronto tra i valori di tabella A e tabella di riferimento....

 inserito = "NO"
   for each campo2 in rec.fields

    if inserito = "NO" then
    for each campo1 in recdown.fields

      if campo2.name = campo1.name then

        if campo2.value < campo1.value then

SQL = "INSERT INTO tabella__B (ID_B, ID_CAT, CAT, CONDIZIONE, STATO) VALUES ("& REC("ID") &", "& REC("ID_CAT") &", '"& REC("CAT") &"', 'Disponibile', 'Sana')"
Conn.execute(SQL)

sSQL = "UPDATE tabella_A set Stato = 'Analizzato' WHERE ID = "& REC("ID")
Conn.execute(sSQL)
            
            inserito = "SI"
            exit for

          end if

        end if

       next
       end if

      next

rec.Movenext
Loop
end if

rsCommon.Close
Set rsCommon = Nothing

rec.close
set rec = nothing

recdown.close
set recdown = nothing

adoCon.Close
Set adoCon = Nothing  
%>

[teorema55]

'azz, Luis, mi hai fatto sudare sette camicie, ma credo proprio di avere risolto!



In effetti nel primo script c'era qualche errorino (anzi qualche strafalcione!), ma guarda un po' qui:

Qui vedi lo script in azione.

Prima di provarlo, però, per annullare le modifiche e riportare le tabelle allo stato iniziale, usa questo link

Lo script è questo:

<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/HRcafe.mdb") 
Set objConn=Server.CreateObject("ADODB.Connection")

objConn.Open cstring

SQL1 = "SELECT * FROM riferimento"
Set rs1 = objConn.Execute(SQL1)

 SQL2 = "SELECT * FROM tabella_A WHERE id_cat='prova' AND stato <> 'ETICHETTATO'" 
 Set rs2 = objConn.Execute(SQL2)

  	do while not rs2.eof
   
   	   inserito = "NO"		
		
   	     for each campo in rs2.fields
    				
		for each riferimento in rs1.fields
			
		   if inserito = "NO" then
	
	   	      if campo.name = riferimento.name then

        		  if campo.value > riferimento.value then
						
            		     inserito ="SI"
					  			
			    end if			
       			
	    		end if 
				
		     end if   
	  
	  	   next			
			
		next
		
	  if inserito = "SI" then
	  
	 	SQL3 = "INSERT INTO tabella_B (id_cat, codice, acidi, acqua, azoto, idrossidi, maccheroni, ossidi, ossigeno, stato, condizione) VALUES('"&rs2("id_cat")&"', '"&rs2("codice")&"', '"&rs2("acidi")&"', '"&rs2("acqua")&"', '"&rs2("azoto")&"', '"&rs2("idrossidi")&"', '"&rs2("maccheroni")&"', '"&rs2("ossidi")&"', '"&rs2("ossigeno")&"','ETICHETTATO', 'QUELCHEVUOI')"
        objConn.execute(SQL3)

         SQL4 = "UPDATE tabella_A SET stato = 'ETICHETTATO' WHERE codice ='"&rs2("codice")&"'"
         objConn.execute(SQL4)
        
		end if
	 
	 rs2.movenext     
	 loop
	 
	

   rs2.close
   set rs2 = nothing

rs1.close
set rs1 = nothing

'chiudo tutto
objConn.close
set objconn=nothing
%>

Okkio: ogni volta che esegui la demo devi prima eseguire l'altro scriptino linkato che riporta le tabelle allo stato iniziale.

Fammi sapere.

[teorema55]

Aggiornamento (siamo già alla versione 1.0.1)



Dopo la riga

inserito = "SI"

conviene aggiungere

exit for

In questo modo evita l'elaborazione (inutile) del resto del record se ha già trovato un campo in cui il valore supera il riferimento.

[Luis33]

Grazie Teo e scusa per la sudata... ho provato il tuo code e funziona... Però ho sempre il problema che la condizione è diversa per ogni situazione...