Mit Datum in einem Structured Query Language (SQL) Abfrage kann verwirrend sein, wenn Sie sie noch nie benutzt haben. Microsoft SQL Server ist ein relationales Datenbank -Management-System für große Datenbanken verwendet. Microsoft Access ist auch eine relationale Datenbank -Management-System , aber für kleinere lokale Datenbanken . Oft gibt es die Notwendigkeit, Ergebnisse aus einer Tabelle mit einem Datumsbereich abzufragen. In wenigen Schritten können Sie eine Abfrage erstellen, mit einem Datumsfeld aus einer Tabelle in SQL Server. Was Sie brauchen
Microsoft Access 2007
Microsoft SQL Server 2000
Weitere Anweisungen anzeigen
1
Starten Sie Microsoft Office Access 2007 , wählen Sie " Leere Datenbank " und klicken " erstellen". Klicken Sie auf " Database Tools " und wählen Sie " Visual Basic " zu öffnen Microsoft Visual Basic.
2
Wählen Sie das Menü "Einfügen" und klicken Sie auf "Module ". Geben Sie den folgenden , um eine neue Subroutine erstellen : " . Geben Sie "
Private Sub querySQLDate ()
Press
3
Geben Sie den folgenden zu erklären, Ihre Variablen : Dim strSQL
As String Dim rst
Als Recordset Dim dbs
As Database Dim
X As Integer
4 < p> Geben Sie den folgenden , um Ihre Datenbank und Verknüpfung der "Bestellungen" -Tabelle aus der Northwind-Datenbank in SQL Server:
Set dbs = CurrentDb
DoCmd.TransferDatabase ACLink , " ODBC -Datenbank" , _
" ODBC; DSN = LOCAL ; LANGUAGE = us_english ; DATABASE = Northwind ", _
acTable , "Bestellungen ", " dbo.Orders "
bearbeiten " ODBC ; DSN = LOCAL " und geben Sie den Namen Ihres SQL Server DSN
5
geben Sie den folgenden auf Ihre Anfrage über das zu definieren. " RequiredDate "-Feld und nur den Monat August 1996 zeigen :
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 ) Zwischen # 1996.08.01 # und # 1996.08.31 #)) ; "
6
Geben Sie den folgenden in einer Schleife durch Ihre Anzeige Recordset und die Termine durch eine Message-Box :
rst = dbs.OpenRecordset ( strSQL )
rst.MoveLast
rst.MoveFirst
Für X = 0 To Set rst . RecordCount - . 1 of
MsgBox rst.Fields ( " RequiredDate " ) Wert
rst.MoveNext
Weiter X
Presse "F5" ausführen Ihr Unterprogramm .