Ho scritto una semplice procedura,
l'utente inserisce in un form user e password, onClick viene lanciata la procedura che riporto di seguito, che funziona correttamente.
Volevo sapere come potrebbe essere migliorato il codice, se dimentico qualcosa, o se magari esiste un modo ancora più semplice per fare la stessa cosa.
sub submit (obj as object, e as eventargs)
dim errore as integer
'preparo la connessione ed eseguo la query
Dim objConn As New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\clienti\saporiti\gestione.mdb")
dim objcmd as new oledbdataadapter ("select * from uspass where usname= '" & tbusername.text & "'", objconn)
'creo e riempo il dataset
dim ds as dataset = new dataset()
objcmd.fill(ds, "tbluspass")
'creo un array e ci metto il risultato della query, la user è chiave primaria, quindi sono sicuro che il dataset sia composto da una sola riga
dim myrow() as datarow = ds.tables("tbluspass").select(nothing, nothing, dataviewrowstate.currentrows)
'verifico che l'array non sia vuoto
if (myrow.length > 0) then
'verifico che la password corrisponda alla username
if (myrow(0)(0)=tbusername.text) and (myrow(0)(1)=tbpassword.text) then
response.write("login effettuato")
else
errore = 1
end if
else
errore = 1
end if
'se una delle condizioni non è verificata...
if errore=1 then
response.write("us o pwd errati")
end if
end sub
mi scuso per la lunghezza del post e ringrazio chiunque voglia darmi qualche consiglio.