Cita:
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:
Ver originalPublic 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:
Ver originalIf (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.