Utilizzando le date in una query Structured Query Language (SQL) può essere fonte di confusione se non avete mai usato loro. Microsoft SQL Server è un sistema di gestione di database relazionale utilizzato per le grandi basi di dati. Microsoft Access è anche un sistema di gestione di database relazionale, ma per i database locali più piccoli. Spesso, c'è la necessità di interrogare i risultati di un tavolo con un intervallo di date. In pochi passi si può costruire una query utilizzando un campo data da una tabella in SQL Server.

istruzione

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

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

Private Sub querySQLDate ()

Premere Invio."

3 Digitare la seguente per dichiarare le variabili:

Dim strSQL As String

Dim rst come Recordset

DBS fiochi come database

Dim X As Integer

4 Digitare la seguente per impostare il database e collegare la tabella "Ordini" dal database Northwind in SQL Server:

Set dbs = CurrentDb

DoCmd.TransferDatabase acLink, "database ODBC", _

"ODBC; DSN = LOCALE; LANGUAGE = noi

inglese; DATABASE = Northwind",

rappresentabile, "Ordini", "dbo.Orders"

Modifica "ODBC; DSN = LOCALE" ed inserire il nome del DSN SQL Server.

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 & "DA dbo_Orders"

strSQL = strSQL & "WHERE (((dbo_Orders.RequiredDate) Tra # 8/1/1996 # e # 8/31/1996 #));"

6 Digitare quanto segue al ciclo attraverso il vostro recordset e visualizzare le date attraverso una finestra di messaggio:

Set rst = dbs.OpenRecordset (strSQL)

rst.MoveLast

rst.MoveFirst

Per X = 0 Per rst.RecordCount - 1

MsgBox rst.Fields("RequiredDate").Value

rst.MoveNext

Successivo X

Premere il tasto "F5" per eseguire la subroutine.