Visual Basic.NET - control de ingreso

   
Vista:

control de ingreso

Publicado por djnilo nicasma@hotmail.com (21 intervenciones) el 01/09/2015 17:48:09
buenas tardes
amigos foreros tengo consulta estoy haciendo una aplicación de ingreso de usuarios
tengo la tabla imagenes con los siguientes campos

idimagen , tarjeta , FechaEntrada, usuario,

1 123 2015-08-26 16:50:25 pablo


el mismo usuario vuelve a pasar la tarjeta

idimagen , tarjeta , FechaEntrada, nombre,

2 123 2015-08-26 16:51:50 pablo

el campo FechaEntrada es el tipo datetime

base datos mysql
vb net



la diferencia seria la hora un minuto mas tarde la ingreso de nuevo


mi problema que pasa si la tarjeta pasa dos veces en el mismo momento necesito evitar eso

que no haya duplicados de ingreso de usurio en un lazo de tiempo corto

pero depues de los 10 minutos que si puede ingresar nuevamente la tarjeta para guardar los datos

esta es mi funcion para insertar datos

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Public Function insertar(ByVal datos As vempleado) As Integer
 
        'Declaramos una variable Mysqlcomand'
        Dim cmd As New MySqlCommand
        Try
            'Usuamos nuestra conexion' 
            cmd.Connection = conn
            'indicamos que utilizaremos un procedimiento'
            cmd.CommandType = CommandType.StoredProcedure
            'indicamos el nombre del procedimiento de nuestra base de datos MYSQL'
            cmd.CommandText = "SP_INSERT_Entradas"
            'Declaramos e igualamos los parametros nuestro procedimiento SP_INSERT_Entrada
            cmd.Parameters.Add("?Tarjeta", MySqlDbType.VarChar, 15).Value = datos._targeta
            cmd.Parameters.Add("?Nombre", MySqlDbType.VarChar, 60).Value = datos._Nombre
            cmd.Parameters.Add("?HoraEntrada", MySqlDbType.DateTime).Value = datos._horafecha
 
            'CDate(datos._horafecha)
 
            'Declaramos un integer(entero)'
            Dim i As Integer
            'Abrimos nuestra conexion'
            conn.Open()
            'Se almacenara en nuestro entero el valor de la ejecucion de nuestro procedimiento'
            'por ejemplo si 0 no se pudo ejecutar, en cambio si es 1 se ejecuto correctamente'
            i = cmd.ExecuteNonQuery()
            'Cerramos nuestra conexion'
            conn.Close()
            'Nos retornara un resultado'
            Return i
        Catch ex As MySqlException
            Return MsgBox(ex.Message)
            'MsgBox("Error al operar con la base de datos!", MsgBoxStyle.Critical, "Error!")
        End Try
 
    End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder