
problema con boton actualiZar en POO
Publicado por vazagho (79 intervenciones) el 31/10/2010 00:49:52
que tal aqui tengo un problema , bueno ya puedo hacer mis consultas personalizadas, ya puedo insertar, puedo eliminar(actualizar como no activo), pero tengo problema en actualizar
en mi codigo de insert lo tengo asi:
item.ApePPer = txt_apepat.Text
Dim item As New layer_entity.Personal
item.ApeMPer = txt_apemat.Text
item.NomPer = txt_nombres.Text
item.CodDocu = ddl_tipodoc.SelectedValue
.....
item.CodEstado = "Est01"
item.CodPer = RulePersonal.Insert(item)
y en mi update asi:
Dim item As New layer_entity.Personal
item.CodCargo = lblcodigo.Text
item.ApePPer = txt_apepat.Text
item.ApeMPer = txt_apemat.Text
.......
item.Comentario = txt_comentario.Text
item.CodEstado = "Est01"
RulePersonal.Update(item)
no se porque no me actualiza???
en mi logica de negocios esta asi:
Public Sub Update(ByVal item As Personal)
Try
Dim param() As String = {item.CodPer, item.ApePPer, item.ApeMPer, item.NomPer, item.CodDocu, item.NumDocu,
item.CodSex, item.FecNacPer, item.CodEstCivil, item.CodGrado, item.CodReligion, item.CodIdioma,
item.IdiomaSec, item.CodPais, item.CodDepart, item.CodProv, item.CodPostalPer, item.DirPer, item.CodCargo,
item.TelPer, item.extension, item.Tel2Per, item.EmailPer, item.licenciaconducir, item.codtipocuenta, item.codbanco,
item.codmoneda, item.numcuenta, item.FecNacIngresoPer, item.Comentario, item.CodEstado}
Me.ExecuteNomQuery("usp_Personal_Update", param)
Catch ex As Exception
Throw ex
End Try
End Sub
y en mi rules
Public Shared Sub Update(ByVal item As Personal)
Try
obj.Update(item)
Catch ex As Exception
Throw ex
End Try
End Sub
probe camiando a function el sub pero igual no me actualiza nada
que problema tendria ahi???
gracias
en mi codigo de insert lo tengo asi:
item.ApePPer = txt_apepat.Text
Dim item As New layer_entity.Personal
item.ApeMPer = txt_apemat.Text
item.NomPer = txt_nombres.Text
item.CodDocu = ddl_tipodoc.SelectedValue
.....
item.CodEstado = "Est01"
item.CodPer = RulePersonal.Insert(item)
y en mi update asi:
Dim item As New layer_entity.Personal
item.CodCargo = lblcodigo.Text
item.ApePPer = txt_apepat.Text
item.ApeMPer = txt_apemat.Text
.......
item.Comentario = txt_comentario.Text
item.CodEstado = "Est01"
RulePersonal.Update(item)
no se porque no me actualiza???
en mi logica de negocios esta asi:
Public Sub Update(ByVal item As Personal)
Try
Dim param() As String = {item.CodPer, item.ApePPer, item.ApeMPer, item.NomPer, item.CodDocu, item.NumDocu,
item.CodSex, item.FecNacPer, item.CodEstCivil, item.CodGrado, item.CodReligion, item.CodIdioma,
item.IdiomaSec, item.CodPais, item.CodDepart, item.CodProv, item.CodPostalPer, item.DirPer, item.CodCargo,
item.TelPer, item.extension, item.Tel2Per, item.EmailPer, item.licenciaconducir, item.codtipocuenta, item.codbanco,
item.codmoneda, item.numcuenta, item.FecNacIngresoPer, item.Comentario, item.CodEstado}
Me.ExecuteNomQuery("usp_Personal_Update", param)
Catch ex As Exception
Throw ex
End Try
End Sub
y en mi rules
Public Shared Sub Update(ByVal item As Personal)
Try
obj.Update(item)
Catch ex As Exception
Throw ex
End Try
End Sub
probe camiando a function el sub pero igual no me actualiza nada
que problema tendria ahi???
gracias
Valora esta pregunta


0