Använda datum på en Structured Query Language ( SQL ) fråga kan vara förvirrande om du aldrig har använt dem . Microsoft SQL Server är en relationsdatabas management system som används för stora databaser . Microsoft Access är också en relationsdatabas management system , men för mindre lokala databaser . Ofta finns det anledning att ifrågasätta resultaten från en tabell med ett datumintervall . I några få steg kan du skapa en fråga med hjälp av ett datum fält från en tabell i SQL Server . Saker du behöver
Microsoft Access 2007 Review Microsoft SQL Server 2000
Visa fler instruktioner
1
Starta Microsoft Office Access 2007 , välj " Tom databas " och klicka " Skapa ". Klicka på " Databas Verktyg " och välj " Visual Basic " för att öppna Microsoft Visual Basic .
2
Välj " Infoga " -menyn och klicka på " Modul . " Skriv följande för att skapa en ny subrutin : " . Ange "
Private Sub querySQLDate ( ) katalog
Press
3
Skriv följande för att förklara din variabler :
Dim strSQL As String
Dim rst Som Recordset
Dim dbs som databas
Dim x As Integer
4
Skriv följande för att ställa in din databas och länka den " beställningar " tabellen från Northwind databasen i SQL Server :
Set dbs = CurrentDb
DoCmd.TransferDatabase acLink , " ODBC Database " , _
" ODBC , DSN = lokal , LANGUAGE = us_english ; DATABASE = Northwind " , _
acTable , "Order " , " dbo.Orders "
Redigera " ODBC , DSN = LOCAL " och skriv in namnet på din SQL Server DSN
5
skriv följande för att definiera din fråga använder . " RequiredDate " fältet och för att visa enbart augusti månad , 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 ) Mellan # 1996/08/01 # och # 1996/08/31 # ) ) ; "
6
Skriv följande för att slinga genom din Recordset och display datum genom en meddelanderuta :
Set rst = dbs.OpenRecordset ( strSQL ) katalog
rst.MoveLast
rst.MoveFirst
För X = 0 till RST . RecordCount - . 1
MsgBox rst.Fields ( " RequiredDate " ) Value
rst.MoveNext
Nästa X Review
Tryck " F5 " för att köra din subrutin .
