Hola:
Estoy haciendo la validación de un usuario para la seguridad de un sistema.
Este es el procedimiento que estoy haciendo:
Código PHP:
Protected Sub validar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim rsLectura As System.Data.Odbc.OdbcDataReader
Dim lsLRsql As String = "select usuario from tsm_usuario where usuario='" +
txt_usuario.Text.Trim + "' and clave='" + txt_passwd.Text.Trim + "' and activo=1"
Response.Write("<font color=orange size=4>Query " + lsLRsql + "</font><br>")
Try
ocdJL_Command.Dispose()
ocdJL_Command = cn.putComand(lsLRsql, cLRcon)
Response.Write("<font color=gray size=4>AQUI-<br>")
rsLectura = ocdJL_Command.ExecuteReader()
Try
rsLectura = ocdJL_Command.ExecuteReader()
Catch ex As Exception
[B]rsLectura.Close() [/B]
Response.Write("<font color=purple size=4>VEAMOS-" + ex.Message + "<br>")
rsLectura = ocdJL_Command.ExecuteReader()
End Try
If rsLectura.Read Then
Session("vusuario") = rsLectura.Item("usuario")
Session.Timeout = 30
Response.Write("<font color=red size=4>SESSION<br>")
End If
Catch ex As Exception
Session("vusuario") = False
Response.Write("<font color=purple size=4>NO * SESSION-" + ex.Message + "<br>")
End Try
If Session("vusuario") = True Then
Response.Write("<font color=darkblue size=4>Existe la sesión del
usuario</font>")
Else
Response.Write("<font color=green size=4>NO Existe la sesión del
usuario</font>")
End If
End Sub
En el momento en que cierro la conexion en el catch; obtengo:
Y lo que me manda en pantalla es esto:
La verdad, soy nueva en este tipo de programación, pero si alguien me puede decir que tipo de declaración o cómo debe ser hecha para rs Lectura, se los agradecería mucho.
Tengo definidas las variables que estoy ocupando en un archivo, declaradas asi:
Public cLRcon As New OdbcConnection
Gracias
