lo que puedes hacer es crear una base de datos en Acces que tenga una tabla que se llame Usuarios; en ella deberas tener tres campos, Nombre (text), Contraseña(text), contador(numeric)
Luego, en el webfom donde tenes los clasicos textbox para hacer el ingreso de usuarios y un boton, vamos a codificar el boton ese.
Yo te lo hago en Vis Basic.
1)
Tenes que hacer una conexion oledb a tu base de datos acces y la consulta SQL seria: Select * From Usuarios where nombre = ' nombre ' AND Contraseña = ' contraseña'
y con eso haces un data read, y preguntas si encontro algo, si si , devuelve true, sino devuelve False
Ademas si leyo,almacenas en una variable el campo " Contador"
ahi preguntas si mivariablecont es menor que numero de conecciones permitidas, y si si, entonces pasas a una segunda funcion tambien oledb a tu bd acces que tendra esta SQL
"UPDATE Usuarios SET Usuarios.Contador = mivariable + 1 where nombre = ' nombre ' AND Contraseña = ' contraseña'
y si era no
lo mandas a un htm que diga mas o menos asi..." gil tu acceso se vencio je je "
entendes????
tu codigo pal boton te quedaria mas o menos asi: ( VBASIC.Net)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nombre As String = Me.TextBox1.Text.Trim
Dim contraseña As String = Me.TextBox2.Text.Trim
Dim bdato As String = Server.MapPath("usuario.mdb")
dim returnn as string
Dim mivariable as Integer
Try
Dim con As OleDbConnection
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & bdato & "")
Dim sql As String = "SELECT * FROM (Usuarios) WHERE (((Usuarios.Contraseña)='" & contraseña.ToString & "') AND ((Usuarios.Usuario)='" & nombre & "'));"
Dim dralu As OleDbDataReader
Dim cmd As OleDbCommand
cmd = New OleDbCommand(sql, con)
con.Open()
dralu = cmd.ExecuteReader
If dralu.Read Then
mivariable= .item("Contador")
returnn = "true"
Return True
Else
returnn = "false"
End If
con.Close()
cmd.Dispose()
con.Dispose()
Catch err As OleDbException
Throw err
Catch err As Exception
Throw err
End Try
if reutrnn = "true" then
if mivariable <=
minumero Then
mivariable = mivariable+1
actualiza(bdato,nombre,contraseña,mivariable)
else
response.redirect("TUusuariosevencio.htm")
end if
else
response.redirect("noencontrotuusuario.htm")
end if
end sub
sub actualiza(bdato,nombre,contraseña,mivariable)
Try
Dim con As OleDbConnection
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & database & "")
Dim sql As String = "UPDATE Usuarios SET Usuarios.contador = " & mivariable & " WHERE (((Usuarios.Contraseña)='" & contraseña.ToString & "') AND ((Usuarios.Usuario)='" & nombre & "'));"
Dim cmd As New OleDbCommand(sql, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
cmd.Dispose()
con.Dispose()
Catch err As OleDbException
Throw err
Catch err As Exception
Throw err
End Try
End SUB
Creo que eso seria todo...
saludos y suerte
