Visual Basic.NET - Actualizar navegador de registros

   
Vista:

Actualizar navegador de registros

Publicado por Alberto Gutierrez (29 intervenciones) el 07/07/2008 16:12:55
Hola que tal...

...El problema que tengo es que la barra de navegación entre registros no se actualiza cuando agreso un registro nuevo.

Por ejemplo, si tengo 5 registros y agrego uno nuevo no se actualiza la barra de navegación a 6 registros, sino que se queda en 5 y cuando vuelvo a cargar el formulario entonces aparece actualizada, me gustaria que se actualizara al instante de agregar el nuevo registro.

El codigo que estoy utilizando es el siguiente:

Private Sub frmVendedores_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
daVendedores = New Data.SqlClient.SqlDataAdapter("SELECT * FROM Tbl_Vendedores", dbConexion.dbConexion)
dsControl = New Data.DataSet
dbConexion.dbConexion.Open()
daVendedores.Fill(dsControl, "Tbl_Vendedores")
dbConexion.dbConexion.Close()
ENLAZAR()
End Sub

Sub ENLAZAR()
bsVend = New BindingSource
bsVend.DataSource = dsControl
bsVend.DataMember = "Tbl_Vendedores"
Me.BindingNavigator1.BindingSource = bsVend
Me.txtCodigoVend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Codigo")
Me.txtNombreVend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Nombre")
Me.txtDireccion1Vend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Direccion1")
Me.txtDireccion2Vend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Direccion2")
Me.txtCedulaVend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Cedula")
Me.txtTelefono1Vend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Telefono1")
Me.txtTelefono2Vend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Telefono2")
Me.txtEmailVend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Email")
Me.txtComisionVend.DataBindings.Add("Text", Me.bsVend, "Vend_N_Comision")
Me.txtCuotaVend.DataBindings.Add("Text", Me.bsVend, "Vend_N_Cuota")
Me.chkInactivoVend.DataBindings.Add("Checked", Me.bsVend, "Vend_B_Inactivo")
End Sub

Private Sub tsbGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbGrabar.Click
Try
daVendedores = New Data.SqlClient.SqlDataAdapter("SELECT * FROM Tbl_Vendedores WHERE Vend_C_Codigo ='" & Me.txtCodigoVend.Text & "'", dbConexion.dbConexion)
dsControl = New Data.DataSet
dbConexion.dbConexion.Open()
daVendedores.Fill(dsControl, "Tbl_Vendedores")
dbConexion.dbConexion.Close()

If dsControl.Tables("Tbl_Vendedores").Rows.Count <> 0 Then
Dim cmdIns As New Data.SqlClient.SqlCommand
cmdIns.Parameters.Add("@Vend_C_Codigo", SqlDbType.NVarChar, 10).Value = Me.txtCodigoVend.Text
cmdIns.Parameters.Add("@Vend_C_Nombre", SqlDbType.NVarChar, 30).Value = Me.txtNombreVend.Text
cmdIns.Parameters.Add("@Vend_N_Comision", SqlDbType.Int).Value = Me.txtComisionVend.Text
cmdIns.Parameters.Add("@Vend_N_Cuota", SqlDbType.Int).Value = Me.txtCuotaVend.Text
cmdIns.Parameters.Add("@Vend_B_Inactivo", SqlDbType.Bit).Value = Me.chkInactivoVend.Checked
cmdIns.Parameters.Add("@Vend_C_Direccion1", SqlDbType.NVarChar, 40).Value = Me.txtDireccion1Vend.Text
cmdIns.Parameters.Add("@Vend_C_Direccion2", SqlDbType.NVarChar, 40).Value = Me.txtDireccion2Vend.Text
cmdIns.Parameters.Add("@Vend_C_Cedula", SqlDbType.NVarChar, 13).Value = Me.txtCedulaVend.Text
cmdIns.Parameters.Add("@Vend_C_Telefono1", SqlDbType.NVarChar, 13).Value = Me.txtTelefono1Vend.Text
cmdIns.Parameters.Add("@Vend_C_Telefono2", SqlDbType.NVarChar, 13).Value = Me.txtTelefono2Vend.Text
cmdIns.Parameters.Add("@Vend_C_Email", SqlDbType.NVarChar, 50).Value = Me.txtEmailVend.Text
cmdIns.Connection = dbConexion.dbConexion
cmdIns.CommandType = CommandType.StoredProcedure
cmdIns.CommandText = "SP_UPD_VENDEDORES"
dbConexion.dbConexion.Open()
cmdIns.ExecuteNonQuery()
dbConexion.dbConexion.Close()
Else
Dim cmdInsVend As New Data.SqlClient.SqlCommand
cmdInsVend.Parameters.Add("@Vend_C_Codigo", SqlDbType.NVarChar, 15).Value = txtCodigoVend.Text
cmdInsVend.Parameters.Add("@Vend_C_Nombre", SqlDbType.NVarChar, 30).Value = txtNombreVend.Text
cmdInsVend.Parameters.Add("@Vend_N_Comision", SqlDbType.SmallInt).Value = txtComisionVend.Text
cmdInsVend.Parameters.Add("@Vend_N_Cuota", SqlDbType.SmallInt).Value = txtCuotaVend.Text
cmdInsVend.Parameters.Add("@Vend_B_Inactivo", SqlDbType.Bit).Value = chkInactivoVend.Checked
cmdInsVend.Parameters.Add("@Vend_C_Direccion1", SqlDbType.NVarChar, 40).Value = txtDireccion1Vend.Text
cmdInsVend.Parameters.Add("@Vend_C_Direccion2", SqlDbType.NVarChar, 40).Value = txtDireccion2Vend.Text
cmdInsVend.Parameters.Add("@Vend_C_Cedula", SqlDbType.NVarChar, 13).Value = txtCedulaVend.Text
cmdInsVend.Parameters.Add("@Vend_C_Telefono1", SqlDbType.NVarChar, 13).Value = txtTelefono1Vend.Text
cmdInsVend.Parameters.Add("@Vend_C_Telefono2", SqlDbType.NVarChar, 13).Value = txtTelefono2Vend.Text
cmdInsVend.Parameters.Add("@Vend_C_Email", SqlDbType.NVarChar, 50).Value = txtEmailVend.Text
cmdInsVend.Connection = dbConexion.dbConexion
cmdInsVend.CommandType = CommandType.StoredProcedure
cmdInsVend.CommandText = "SP_INS_VENDEDORES"
dbConexion.dbConexion.Open()
cmdInsVend.ExecuteNonQuery()
dbConexion.dbConexion.Close()
LIMPIAR()
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error")
dbConexion.dbConexion.Close()
End Try
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Actualizar navegador de registros

Publicado por pablo (6 intervenciones) el 30/01/2009 20:25:29
Lo que debes hacer es vaciar el dataset

midataset(tabla).clear

y luego lo vuelves a cargar para que actualize los nuevos datos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar