Microsoft Office Access es un sistema de gestión de base de datos relacional de uso común para las bases de datos más pequeñas y locales. El acceso está incluido en el paquete de Microsoft Office y proporciona todas las herramientas necesarias para gestionar una base de datos relacional. Una consulta se utiliza para recuperar información de las tablas de base de datos. números de extraer de una consulta de Access se consigue la misma forma que lo haría extraer otros tipos de datos. Una forma de extraer los datos es mediante el uso de Visual Basic para Aplicaciones. En unos pocos pasos, se puede escribir código VBA, extraer los números de una consulta, y los muestra en la ventana de resultados.
Instrucciones
1 Abra la base de datos Neptuno Microsoft Office Access. La base de datos Northwind se incluye en el paquete de Microsoft Office.
2 Haga clic en "Herramientas de base de datos", a continuación, seleccione "Visual Basic" para abrir la ventana de Visual Básico Microsoft. Haga clic en el menú "Insertar" y seleccione "Módulo".
3 Copia y pega el código siguiente en el nuevo módulo para consultar el "productos" mesa y extraer los números en el campo "Nivel de Reabastecimiento" mayor que 15:
extractNumbers Private Sub ()
Dim como secuencia strSQL
Dim primera medida de registros
DBS dévil como Base de Datos
Set dbs = CurrentDb
strSQL = "SELECT productos. [Nombre], los productos. [Nivel Reordenar]"
strSQL = strSQL y "FROM Productos"
strSQL = strSQL & "WHERE (((productos [Nivel Reordenar])> 15).);"
Establecer primera = dbs.OpenRecordset (strSQL)
rst.MoveLast
rst.MoveFirst
Debug.Print "punto de pedido> 15:"
Aunque no hacer rst.EOF
Debug.Print "Product Name:" & rst.Fields(0).Value
Debug.Print ""
Debug.Print "Número de pedido Nivel:" & rst.Fields (1) .Value
rst.MoveNext
Lazo
End Sub