Tengo 2 tablas relacionadas por el campo IdHistoria.
- La tabla Historia contiene datos del paciente (es única).
- La tabla de Tratamiento contiene los tratamientos para cada paciente.
En cIdHistoria se indica el número de historia de un determinado paciente y sus datos se obtienen de la tabla Historia y los tratamientos realizados de la tabla Tratamiento (o sea están relacionadas manualmente).
Los datos se obtienen según el código siguiente y funciona, pero cuando la conexión se realiza desde otro ordenador de la red se suele producir un retardo de unos 7 segundos en obtener los datos, pero en el equipo local cargan instantáneamente por lo que creo que el retardo se debe a la forma que accedo a las tablas.
La tabla Historia contiene alrededor de 25.000 filas y la tabla de tratamientos alrededor de 125.000 filas. Creo que debería cargarse más rápido.
¿Cómo puedo optimizar el código para que haga lo mismo sin tardar tanto?
Este es el código que devuelve las filas consultadas según cIdHistoria que se indique:
'Dim CadenaDeConexion = "Data source = MIPC; initial catalog = 'Historias'; Connection Timeout = '3'; Persist Security Info = True; User ID = USUARIO;"
Friend Sub CargarDatos(cIdHistoria As String)
Historia = CargarHistoria(cIdHistoria)
Tratamiento = CargarTratamiento(cIdHistoria)
Total = CalcularTotal(Tratamiento)
End Sub
Friend Function CargarHistoria(cIdCliente As String) As Historia
Dim Tabla As New DataTable, Fila As DataRow, Datos As New Historia
With Datos
Using AdapdadorSQL As New SqlDataAdapter("SELECT * FROM Historia WHERE IdHistoria = '" & cIdHistoria & "'", CadenaDeConexion)
AdapdadorSQL.Fill(Tabla)
Fila = Tabla.Rows(0)
'Pasar los datos de la fila a la clase a devolver.
.Nombre = Fila("Nombre").ToString
.Domicilio = Fila("Domicilio").ToString
.Identidad = Fila("Identidad").ToString
End Using
End With
Return Datos
End Function
Friend Function CargarTratamiento() As DataTable
Dim Tabla As New DataTable
Using AdapdadorSQL As New SqlDataAdapter("SELECT Tratamiento, Descripcion, Costo1, Costo2, (Costo2 - Costo1) AS Costo3 FROM Tratamiento WHERE IdHistoria = '" & cIdHistoria & "' ORDER BY IdTratamiento", CadenaDeConexion)
AdapdadorSQL.Fill(Tabla)
End Using
Return Tabla
End Function
Friend Function CalcularTotal(Tabla As DataTable) As DataTable
Dim Total As New DataTable
Total.Columns.Add(Nothing, GetType(Double))
Total.Columns.Add(Nothing, GetType(Double))
Total.Columns.Add(Nothing, GetType(Double))
Total.Rows.Add(Tabla.Compute("SUM(Costo1)", Nothing), Tabla.Compute("SUM(Costo2)", Nothing), Tabla.Compute("SUM(Costo3)", Nothing))
Return Total
End Function