
16/11/2005, 10:05
|
 | | | Fecha de Ingreso: abril-2005 Ubicación: R.M. Talagante, Chile!!
Mensajes: 295
Antigüedad: 19 años, 11 meses 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 |