di date in una query di query linguaggio strutturato ( SQL ) possono essere fonte di confusione se non avete mai usato loro . Microsoft SQL Server è un sistema di gestione di database relazionale utilizzato per database di grandi dimensioni . Microsoft Access è anche un sistema di gestione di database relazionale , ma per i database locali più piccole . Spesso , c'è la necessità di interrogare i risultati da una tabella utilizzando un intervallo di date . In pochi passi è possibile creare una query con un campo data da una tabella in SQL Server . Cose che ti serviranno
Microsoft Access 2007
Microsoft SQL Server 2000
Mostra più istruzioni
1

Avviare Microsoft Office Access 2007 , selezionare " Database vuoto " e fare clic su "Crea ". Fare clic su "Strumenti database" e selezionare " Visual Basic " per aprire Microsoft Visual Basic .
2

Selezionare il menu "Inserisci" e fare clic su "Modulo ". Digitare quanto segue per creare un nuovo sottoprogramma : " . Inserire"

querySQLDate Private Sub ( ) per

Press
3

digitare quanto segue per dichiarare il vostro variabili:

Dim strSQL As String

Dim rst come Recordset

Dim dbs As Database

Dim X As Integer
4 < p > Digitare quanto segue per impostare il database e il link del "Ordini" tabella del database Northwind di SQL Server :

Set dbs = CurrentDb

DoCmd.TransferDatabase acLink , "Database ODBC " , _

"ODBC ; DSN = LOCALE ; LANGUAGE = us_english ; DATABASE = Northwind " , _

rappresentabile , "Ordini " , " dbo.Orders "

Modifica " ODBC , DSN = LOCAL " e immettere il nome del server DSN di SQL
5

digitare il seguente per definire la query utilizzando il . " campo RequiredDate "e per mostrare solo il mese di agosto , 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 ) Between # 1996/08/01 # e # 1996/08/31 # ) ) ; "
6

Digitare quanto segue al ciclo attraverso il vostro Recordset e la visualizzazione delle date attraverso una finestra di messaggio :

Set rst = dbs.OpenRecordset ( strSQL ) per

rst.MoveLast

rst.MoveFirst

For X = 0 To RST . RecordCount - . 1

rst.Fields MsgBox ( " RequiredDate " ) Valore

rst.MoveNext

Avanti X

Premere " F5 " per eseguire il tuo

subroutine .