Bruke datoer i en Structured Query Language ( SQL) spørring kan være forvirrende hvis du aldri har brukt dem . Microsoft SQL Server er en relasjonell database management system som brukes for store databaser . Microsoft Access er også en relasjonell database management system , men for mindre lokale databaser. Ofte er det behov for å spørre resultater fra en tabell ved hjelp av et datointervall . I noen få trinn kan du bygge en spørring ved hjelp av en dato felt fra en tabell i SQL Server. Du trenger:
Microsoft Access 2007
Microsoft SQL Server 2000
Vis flere instruksjoner
en

start Microsoft Office Access 2007 , velger du " Blank Database " og klikk "Create ". Klikk "Database Verktøy" og velg " Visual Basic " for å åpne Microsoft Visual Basic.
2

Velg " Insert"-menyen og klikk " Module ". Skriv inn følgende for å opprette en ny subrutine : " . Enter"

Private Sub querySQLDate ( )

Trykk
3

Skriv inn følgende for å erklære din variabler:

Dim strSQL As String

Dim rst Som Recordset

Dim dBS Som Database

Dim X As Integer
4 < p> Skriv inn følgende for å sette din database og link på " Orders" tabellen fra Northwind database i SQL Server : en

Set dBS = CurrentDb

DoCmd.TransferDatabase acLink , " ODBC database" , _

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

actable , " Orders" , " dbo.Orders "

Rediger " ODBC ; DSN = LOKAL "og skriv inn navnet på SQL Server DSN
5

skriv inn følgende for å definere ditt ved å bruke den . " Leveringsdato "-feltet og for å vise bare august måned , 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 # 8/1/1996 # And # 8/31/1996 #) ) ; "
6

Skriv inn følgende for å sløyfe gjennom Recordset din og vise datoene gjennom en meldingsboks : en

Sett rst = dbs.OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

For X = 0 Til rst . RecordCount - . 1

MsgBox rst.Fields ( " Leveringsdato ") Verdi

rst.MoveNext

Neste X

Trykk " F5 " for å utføre din subrutine .