Confronto tra dati tabelle e fornire risposta

[Luis33]

Ciao,
come si mettono a confronto dei valori di due tabelle diverse ma con gli stessi campi?, mi spiego meglio:

Tabella_valori_di_riferimento:
Acqua = 3
Ossigeno = 5
Azoto = 10

Tabella_dati_registrati:
Acqua = 30
Ossigeno = 50
Azoto = 100

e secondo se i valori della tabella_dati_registrati sono superiori o inferiori alla tabella_valori_di_riferimento dare o meno un responso positivo o negativo?
:master:

[optime]

2 select e un ciclo di confronto?

[Luis33]

Originariamente inviato da optime
2 select e un ciclo di confronto?

Potrebbe essere, sulle select non credo d'aver problemi ma il ciclo di confronto? :master:

[optime]

cicli il campi (da 0 a .fields.count)... oppure cfr i campi uno a uno

[Luis33]

Originariamente inviato da optime
cicli il campi (da 0 a .fields.count)... oppure cfr i campi uno a uno

Allora queste sono le que select:

Dim ConnDown
Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"loading.mdb")
Dim SQLDown, SQL, RECDown

SQLDown = "SELECT * from Tabella_valori_di_riferimento"
Set RECDown=ConnDown.Execute(SQLDown)

SQL = "SELECT * FROM Tabella_dati_registrati" 
Set RECDown=ConnDown.Execute(SQL)

e adesso per il confronto ed il recupero dei dati?

[Luis33]

Sto provando così per il confronto, ma non so se è la giusta strada:

Dim ConnDown
Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"loading.mdb")
Dim SQLDown, SQL, RECDown

SQLDown = "SELECT * from Tabella_valori_di_riferimento"
Set RECDown=ConnDown.Execute(SQLDown)

SQL = "SELECT * FROM Tabella_dati_registrati" 
Set RECDown=ConnDown.Execute(SQL)

CALL RECDown.MoveFirst 
DO WHILE NOT RECdown.EOF 

IF REC.EOF and REC.BOF THEN 

'scrivi 
response.write "OK"

ELSE 

CALL REC.MoveFirst 
DO WHILE NOT REC.EOF 

IF REC("Acqua") <> RECDown("Acqua") THEN 

'scrivi 
response.write "KO"

END IF 
CALL REC.MoveNext 
LOOP 
END IF 
CALL RECDown.MoveNext 
LOOP

[Luis33]

niente, qualuche cosa faccio stampa sempre OK...

[Luis33]

forse non mi sono ben spiegato... devo mettere a confronto le due tabelle e se solo uno dei valori registrati supera quello analago di riferimento devo dare una risposta a video... grazie...

[optime]

domanda: quanti record ricavi da ogni Tabella? immagino 1 da quella di riferimento e N da quella dei dati registrati, ma vorrei una conferma

[Luis33]

Originariamente inviato da optime
domanda: quanti record ricavi da ogni Tabella? immagino 1 da quella di riferimento e N da quella dei dati registrati, ma vorrei una conferma

Grazie, confermo:
- 1 valore di riferimento dalla tabella di riferimento;
- N valori dalla tabella dati registrati.