Programación de la base de datos VB, algunos campos de la base de datos no se pueden repetir. Si los datos ingresados ​​se repiten, el programa le recordará automáticamente cómo escribir el código de recordatorio automático.

Utilice una instrucción Sql, una consulta o un método Find para consultar. Si el registro ya existe, se le recordará:

Si desea guardar n filas a la vez, hay dos opciones. :

1: Marque una línea y guarde una línea. Todo lo que no esté duplicado se guardará y todo lo que tenga duplicados no se guardará.

2: Verifique uno por uno primero. Si hay duplicados, aparecerá el mensaje y finalizará.

No sé si está utilizando un control o una base de datos conectada a objetos. Suponga que está utilizando el control Adodc y ya está conectado.

A continuación: Supongamos que los campos a y b son tipos de caracteres. Tomando una fila de datos como ejemplo, el valor del campo a es "AA" y el valor del campo b es "BB". p>

Adodc1.RecordSource ="Seleccionar * De s Donde a ='AA' y b = 'BB'"

Adodc1.Refresh

Si no (Adodc1.Recordset .EOF y Adodc1.Recordset.BOF ) Luego

MsgBox "¡El mismo registro ya existe!"

Salir de Sub

De lo contrario

'Escriba el código para agregar el registro a continuación

p>

Finalizar si

Lo anterior es para indicar cuándo los datos a y b son iguales si a es igual o. b es igual, entonces:

Adodc1.RecordSource ="Select * From s Where a ='AA' Or b = 'BB'"