Visual Basic - detectar campo duplicado

Life is soft - evento anual de software empresarial
 
Vista:

detectar campo duplicado

Publicado por antonio (62 intervenciones) el 13/12/2002 23:47:47
como puedo detectar que el campo que se esta rellenando a traves de un text.text el cual ovbiamente esta enlazado con el campo de una base de datos, SE ENCUENTRA DUPLICADO???

ES DECIR QUE AL INTRODUCIR POR EJEMPLO EL DNI, COMPRUEBE QUE YA ESTA ALMACENADO EN LA BASE DE DATOS Y NOS AVISE DE LLO....GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:detectar campo duplicado

Publicado por Rodolfo del Peru (454 intervenciones) el 14/12/2002 21:19:26
Tienes que crar una funcion de validacion que te indique que ya existe

Function Validar_DNI(NroDNI As String) As Boolean
Dim sql As String
Dim rsWork As ADODB.Recordset

'Busca Numero de Documento
sql = "SELECT * FROM TABLA"
sql = sql & " WHERE NRODNI = '" & NroDNI & "'"

Set rsWork = New ADODB.Recordset
Set rsWork.ActiveConnection = cn
With rsWork
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockReadOnly
.Open sql
End With
'---
If Not rsWork.EOF Then
Validar_DNI = True
MsgBox = "Número DNI ya Existe"
NroDNI.SetFocus
End If
Else
Validar_DNI = False
End If
Set rsWork.ActiveConnection = Nothing
rsWork.Close
End Function

Esta funcion la puedes llamar desde el evento LostFocus y si te devuelve True no haces nada, si es falso ejecutas tu rutina normal.

Espero que te sea util.

Saludos desde Lima
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar