Microsoft Office Access
Northwind base de datos
Mostrar más instrucciones
1
Abra la base de datos Access Northwind de Microsoft Office. La base de datos Northwind se incluye en la suite de Microsoft Office.
2 Haga clic en " Herramientas de base de datos ", seleccione "Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el menú "Insertar " y seleccione "Módulo ".
3
Copia y pega el siguiente código en el nuevo módulo para consultar la tabla "Productos" y extraer los números de la " Reorganización campo de nivel " superior a 15 :
extractNumbers Private Sub ( ) guía
strSQL As String Dim
rst As Recordset
Dim dbs como base de datos
Set dbs = CurrentDb
strSQL = " SELECT productos . [ Nombre del producto ] , Productos. [Reordenar nivel] "
strSQL = strSQL & " FROM Productos "
< p> strSQL = strSQL & " WHERE ( ( ( productos. [Reordenar nivel] ) > 15 )); "
Set rst = dbs.OpenRecordset ( strSQL )
rst.MoveLast
rst.MoveFirst
Debug.Print " Nivel de Reabastecimiento > 15 : "
Do While Not rst.EOF
Debug.Print "Nombre del producto: " y rst.Fields ( 0 ) Valor
Debug.Print ". "
Debug.Print " reorden Nivel : " . y rst.Fields ( 1 ) Valor
< p > rst.MoveNext
Loop End Sub