Visual Basic - No duplicar claves

Life is soft - evento anual de software empresarial
   
Vista:

No duplicar claves

Publicado por Rafa Torres (1 intervención) el 28/04/2014 22:58:29
Tengo el Visual Basic 6.0 y no uso codigo para conectar a una base de datos, lo hago desde las propiedades.

Hago un ciclo que recorre todos los registros con un do while loop, asi:
1
2
3
4
5
6
7
8
9
10
11
12
13
Do While Not ado.Recordset.EOF
      If ado.Recordset.Fields("Numero") = val(Text7.Text) Then
        mismo = 1
      End If
      Text1.SetFocus
      ado.Recordset.MoveNext
    Loop
    If mismo = 1 Then
      MsgBox "Ya existe"
    Else
      ado.Recordset.AddNew
      ado.Recordset.update
  End If

al momento de comparar, siempre me sale que el numero que voy a capturar es el mismo, es decir siempre el primer registro va a ser igual, si pongo el setfocus a otro text o me arroja un error al ejecutar ado.Recordset.Move First

Como se le podrá hacer???
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