Evitar duplicados en DB
Publicado por Alex (2 intervenciones) el 28/10/2009 13:03:45
Hola a todos. Necesito sus ayudas.
Tengo una base de datos (en Access) que la muestro en un datagrid de VB.NET, para agregar un registro abro otro form, el cual tiene unos textbox y la clave unica es un maskedtextbox. Ahora necesitaria saber como puedo hacer para que al salir del maskedtex me salte un msgbox diciendome que ese registro ya esta en la base de datos. Muchas Gracias. Espero sus respuestas.
Les adjunto mi codigo:
PrivateSub MaskedTextBox1_LostFocus1(ByVal sender AsObject, ByVal e As System.EventArgs) Handles MaskedTextBox1.LostFocus
Dim i
Dim dsdatos AsNew Base_de_datos3DataSet1
Dim drregistros1 As Base_de_datos3DataSet1.tabla1Row
Dim textkey = MaskedTextBox1.Text
For i = 0 To dsdatos.tabla1.Rows.Count - 1
If dsdatos.tabla1.Rows(i).Item("CUIT") = textkey Then
MsgBox("error")
EndIf
Next i
End Sub
Tengo una base de datos (en Access) que la muestro en un datagrid de VB.NET, para agregar un registro abro otro form, el cual tiene unos textbox y la clave unica es un maskedtextbox. Ahora necesitaria saber como puedo hacer para que al salir del maskedtex me salte un msgbox diciendome que ese registro ya esta en la base de datos. Muchas Gracias. Espero sus respuestas.
Les adjunto mi codigo:
PrivateSub MaskedTextBox1_LostFocus1(ByVal sender AsObject, ByVal e As System.EventArgs) Handles MaskedTextBox1.LostFocus
Dim i
Dim dsdatos AsNew Base_de_datos3DataSet1
Dim drregistros1 As Base_de_datos3DataSet1.tabla1Row
Dim textkey = MaskedTextBox1.Text
For i = 0 To dsdatos.tabla1.Rows.Count - 1
If dsdatos.tabla1.Rows(i).Item("CUIT") = textkey Then
MsgBox("error")
EndIf
Next i
End Sub
Valora esta pregunta


0