Ver Mensaje Individual
  #4 (permalink)  
Antiguo 08/10/2012, 15:05
jlcruz
 
Fecha de Ingreso: septiembre-2012
Ubicación: Diriamba-Carazo
Mensajes: 34
Antigüedad: 11 años, 7 meses
Puntos: 0
Respuesta: No permitir gravar datos repetidos en tablas de SQL

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