Repeticiones en Bases de Datos vb ado
Hola, estaba haciendo un programa en donde una parte debe detectar si el dato que va a cargar existía previamente en la base de datos. En caso de que exista deberá sumar 1 a la cantidad de repeticiones y NO CARGAR el registro repetido. El código que elabore tiene el siguiente error: en caso de que cargue 15 DNI's y haya 4 repetidos, nada más me detectará el 1ro. Te muestro el fragmento de código:
' If Not rst.EOF Then
' If rst.Fields(2).Value <> dni(z) Then
With rst
On Error Resume Next
.AddNew
.Fields(0).Value = nombre(z)
.Fields(1).Value = apellido(z)
.Fields(2).Value = dni(z)
.Update
End With
' Else
' MsgBox "Invitado repetido " & rst.Fields(1).Value
' End If
' rst.MoveNext
' End If
Desde ya muchas gracias. Espero con ansias tu respuesta.
' If Not rst.EOF Then
' If rst.Fields(2).Value <> dni(z) Then
With rst
On Error Resume Next
.AddNew
.Fields(0).Value = nombre(z)
.Fields(1).Value = apellido(z)
.Fields(2).Value = dni(z)
.Update
End With
' Else
' MsgBox "Invitado repetido " & rst.Fields(1).Value
' End If
' rst.MoveNext
' End If
Desde ya muchas gracias. Espero con ansias tu respuesta.
1 respuesta
Respuesta de Roberto Alvarado
Disculpá, que te vuelva a molestar con lo mismo. Pero no entiendo como actualizar el campo que necesito (2) de los DNI's. Actualizo el rst, acá te dejo como me va quedando. Disculpa mi ignorancia en el tema.
Else
'no se como actualizar el campo
rst.Update
MsgBox "Invitado repetido " & rst.Fields(1).Value
End If
rst.MoveNext
End If
Else
'no se como actualizar el campo
rst.Update
MsgBox "Invitado repetido " & rst.Fields(1).Value
End If
rst.MoveNext
End If
...
rst.Fields(2).Value = dni(z)
rst.Update
...
rst.Fields(2).Value = dni(z)
rst.Update
...
