Problemas con los datos duplicados VB 6.0
HI!
Tengo un pequeño problema, Ejemplo:
Poseeo un tabla en la cual tengo dos campos ID y el Nombre, y el campo ID es el principal o clave (no acepta duplicados) , cuando inserto utilizando ADO a la tabla me da error diciendo que podria crear datos duplicados etc...¿Como puedo escribir una instruccion para que cuando mande a guardar un ID que ya existen me de un mensaje al usuario de que ya existe alguien con ese ID, que debe introducir uno diferente. (Es decir: ¿Como es la instruccion SQL que debo darle a la tabla?)
Tengo un pequeño problema, Ejemplo:
Poseeo un tabla en la cual tengo dos campos ID y el Nombre, y el campo ID es el principal o clave (no acepta duplicados) , cuando inserto utilizando ADO a la tabla me da error diciendo que podria crear datos duplicados etc...¿Como puedo escribir una instruccion para que cuando mande a guardar un ID que ya existen me de un mensaje al usuario de que ya existe alguien con ese ID, que debe introducir uno diferente. (Es decir: ¿Como es la instruccion SQL que debo darle a la tabla?)
Dim moRecordset As New ADODB.Recordset
'/////////////////
If Not moRecordset.EOF And Not moRecordset.BOF Then
If Trim(moRecordset.Fields(0).Value) <> "" Then
MsgBox "EL Código ya existe !!!", vbCritical, "Atención"
Txt1.Text = ""
Txt1.SetFocus
Exit Sub
moRecordset.Close
End If
else
'agrega el codigo para guardar los datos aqui
...........
..........
end if
'/////////////////
If Not moRecordset.EOF And Not moRecordset.BOF Then
If Trim(moRecordset.Fields(0).Value) <> "" Then
MsgBox "EL Código ya existe !!!", vbCritical, "Atención"
Txt1.Text = ""
Txt1.SetFocus
Exit Sub
moRecordset.Close
End If
else
'agrega el codigo para guardar los datos aqui
...........
..........
end if
Gracias a Dios... Por tu ayuda me has quitado un gran peso de encima.
Gracias por tu colaboracion.
salud2
Gracias por tu colaboracion.
salud2
