control de ingreso
Publicado por djnilo (24 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
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
0