Come utilizzare le date in un Access query SQL Server

November 19

Come utilizzare le date in un Access query SQL Server


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.


Articoli Correlati