INTRODUCCION:
Las tablas temporales son una excelente solucion cuando nuestros datos estan siendo enlazados de bases de datos externas, esto por lo regular provoca un proceso lento ya que cada vez que nuestra aplicacion abre o ejecuta alguna accion, inmediatamente "jalara" los datos enlazados desde su origen, provocando que nuestra aplicacion sea lenta.
LA SOLUCION
Si nuestra aplicacion requiere de datos que estan en bases de datos externas, podemos crear en nuestro codigo una sentencia SQL para extraer temporalmente esos datos a nuestra bd y hacer que nuestras consultas sean mas rapidas. Asi no se estaran "jalando" los datos externos en cada accion, si no solo cuando sean estos requeridos.
EJEMPLO:
Public Function TmpTbl_Alumnos()
On Error GoTo ErrorHandler
Dim strSQL As String
Dim strTable As String
strTable = "TmpTblAlumos"
'Borrar la tabla si existe
DoCmd.DeleteObject acTable, strTable
strSQL = "Select * INTO " & strTable & " FROM Alumnos"
CurrentDb.Execute strSQL
'Insertar mas codigo Aqui para hacer algo con la tabla temporal
Exit Function
ErrorHandler:
If Err.Number = 7874 Then
Resume Next 'Trato de Borrar una tabla no existente, regresar
End If
End Function
Las tablas temporales son una excelente solucion cuando nuestros datos estan siendo enlazados de bases de datos externas, esto por lo regular provoca un proceso lento ya que cada vez que nuestra aplicacion abre o ejecuta alguna accion, inmediatamente "jalara" los datos enlazados desde su origen, provocando que nuestra aplicacion sea lenta.
LA SOLUCION
Si nuestra aplicacion requiere de datos que estan en bases de datos externas, podemos crear en nuestro codigo una sentencia SQL para extraer temporalmente esos datos a nuestra bd y hacer que nuestras consultas sean mas rapidas. Asi no se estaran "jalando" los datos externos en cada accion, si no solo cuando sean estos requeridos.
EJEMPLO:
Public Function TmpTbl_Alumnos()
On Error GoTo ErrorHandler
Dim strSQL As String
Dim strTable As String
strTable = "TmpTblAlumos"
'Borrar la tabla si existe
DoCmd.DeleteObject acTable, strTable
strSQL = "Select * INTO " & strTable & " FROM Alumnos"
CurrentDb.Execute strSQL
'Insertar mas codigo Aqui para hacer algo con la tabla temporal
Exit Function
ErrorHandler:
If Err.Number = 7874 Then
Resume Next 'Trato de Borrar una tabla no existente, regresar
End If
End Function
No hay comentarios.:
Publicar un comentario