No permitir gravar datos repetidos en tablas de SQL

[jlcruz]

Hola amigos, en todos los temas me han ayudado bastante, ahora traigo una consulta mas...

Tengo un formulario en VS que me guardar la hora de entrada de los empleados con solo digitarle el número de carné. pero necesito que si digitan dos veces el mismo # de carné no el programa no guarde la segunda marcada, hasta el dia siguiente, A?Yuda como hago...

de ante mano, muchas gracias.....


JLCRUZ

[drako_darpan]

Hola que tal, puedes poner un IF NOT EXISTS, donde valides si no existe el carnet lo inserte de lo contrario no haga nada.

Código SQL:

IF NOT EXISTS( SELECT carnet FROM Tabla_Carnet (NOLOCK) WHERE carnet = XXXXX )
BEGIN
        INSERT INTO Tabla_Carnet( carnet, fecha)
        VALUES( carnet, GETDATE() )
END
 

Te recomiendo un SP para esto.

Un saludo.

[cristiantorres]

Podrías crearte un método que consulte la bd que valide si el dato ya existe o no en mi blog tengo un articulo donde explico como hacerlo.

Comprobar si Existe Registro en BD C# - VB.Net

Analiza el metodo Existe()

Código c#:

public bool Existe(int id)
{
            using (SqlConnection conn = new SqlConnection("CadenaConexion"))
            {
                string query = "SELECT COUNT(*) FROM TABLA WHERE Campo=@Id";
                SqlCommand cmd = new SqlCommand(query, conn);
                cmd.Parameters.AddWithValue("Id", id);
                conn.Open();
 
                int count = Convert.ToInt32(cmd.ExecuteScalar());
                if (count == 0)
                    return false;
                else
                    return true;
            }
}
 

El método devuelve true si el dato ya existe y false si no existe cuando hagas el insert llama el método pasale el parametro y valida si encuentra el dato o no.

[jlcruz]

OK LOS CODIGOS ESTAN BIEN, PERO YO NECESITO HACERLO EN VISUAL ESTUDIO, QUE VISUAL STUDIO ME VALIDE SI EL NUMERO DE CARNET EXISTE QUE NO LO INSERTE. ESTE ES EL CODIGO QUE ESTOY USANDO PARA GRABAR EN SQL

Private Sub txtNoEmpleado_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtNoEmpleado.KeyDown
If Me.txtNoEmpleado.Text = "" Then
'MsgBox("Debe ingresar su número de empleado", MsgBoxStyle.Information)
Me.txtNoEmpleado.Focus()

Exit Sub
End If
If e.KeyCode = Keys.Enter Then

Dim strSQL As String

Me.conexion.Open()
Dim drd_asistencia As SqlDataReader

strSQL = "SET DATEFORMAT DMY INSERT INTO ASISTENCIA "
strSQL = strSQL & "(NUMERO_EMPLEADO, FECHA, HORA_ENTRADA) "

strSQL = strSQL & "VALUES (" & "'" & txtNoEmpleado.Text & "',"
strSQL = strSQL & "'" & CDate(Me.lblFecha.Text) & "'" & ", " & "'" & lblHora.Text & "'" & ")"

Dim Cmd As New SqlCommand(strSQL, Me.conexion)

drd_asistencia = Cmd.ExecuteReader()

Me.txtNoEmpleado.Text = ""
'MsgBox("Bienvenido a sus Labores", MsgBoxStyle.Information)

Cmd.Dispose()
Me.conexion.Close()
End If
End Sub

[cristiantorres]

Iniciado por jlcruz

OK LOS CODIGOS ESTAN BIEN, PERO YO NECESITO HACERLO EN VISUAL ESTUDIO, QUE VISUAL STUDIO ME VALIDE SI EL NUMERO DE CARNET EXISTE QUE NO LO INSERTE. ESTE ES EL CODIGO QUE ESTOY USANDO PARA GRABAR EN SQL

Private Sub txtNoEmpleado_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtNoEmpleado.KeyDown
If Me.txtNoEmpleado.Text = "" Then
'MsgBox("Debe ingresar su número de empleado", MsgBoxStyle.Information)
Me.txtNoEmpleado.Focus()

Exit Sub
End If
If e.KeyCode = Keys.Enter Then

Dim strSQL As String

Me.conexion.Open()
Dim drd_asistencia As SqlDataReader

strSQL = "SET DATEFORMAT DMY INSERT INTO ASISTENCIA "
strSQL = strSQL & "(NUMERO_EMPLEADO, FECHA, HORA_ENTRADA) "

strSQL = strSQL & "VALUES (" & "'" & txtNoEmpleado.Text & "',"
strSQL = strSQL & "'" & CDate(Me.lblFecha.Text) & "'" & ", " & "'" & lblHora.Text & "'" & ")"

Dim Cmd As New SqlCommand(strSQL, Me.conexion)

drd_asistencia = Cmd.ExecuteReader()

Me.txtNoEmpleado.Text = ""
'MsgBox("Bienvenido a sus Labores", MsgBoxStyle.Information)

Cmd.Dispose()
Me.conexion.Close()
End If
End Sub

Pero analizaste la respuesta que te di en el link que te deje puedes encontrar el codigo en vb.net también.

Código vb.net:

Public Function Existe(ByVal id As Integer) As Boolean
    Using conn As New SqlConnection("CadenaConexion")
        Dim query = "SELECT COUNT(*) FROM TABLA WHERE Campo=@Id"
        Dim cmd As New SqlCommand(query, conn)
        cmd.Parameters.AddWithValue("@Id", id)
        conn.Open()
 
        Dim count As Integer = Convert.ToInt32(cmd.ExecuteScalar())
        If count = 0 Then
            Return False
        Else
            Return True
        End If
    End Using
End Function
 

Entonces a la hora de hacer el insert arias.

Código vb.net:

If (Not Existe(Convert.ToInt32(txtid.Text))) Then
    'aqui haces el insert
Else
   MessageBox.Show("Id Ya Existe...")
End If
 

Nota: Visual estudio es el IDE lo que estas usando es el lenguaje vb.net.

[jlcruz]

muchas gracias cristiantorres, pero ese codigo trate de modificarlo pero no me funciona, cuando intento guardar en SQL me dice que la conexion esta abierta y como miras en mi codigo la conexion se cierra cada vez que entra datos en SQL..

Necesito ayuda.. porfa.....

JLCRUZ

[jlcruz]

gracias amigo ya adapte tu codigo y funciono.....

lo unico ahora que yo necesito que valida la fecha tambien, porque el numero de empleado que marco hoy y no puede seguir marcando el resto dell dia, pero al dia siguiente si tiene que marcar

Voy a trabajar en eso

JLCRUZ

[Dradi7]

Pero esto no es mas que cuestión de SQL, porque lo de Programación no tendria nada que ver ya que solamente se comprabaria que devolviera un resultado para validar que si existe

Select id from tutabla where carnet = 4 and fecha = '20120405'

Lo único que deberías hacer es enviar los parámetros correspondientes usando el


Dim query = "SELECT COUNT(*) FROM TABLA WHERE Campo=@Id And Fecha = @Fecha"
cmd.Parameters.AddWithValue("@Fecha", fecha)

Saludos

[jlcruz]

gracias amigo ya adapte tu codigo y funciono.....

lo unico ahora que yo necesito que valida la fecha tambien, porque el numero de empleado que marco hoy y no puede seguir marcando el resto dell dia, pero al dia siguiente si tiene que marcar

Voy a trabajar en eso

JLCRUZ

[Aquaventus]

?? no hagas spam. Saludos!.

[jlcruz]

Disculpa pero a que te refieres con spam?

JLCRUZ

[Aquaventus]

has repetido 2 veces un mismo comentario :

gracias amigo ya adapte tu codigo y funciono.....

lo unico ahora que yo necesito que valida la fecha tambien, porque el numero de empleado que marco hoy y no puede seguir marcando el resto dell dia, pero al dia siguiente si tiene que marcar

Voy a trabajar en eso

JLCRUZ

Saludos!.

[jlcruz]

Ok, perdon no me di cuenta, le di click dos veces a enviar respuesta...

JLCRUZ

[jlcruz]

Ya, tengo todo resuelto, gracias a todos por ayudarme....


Desarrollo de Software

JLCRUZ
Nicaragua