forma contratta di lettura db

[naverit]

uso questo codice x rilevare se una fattura è registrata:

strSQL2 = "SELECT * FROM entrate Where id = " & idEntrata
Set objRS2 = Server.CreateObject("ADODB.Recordset")
objRS2.Open strSQL2, objConn

if not objrs2.eof then
do while not objrs2.eof

rg = objrs2("reg")
if rg = false then
rg = "no"
else rg = "si"
end if

objrs2.movenext

loop
else

rg = "none"

end if
objrs2.close
set objrs2 = nothing




poichè nel db la fattura esaminata con idEntrata c'è sempre ed è solo e sempre una... come potrei riscrivere il tutto con una forma più contratta, senza tutte queste righe inutili...

[Roby_72]

C'è sempre che vuol dire?
Se c'è, ce n'è una sola, ma potrebbe anche non esserci proprio, o no?

Roby

[naverit]

c'è sempre ed è una sola (idEntrata è un campo contatore chiave primaria)

[Roby_72]

Se c'è sempre a cosa ti serve la query??

Roby

[naverit]

esempio:

il codice si trova nella pagina dettagli.asp e sto esaminando la fattura n° 5

a un certo punto ho la necessità di sapere se la fattura n° 5 è registrata e questo dato si trova nella tabella entrate e lo devo recuperare...


per cui devo andare un attimo in entrate e vedere se il campo sì/no che si chiama reg è spuntato...


il codice che uso funzione ma faccio una sql lunga e inutile perchè io so che nella tabella entrate esiste una sola fattura n 5!

[optime]

aggiungi 'reg' nella WHERE, no?

[naverit]

Originariamente inviato da optime
aggiungi 'reg' nella WHERE, no?

no, perchè ancora non so se è spuntata o meno...
è proprio quello che devo recuperare...

[Roby_72]

strSQL2 = "SELECT * FROM entrate Where id = " & idEntrata &" AND reg = true"
Set objRS2 = Server.CreateObject("ADODB.Recordset") 
objRS2.Open strSQL2, objConn 
if not objrs2.eof then 
spuntata = true
else
spuntata = false
end if
objrs2.Close
set objrs2 = nothing

response.write(spuntata)

Roby

[naverit]

thanks! sembra andare ok!

[optime]

strizziamola ancor di più (rimaneggio il lavoro di robbby)

strSQL2 = "SELECT * FROM entrate Where id = " & idEntrata &" AND reg = true"
Set objRS2 = objConn.Execute (strSQL2)
spuntata = not(objrs2.eof)
set objrs2 = nothing
response.write(spuntata)