hola que tal haber si me pueden ayudar, el sistema que tengo esta ya terminado y se enlaza a una base de dtos en acces
mi autentificacion esta correcta y sin mas problema , solo que no se como hacerle para que uno o mas usuarios ingresen al mismo tiempo y ala vez llenen el registro sin afectar alos demas osea que la secion de cada uno permanesca hasta que se salga.
este es mi codigo
Imports System.Data.SqlClient
Imports System.Data
Partial Class autenticacion_autenticacion
Inherits System.Web.UI.Page
Private SQLServer_Connection As String
Function UserAuthentication(ByVal strUser As String, ByVal strPasswd As String) As Integer
Dim con As New SqlConnection
con.ConnectionString = "Data Source=PROVIH;Initial Catalog=db_conseguimiento;User ID=sa"
con.Open()
Dim Da As New SqlDataAdapter("SELECT * FROM userid WHERE login = '" & txt_usuario.Text & "' and pass = '" & txt_contrasena.Text & "'", con)
Dim usuario As New DataSet
Dim IdUSer As New DataSet
Dim x As String = System.Web.Configuration.WebConfigurationManager.A ppSettings("User ID").ToString
Me.txt_usuario.Text = x
Da.Fill(IdUSer, "Clave")
Da.Fill(usuario, "User")
If usuario.Tables("User").Rows.Count > 0 Then
Response.Redirect("~/reporte_eval_inv/reporte_eval_inv.aspx")
'lbl_error_3.Text = "Entra"
Else
lbl_error_3.Text = "El usuario o la contraseña no son correctos"
End If
End Function
Protected Sub btn_entrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_entrar.Click
Dim usuario As String
Dim contrasena As String
Session("User") = txt_usuario.Text
Session.Timeout = 15
usuario = txt_usuario.Text
contrasena = txt_contrasena.Text
UserAuthentication(usuario, contrasena)
If txt_usuario.Text = "" Then
lbl_error_3.Visible = False
lbl_error.Visible = True
Else
lbl_error.Visible = False
End If
If txt_contrasena.Text = "" Then
lbl_error_3.Visible = False
lbl_error_2.Visible = True
Else
lbl_error_2.Visible = False
End If
End Sub
End Class
