Forums Últimos mensajes - Powered by IBM
 

Buscar en un dataset?

15/04/2005 - 18:00 por Carmelo Enrique Gonzalez | Informe spam
Hola amigos estoy haciendo una cosa que creo que puede ser facil pero a mi
no me sale
ya pude saber como agregar filas(datos) a un dataset que tengo asociado a
una datagrid y esta trabajando muy bien lo hago de la siguente manera.
myDataRow = Mov_Depositos1.Tables("Mov_Depositos").NewRow

myDataRow("Dep_Codigo") = cbDeposito.Text

myDataRow("Codigo") = cCodAux

myDataRow("Exi_Actual") = CDbl(txtEActual.Text)

myDataRow("Ubicacion") = txtUbicacion1.Text

Mov_Depositos1.Tables("Mov_Depositos").Rows.Add(myDataRow)

esto perfecto PERO el detalle esta en que cuando quiero incluir un nuevo
registro yo quiero validar que no se repita el codigo del deposito y pensaba
que podia hacerlo asi:

Me.SqlDAMovDeposito.SelectCommand.CommandText = "Select * From Mov_Depositos
Where Codigo = '" & cCodAux & "' And Dep_Codigo = '" & cbDeposito.Text & "'"

Me.SqlDAMovDeposito.Fill(Mov_Depositos1)

i = Me.BindingContext(Mov_Depositos1, "Mov_Depositos").Count

If i = 0 Then

una consulta y tomaba el contador pero siempre me da el numero de registro
que haya cargado es decir no hace la consulta nose si es que no se puede
porque como no he grabado pero me tiene los datos



Que y como puedo hacer !!!

¿Puedo buscar en un DataSet de esta manera?

gracias

Carmelo Gonzalez
 

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]
16/04/2005 - 03:18 | Informe spam
Si el dataset es tipado y esta definida la clave primaria de la tabla, el
agregar una repetida te generara una excepcion. Puedes capturar esa
excepcion para saber si se esta repitiendo el codigo:

Try

' Agregar el registro

Catch ex As ConstraintException

MessageBox.Show("El codigo esta repetido")

End Try

Si no usas un dataset tipado puedes de todas formas especificar la clave
primaria usando la propiedad PrimaryKey del datatable:

Dim tabla As DataTable
tabla = Mov_Depositos.Tables("Mov_Depositos")
tabla.PrimaryKey = New DataColumn() {tabla.Columns("Codigo")}

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
https://mvp.support.microsoft.com/p...4EF5A4191C
http://spaces.msn.com/members/emorcillo/

Preguntas similares