Fechas Uso en un lenguaje de consulta estructurado de consultas (SQL ) puede ser confuso si nunca los has utilizado . Microsoft SQL Server es un sistema de gestión de base de datos relacional utilizada para grandes bases de datos . Microsoft Access es también un sistema de gestión de base de datos relacional , pero para bases de datos locales más pequeños . A menudo , existe la necesidad de consultar los resultados en una tabla utilizando un intervalo de fechas . En pocos pasos se puede crear una consulta con un campo de fecha de una tabla de SQL Server. Cosas que necesitará
Microsoft Access 2007
Microsoft SQL Server 2000
Ver Más instrucciones
1

Inicio Microsoft Office Access 2007 , seleccione "Base de datos en blanco" y haga clic en " Crear". Haga clic en "Herramientas de base de datos" y seleccione "Visual Basic " para abrir Microsoft Visual Basic .
2

Seleccione el menú "Insertar" y haga clic en " módulos". Escriba lo siguiente para crear un nuevo subprograma: " . Escriba"

querySQLDate Sub Private ()

Press
3

Escriba lo siguiente para declarar su variables:

strSQL As String Dim

rst As Recordset

Dim dbs como base de datos

Dim X As Integer
4 < p > Escriba el siguiente para establecer su base de datos y enlace de la tabla "Orders " de la base de datos Northwind de SQL Server :

Set dbs = CurrentDb

DoCmd.TransferDatabase acLink , "Base de datos ODBC" , _

"ODBC ; DSN = LOCAL; LANGUAGE = us_english ; BASE DE DATOS = Northwind ", _

acTable , "Pedidos ", " dbo.Orders "

Editar "ODBC ; DSN = LOCAL " y escriba el nombre de su DSN SQL Server
5

escriba lo siguiente para definir su consulta mediante el . " campo RequiredDate " y mostrar sólo el mes de agosto de 1996 :

strSQL = "SELECT dbo_Orders.CustomerID , dbo_Orders.EmployeeID , dbo_Orders.OrderDate , dbo_Orders.RequiredDate "

strSQL = strSQL & " DE dbo_Orders "

strSQL = strSQL & " WHERE ( ( ( dbo_Orders.RequiredDate ) Entre # 8/1/1996 # Y # 31/08/1996 #) ) ; "
6

Escriba lo siguiente para recorrer el conjunto de registros y la presentación de las fechas a través de un cuadro de mensaje :

Set rst = dbs.OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Para X = 0 a primera . RecordCount - . 1

rst.Fields MsgBox ( " RequiredDate " ) Valor

rst.MoveNext

Siguiente X

Press "F5 " para ejecutar la subrutina .