base de datos Northwind 2007
Ver Más instrucciones
1
lanzamiento Access 2007 , haga clic en "Base de datos en blanco ", y luego haga clic en el botón "Crear" . Seleccionar "Herramientas de base de datos" y haga clic en "Visual Basic ".
2
Crear un nuevo procedimiento escribiendo el siguiente código:
queryDatabase Sub Private ()
Página 3
crear tres nuevas variables , escriba el siguiente código de VBA :
rst As Recordset
Dim dbs como base de datos
sqlstr Dim As String
Página 4
Definir la base de datos que va a consultar introduciendo el siguiente código:
Set dbs = OpenDatabase ("C: \\ Northwind 2007.accdb ")
5 < p > Crear una cadena SQL , escriba el siguiente código para crear una consulta :
sqlstr = " . . órdenes SELECT [Nombre del barco ] , órdenes [Ship dirección] "
sqlstr = sqlstr y "FROM Orders"
sqlstr = sqlstr & " GROUP BY órdenes [Nombre del barco ], órdenes [Ship Dirección ], . ".
6
Copia y pega el siguiente código para abrir la consulta a través de un " conjunto de registros " y mostrar los resultados en la ventana Inmediato :
Set rst = dbs.OpenRecordset ( sqlstr )
rst.MoveLast
rst.MoveFirst
Do While Not rst.EOF
Debug.Print rst.Fields ( " nave ") . Valor
Debug.Print rst.Fields ( " Ship Dirección ") . Valor
rst.MoveNext
Loop
7
final del procedimiento , escriba el siguiente código:
rst.Close
< p > dbs.Close
End Sub