Ver Mensaje Individual
  #4 (permalink)  
Antiguo 16/11/2005, 10:05
Avatar de Maxi.Net
Maxi.Net
 
Fecha de Ingreso: abril-2005
Ubicación: R.M. Talagante, Chile!!
Mensajes: 295
Antigüedad: 19 años, 1 mes
Puntos: 2
Hola creo que buscas algo para ver si existe el reguistro antes de agregarlo al conjunto de datos? si es asi lo que puedes hacer es controlar el error que se produce cuando agregas la nueva fila del DataRow(.add()) al dataset.

Creo que esto te puede servir utilizando try... Catch... Finally... End Try

Código:
'tb= Mi Tabla
'Ds=DataSet
'ex= Exepción
'ex.Message=Describe la exepción actual
'nom= clave primaria (PK)

Dim fila As DataRow
OleDbDataAdapter1.Fill(Ds1, "tb")
fila = Ds1.Tables("tb").NewRow
fila("nom") = TextBox1.Text

Try
Ds1.Tables("tb").Rows.Add(fila)
OleDbDataAdapter1.Update(Ds1)
Catch ex As System.Data.ConstraintException
MsgBox("" & ex.Message)
Finally

End Try


Chaooo

Última edición por Maxi.Net; 16/11/2005 a las 17:02