Usando datas em Structured Query Language (SQL) consulta pode ser confuso se você nunca usou -los. Microsoft SQL Server é um sistema de gerenciamento de banco de dados relacional usado para grandes bancos de dados. Microsoft Access também é um sistema de gerenciamento de banco de dados relacional , mas para bancos de dados locais menores. Muitas vezes , há a necessidade de consultar os resultados de uma tabela usando um intervalo de datas . Em poucos passos , você pode construir uma consulta usando um campo de data de uma tabela no SQL Server. Coisas que você precisa
Microsoft Access 2007
Microsoft SQL Server 2000
Show Mais instruções
1

Inicie o Microsoft Office Access 2007, selecione "Banco de Dados em Branco " e clique em " Criar". Clique em "Ferramentas de banco de dados " e selecione " Visual Basic" para abrir o Microsoft Visual Basic.
2

Selecione o menu "Inserir" e clique em " Módulo ". Digite o seguinte para criar uma nova sub-rotina :

Private Sub querySQLDate ()

Pressione " Enter".
3

Digite o seguinte para declarar o seu variáveis ​​:

Dim strSQL As String

Dim rst Como Recordset

Dim dbs As Database

Dim X As Integer
4

Digite o seguinte para definir o seu banco de dados e vincular a tabela " Orders" do banco de dados Northwind no SQL Server :

set dbs = CurrentDb

DoCmd.TransferDatabase acLink , "Banco de dados ODBC" , _

" ODBC ; DSN = LOCAL ; LANGUAGE = us_english ; DATABASE = Adamastor ", _

acTable , "Pedidos ", " dbo.Orders "

Editar "ODBC , DSN = LOCAL " e digite o nome do seu DSN SQL Server
5

digite o seguinte para definir sua consulta usando o ". campo RequiredDate " e mostrar apenas o mês de agosto de 1996 :

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

strSQL = strSQL & "FROM dbo_Orders "

strSQL = strSQL & " WHERE ( ( ( dbo_Orders.RequiredDate ) Entre # 1996/08/01 # e # # 1996/08/31 ) ); "
6

Digite o seguinte para percorrer o conjunto de registros e exibir as datas através de uma caixa de mensagem:

Set rst = dbs.OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Para X = 0 para RST . RecordCount - 1.

MsgBox rst.Fields ( " RequiredDate " ) Valor

rst.MoveNext

Próxima X

Pressione " F5 " para executar sua sub-rotina .