Gebruik van data in een Structured Query Language ( SQL ) query kan verwarrend zijn als je ze nog nooit hebt gebruikt . Microsoft SQL Server is een relationeel database management systeem dat wordt gebruikt voor grote databases . Microsoft Access is een relationele database management systeem , maar voor kleinere lokale databases . Vaak is er de noodzaak om resultaten te bevragen vanuit een tabel met een datumbereik . In een paar stappen kunt u een query met een datum veld uit een tabel in SQL Server te bouwen . Wat je nodig hebt
Microsoft Access 2007
Microsoft SQL Server 2000
Toon Meer Aanwijzingen
1 Start Microsoft Office Access 2007 , kiest u " Lege database " en klik op "Create . " Klik op " Database Tools" en selecteer " Visual Basic " te openen Microsoft Visual Basic . Kopen van 2 Selecteer in het menu "Invoegen " en klik op "Module . " Typ het volgende om een nieuwe subroutine maken: " . Enter" Private Sub querySQLDate
( ) Pers
3 Typ het volgende te verklaren uw variabelen : Dim strSQL
als Koord Dim rst
als Recordset
Dim dbs als Database Dim X
als Geheel
4 < set dbs = CurrentDb
DoCmd.TransferDatabase acLink , " ODBC Database "
, : p > Typ het volgende om uw database en schakel de "Orders " tabel uit de database Noordenwind in SQL Server instellen _
" ODBC ; DSN = LOCAL ; TAAL = us_english ; DATABASE = Noordenwind " , _
actable , "Orders " , " dbo.Orders "
bewerken " ODBC ; DSN = LOCAL " en voer de naam van uw SQL Server- DSN
5 Typ het volgende op uw vraag met behulp van de te definiëren . " veld Vervaldatum " en alleen de maand augustus 1996 tonen : < br > 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 # 1996/08/01 # And # 1996/08/31 # ) ) ; "
Type 6 de volgende voor het doorlussen van uw Recordset en weergave van de data door middel van een bericht :
Set rst = dbs.OpenRecordset ( strSQL ) rst.MoveLast
rst.MoveFirst
Voor X = 0 Om rst . RecordCount - 1
MsgBox rst.Fields ( " Vervaldatum " ) Value rst.MoveNext
Volgende X Druk op " F5 "
te voeren . uw subroutine .
|
