Utilizzo di date in una query Structured Query Language (SQL) può essere fonte di confusione se non li avete mai usato. 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 relazionali, ma per i database locali. Spesso, c'è la necessità di risultati della query da una tabella utilizzando un intervallo di date. In pochi passi è possibile creare una query utilizzando un campo data da una tabella in SQL Server.

Istruzioni

1

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

2

Selezionare dal menu "Inserisci" e fare clic su "Modulo". Digitare il comando seguente per creare una nuova subroutine:

Private Sub querySQLDate()

Premere "Enter".

3

Digitare quanto segue per dichiarare le variabili:

Dim strSQL As String

Dim rst As Recordset

() Dim dbs As Database

Dim X As Integer

4

Digitare il comando seguente per impostare il vostro database e collegare la tabella "Ordini" del database Northwind in SQL Server:

Set dbs = CurrentDb

DoCmd.TransferDatabase acLink, "Database ODBC" _

"ODBC; DSN = LOCALE; LINGUA = noiinglese; DATABASE = Northwind ",

acTable, "ordini", "dbo. Ordini"

Modificare "ODBC; DSN = LOCAL" e immettere il nome del SQL Server DSN.

5

Digitare quanto segue per definire la query utilizzando il campo "DataRichiesta" e di mostrare solo il mese di agosto 1996:

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

strSQL = strSQL & "da dbo_Orders"

strSQL = strSQL & "dove (((dbo_Orders.RequiredDate) tra n # n. 8/1/1996 e il 31 agosto 1996 n.));"

6

Digitare quanto segue per scorrere in ciclo il Recordset e visualizzare le date attraverso una finestra di messaggio:

Set rst = dbs. OpenRecordset(strSQL)

RST. MoveLast

RST. MoveFirst

Per X = 0 To rst. RecordCount - 1

MsgBox rst.Fields("RequiredDate").Value

RST. MoveNext

Avanti X

Premere "F5" per eseguire la subroutine.