He hecho una aplicación en vb.net para registrar datos de temperaturas y presiones. En esta base de datos se introducen muchos registros al día. He hecho un calculo y en 1 año llegará a 3.5 gigas. Mi problema no es su tamaño, sino que cuanto más crezca más lento será acceder a esos datos. Y más lenta irá la aplicación. ¿Que solución haríais vosotros? La base de datos es en archivo .mdf. ¿Se podría hacer que cuando este archivo llegue a 1 giga cree automáticamente un .ndf secundario y así las veces que haga falta? ¿Si hago esto podré seguir accediendo a los datos del .mdf y de los respectivos .ndf? Digo esto porque es mi primera vez en base de datos .mdf, .ldf y .ndf y no se que solución buscar para que acceder a estos datos mediante una lectura no se haga tan lento conforme el paso del tiempo.
En el fragmento de código que os comparto lo que hago es una consulta a la base de datos para que me dibuje la gráfica con los datos de Tª de 1 día, 1 semana, 1 mes o 1 hora.
Public Sub ConsultaValores()
Try
conex = New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=" + FormMain.rutaBaseDatos + ";Integrated Security=True")
conex.Open()
DibujarGrafica()
conex.Close()
Catch ex As SqlException
MessageBox.Show(ex.Message)
Finally
conex.Dispose()
End Try
End Sub
En este fragmento hago una consulta en la base de datos, para luego coger estos datos y recorrerlos para insertarlos en un PDF.
'Esta función servirá para hacer una busqueda de los datos de las Temperaturas de un día.
Public Sub TablaDatosTemp()
minDate = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day, 0, 0, 0)
maxDate = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day, 23, 59, 0)
Try
'Intentar conectar a la DB.
conex = New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=" + FormMain.rutaBaseDatos + ";Integrated Security=True")
conex.Open()
queryContar = "select count(*) from Temperaturas where Fecha BETWEEN Convert(DATETIME,'" + minDate + "', 103) AND Convert(DATETIME,'" + maxDate + "', 103)"
Dim Comm As SqlCommand = New SqlCommand(queryContar, conex)
If (Comm.ExecuteScalar() <> 0) Then
Dim lecturaPDF
Dim salto
Try
lecturaPDF = FormMain.TiempoLecturaPDF.LeerEntero.ToString()
salto = lecturaPDF / 5
Catch ex As Exception
salto = 1
End Try
Dim cmd As New SqlCommand("Select * from Temperaturas where id % " + salto.ToString + "=0 AND Fecha BETWEEN Convert(DATETIME,'" + minDate + "', 103) AND Convert(DATETIME,'" + maxDate + "', 103)", conex)
Dim drd As SqlDataReader = cmd.ExecuteReader(CommandBehavior.SingleResult)
Dim bs As New BindingSource
bs.DataSource = drd
datos.DataSource = bs
drd.Close()
Else
'Si hay 0 valores introduciré un valor. La siguiente vez que se ejecute esta función debería de pasar por el IF
IntroducirRegistrosTemp()
TablaDatosTemp()
End If
conex.Close()
Catch ex As Exception
'Si el intento es fallido, mostrar MsgBox y cerramos la aplicacion.
MessageBox.Show("No se pudo conectar con la DB.", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Warning)
formulario.Close()
Finally
conex.Dispose()
End Try
End Sub
Mi problema es que al hacer estas consultas en un futuro la base de datos puede tardar mucho en hacerlas. Y yo no quiero que tarde 10 segundos o 20 en leer datos en una gráfica. Tenéis alguna solución o consejo para solventar estos problemas?
(LocalDB)\MSSQLLocalDB
Eso es una cadena de conexión de una base de datos ligera de SQL Express. No obstante aunque no tuvieras una limitación de tamaño, en torno a los 10 Gigas, eso no es suficiente. Hay muchas cosas que se pueden hacer desde el mundo de las bases de datos, para optimizarlas. Pero a ese problema te tendrás que enfrentar a su debido tiempo. Pero seguro que es mucho más óptimo utilizar una instrucción de insert si no hay registros. Que contar y sino insertar. Eso son dos conexiones dos consultas. Insertar si no existe es 1 conexión.