Hola gente del foro,
una aplicación winforms que hice hace tiempo, está empezando a funcionar con lentitud a medida que han ido creciendo los registros. Hasta que ha llegado al punto de tardar como 1 minuto el proceso de guardar cambios. Pero este proceso no hace más que un update del dataset y un fill para volverlo a recargar.
Les dejo el codigo de esa parte, y les pido sugerencias acerca de como tratar esto, para mejorar los tiempos de respuesta. Que empiezan a ser un poco exagerados.
Código:
Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
Me.BindingContext(miDataSet, "Mantenimientos").EndCurrentEdit()
If miDataSet.HasChanges Then
GuardarCambios_miDataSet()
End If
End Sub
Private Function GuardarCambios_miDataSet() As Boolean
Try
Form_IsLoad = False
Dim CeldaActual As DataGridCell = dgMantenimientos.CurrentCell
Dim objMantenimientos As New miNameSpace.MantenimientosDB
daMantenimientos.InsertCommand = objMantenimientos.DameComandoActualizacion("Insert")
daMantenimientos.UpdateCommand = objMantenimientos.DameComandoActualizacion("Update")
daMantenimientos.DeleteCommand = objMantenimientos.DameComandoActualizacion("Delete")
daMantenimientos.Update(miDataSet, "Mantenimientos")
miDataSet.Tables("Mantenimientos").Clear()
daMantenimientos.Fill(miDataSet, "Mantenimientos")
dgMantenimientos.Focus()
dgMantenimientos.CurrentCell = CeldaActual
Return True
Catch eX As DBConcurrencyException
MessageBox.Show(ex.Message, "Error de Concurrencia")
Return False
Catch eX As Exception
MessageBox.Show(eX.Message, "Error")
Return False
Finally
Form_IsLoad = True
End Try
End Function
Igual muevo mucha información para arriba y para abajo innecesariamente. Gracias por ofrecerme sus soluciones.
Saludos cordiales.
