eppure mi sembra giusto

[victor8872]

ciao a tutti,
con questo codice sto valutando se all'interno della mia tabella in un campo di testo ce un valore pari a 4.
In effetti questo valore si trove e quindi, secondo me, dovrebbe stamparmi si...ma naturalmente non fa niente

Dim cmd As New oledbcommand(" SELECT * FROM allievi ", objconn)


Dim r As oledbdatareader
objconn.Open()
r = cmd.ExecuteReader()
Dim s As String
Do While (r.Read())
s = s & "," & r.Getstring(1).ToString()


Loop
objconn.Close()


if (s="4") then
response.Write("si")
end if

[optime]

il fatto e' che dentro "s" tu ci metti *tutto* il recordset, non un solo record! non fai prima a fare una bella SELECT...WHERE campo='4'? eviti anche dii far lavorare inutilmente il server...

[victor8872]

tu hai perfettamente ragione.
Il problema è che devo fare una serie di select diversi
A dire il vero mi sembra paradossale e assurdo quello che sto facendo

Col vecchio asp era tutto molto più semplice

In pratica non devo fare altro che acquisire dei valori da textbox e paragonarli ai dati dentro al db

Il fatto è che mi sembra assurdo dovere fare uno split con successivo ciclo for per i dati estratti
Ma se non facevo cosi mi veniva sempre letto l'ultimo valore


Attendo tue preziose considerazioni

grazie

ecco l'esempio:

Dim cmd As New oledbcommand(" SELECT * FROM allievi where numero_tessera = '"& numero_tessera_utente &"' ", objconn)


Dim r As oledbdatareader
objconn.Open()
r = cmd.ExecuteReader()

Dim s As String'numero tessera
Dim il_nome As String'nome
Dim il_cognome As String'cognome
Dim data_nascita As String'data di nascita
dim anno_associativo as string 'anno di associazione

Do While (r.Read())
s = s & "," & r.Getstring(1).ToString()
il_nome = il_nome & "," & r.Getstring(2).ToString()
il_cognome = il_cognome & "," & r.Getstring(3).ToString()
data_nascita = data_nascita & "," & r.Getstring(6).ToString()
anno_associativo = anno_associativo & "," & r.Getstring(17).ToString()

Loop
objconn.Close()


Dim la_t() as String = Split(s, ",")
Dim il_n() as string = Split(il_nome, ",")
Dim il_c() as string = Split(il_cognome, ",")
Dim la_d() as string = Split(data_nascita, ",")
Dim an() as string = Split(anno_associativo, ",")

Dim i as Integer


For i = 0 To Ubound(la_t)


if (la_t(i) <> numero_tessera_utente) then
messaggio.text="ok"
else
if (la_t(i)=numero_tessera_utente and an(i)=anno) then
messaggio.text="tesserato gia per quest anno"
else
if (la_t(i)=numero_tessera_utente and il_n(i)<>nome_utente or il_c(i)<>cognome_utente or la_d(i)<>data_di_nascita_utente ) then
messaggio.text="questo id corrisponde ad un altro utente"
else
if (la_t(i)=numero_tessera_utente and an(i)<>anno) then
messaggio.text="ok"

end if
end if
end if
end if



Next i