08/10/2012, 15:05
|
| | Fecha de Ingreso: septiembre-2012 Ubicación: Diriamba-Carazo
Mensajes: 34
Antigüedad: 12 años, 4 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 |