Ciao Raga, ho bisogno di un aiutino, come faccio a leggere un
capo specifico chiamato "Cognome" da una tabella di Access?
con il comando intId = objReader.GetInt32(0).ToString leggo il
contatore, ma per leggere gli altri campi come faccio?
Graize
Sandro
'--------------------------------------------------------
<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
'********************************************************
'
' Login.aspx: Pagina di Login
'
'********************************************************
'********************************************************
' Quando un utente clicca su 'submit', verifico che esso
' sia un utenza valida. Se lo è, esegue il login, e setto
' i cookie con il suo nome, e lo ridireziono alla pagina
' index.aspx.Altrimenti visualizzo un messaggio di errore
'********************************************************
sub Login(obj as object, e as eventargs)
dim intId as integer = 0
dim Conn as new OleDbConnection("Provider=" & _
"Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Siti Web\NET\_private\check_vim.mdb")
dim objCmd as OleDbCommand = new OleDbCommand _
("SELECT * FROM accesso WHERE " & _
"Utente = '" & tbUserName.Text & "' AND " & _
"Password = '" & tbPassword.Text & "'", Conn)
dim objReader as OleDbDataReader
try
objCmd.Connection.Open()
objReader = objCmd.ExecuteReader
do while objReader.Read
intId = objReader.GetInt32(0).ToString
loop
catch ex as OleDbException
throw ex
end try
if intID <> 0 then
Session("Nome_utente")=
Session("codice_utente")=tbUserName.Text
lblMessage.Text = intId1 & tbUserName.Text
'Response.redirect("logout.aspx")
else
lblMessage.Text = "<font color=red>Utenza o Password Errate!</font><p>"
end if
end sub
</script>
Grazie Mille
Ciao Sandro