Hvordan bruke Datoer i en Access-spørring SQL Server

Ved hjelp av datoene i en Structured Query Language (SQL) spørring kan være forvirrende hvis du aldri har brukt dem. Microsoft SQL Server er en relasjonsdatabase management system brukes for store databaser. Microsoft Access er også en relasjonsdatabase 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 et datofelt fra en tabell i SQL Server.

Bruksanvisning

1 Start Microsoft Office Access 2007, velger du "Blank Database" og klikk "Opprett". Klikk "Database Verktøy" og velg "Visual Basic" for å åpne Microsoft Visual Basic.

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

Private Sub querySQLDate ()

Trykk enter."

3 Skriv inn følgende å erklære variabler:

Dim strSQL As String

Dim rst As Recordset

Dim dbs som database

Dim x As Integer

4 Skriv inn følgende for å sette databasen og koble "Orders" tabell fra Northwind database i SQL Server:

Sett dbs = CurrentDb

DoCmd.TransferDatabase acLink, "ODBC database", _

"ODBC, DSN = LOKAL; language = oss

engelsk; DATABASE = Northwind",

acTable, "ordre", "dbo.Orders"

Edit "ODBC, DSN = LOKAL" og skriv inn navnet på SQL Server DSN.

5 Skriv inn følgende for å definere søket ved hjelp av "RequiredDate" -feltet og å vise bare august måned 1996:

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

strSQL = strSQL & "Fra dbo_Orders"

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

6 Skriv inn følgende å sløyfe gjennom Recordset og vise dato gjennom en meldingsboks:

Sett rst = dbs.OpenRecordset (strSQL)

rst.MoveLast

rst.MoveFirst

For X = 0 For å rst.RecordCount - 1

MsgBox rst.Fields("RequiredDate").Value

rst.MoveNext

Neste X

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