Evitar hacer guardar registros duplicados vb 6.0

A TOD@S
Quiero evitar grabar un código duplicado en la bd. El campo quiero verificar primero es el código de carnet.
Para que tenga una idea de lo que estoy haciendo le dejo el código de guardar:Private Sub Cmd_Guardar_Click()
ADODC_EMPLEADOS.Recordset.AddNew
ADODC_EMPLEADOS.Recordset.Fields("CEDULA") = txt_cedula.Text
ADODC_EMPLEADOS.Recordset.Fields("APELLIDOS") = Txt_Apellidos.Text
ADODC_EMPLEADOS.Recordset.Fields("NOMBRES") = Txt_Nombres.Text
ADODC_EMPLEADOS.Recordset.Fields("NACIONALIDAD") = Cbo_Nacionalidad.Text
ADODC_EMPLEADOS.Recordset.Fields("DEPARTAMENTO") = Cbo_Departamento.Text
ADODC_EMPLEADOS.Recordset.Fields("CARGO") = Cbo_Cargo.Text
ADODC_EMPLEADOS.Recordset.Fields("RUTA_FOTOEMPLEADO") = Text1.Text
ADODC_EMPLEADOS.Recordset.Fields("COD_CARNET") = Txt_CodigoCarnet.Text
ADODC_EMPLEADOS.Recordset.Update
MsgBox "DATOS DEL EMPLEADO AGREGADO", vbInformation, "ATENCION"
txt_cedula.Text = ""
Txt_Apellidos.Text = ""
Txt_Nombres.Text = ""
Text1.Text = ""
Txt_CodigoCarnet.Text = ""
End Sub
En que parte debo poner el código para evitar repetir el código que aparece el Txt_CodigoCarnet.Text
gracias por la ayuda

1 respuesta

Respuesta
1
En la tabla conde los guarda al camp debes de darle una propiedad de Único, pero a la tabla no al formulario, de esta forma no te dejara guardar registros duplicados, por ejemplo si los guardas en access, entra a la tabla de access y en vista diseño selecciona el campo que quieres modificar y en la parte de abajo están las propiedades, ponle Sin Duplicados.
Experto gracias
Esa es una alternativa. Pero me daría error la aplicación de vb, pero realmente quiero que me de alguna señal de que el valor ya esta en la tabla.
No se si me explico
Y como lo haría si mi base de datos se sql 7
Si es sql ponle la propiedad de único, y para que el código visual no te marque error ponle una etiqueta
ejemplo
On Error resume Next
TuCodigo
Resume Next
De esta forma si el código te marca error te mandara hasta la etiqueta resume next y terminara el código., de lo contrario no marcara error y te guardara el registro

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Datagrid

Me gustaría acceder a un dato concreto del datagrid, es decir, acceder a una fila y a una columna en concreto. ¿Cómo se hace?
1 respuesta

Comandos parguardar datos de un formulario a una tabla

Soy nuevo en esto y tengo una tarea: Lo que tengo es una tabla con columnas con Cliente, Proveedor, Fecha, etc. Sin sus datos llamada tabla1, y creé un formulario donde text1 es para el Cliente, text2 para Proveedor, etc... Lo que quiero hacer es que...
1 respuesta

Validar campo para que no se repitan los registros

Pues como dice el titulo, Tengo una tabla con 3 campos y quiero que al escribir datos en el 1º campo me salga un error si se repite ese dato sin tener que esperar a escribir en los 3 campos y guardar el registro Es decir, de error al guardar el campo.
1 respuesta

Acceso a una base de datos SQL SERVER remota

Tengo que acceder a una base de datos que esta en un servidor SQL SERVER remoto del cual no tengo privilegios administrativos. Tengo entendido que mediante los proyectos de access (. Adp) se puede realizar esta conexión sin necesidad de utilizar...
2 respuestas

Extraer los 2 caracteres de un textbox

Tengo 3 textbox, lo que quiero es que en el text3.text copie lo dos primeros caracteres del text1.text y todos los caracateres text2.text. Ejemplo de lo que quiero: Text1.text escribimos ELIEZER Text2.text escribimos BRICEÑO Text3.text automatico...
2 respuestas

Inserción

Ada cierto tiempo quiero importar todos los datos de una tabla de otra bd a la bd que estoy trabajando. ¿Cómo puedo hacer para que solo me importe los datos nuevos(que en la importación anterior no existían)? Ejemplo: insert into...
2 respuestas

Código para evitar ingresar datos repetidos desde un textbox y un userform

Como hago para cargar ese macro Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 1 Then dato = Target.Value contarsi = Application.WorksheetFunction.CountIf(Columns(1), dato) If contarsi > 1 Then MsgBox "el...
3 respuestas

¿Podría describirme el proceso paso a paso para conectarse a una tabla SQL desde VB 6?

Yo leí la pregunta sobre conectarse a una tabla de SQL desde VB 6, ¿Podría describirme el proceso paso?
1 respuesta

Run time error 13, Type mismatch

Tengo la siguiente programación en un botón que me debería pemritir guardar los datos dentro de una base de datos Pero al presionar el botón una vez que he guardado los datos me aparece este error Run time error 13, Type mismatch Marcándome con...
1 respuesta

Base de Datos Access desde Visual Basic 6.0

Estoy trabajando con una base de datos access desde visual basic 6.0, cuando intento actualizar un registro o guardar uno nuevo me envía el siguiente error (Error de Sintaxis Falta Operador en la Exprision de Consulta), ya he intentado depurar el...
1 respuesta