|
utilisation de dates dans un langage de requêtes ( SQL) Structured Query peuvent être source de confusion si vous n'avez jamais utilisé . Microsoft SQL Server est un système de gestion de base de données relationnelle utilisée pour les grandes bases de données. Microsoft Access est également un système de gestion de base de données relationnelle , mais pour les petites bases de données locales . Souvent , il ya la nécessité d'interroger les résultats d'une table en utilisant une plage de dates . En quelques étapes, vous pouvez créer une requête en utilisant un champ de date d'une table dans SQL Server. Les choses dont vous aurez besoin
Microsoft Access 2007
Microsoft SQL Server 2000
Show More Instructions
1 Démarrer Microsoft Office Access 2007 , sélectionnez « Base de données vide " et cliquez sur "Créer". Cliquez sur " Database Tools " puis sélectionnez " Visual Basic " pour ouvrir Microsoft Visual Basic.
2 Sélectionnez le menu "Insertion " et cliquez sur "Module ". Tapez la commande suivante pour créer un nouveau sous-programme : " Entrée".
QuerySQLDate Private Sub ()
de presse
3 Tapez la commande suivante pour déclarer votre variables:
strSQL Dim As String
rst As Recordset
Dim dbs As Database
Dim X As Integer
4 < p> Tapez la commande suivante pour configurer votre base de données et le lien du tableau " commandes" à partir de la base de données Northwind dans SQL Server :
Set dbs = CurrentDb
DoCmd.TransferDatabase acLink , "Base de données ODBC " , _
" ODBC ; DSN = LOCAL ; LANGUAGE = us_english ; DATABASE = Northwind ", _
acTable , "Commandes ", " dbo.Orders "
Modifier " ODBC , DSN = local "et entrez le nom de votre DSN SQL Server
5 type de ce qui suit pour définir votre requête en utilisant le . " champ RequiredDate " et de montrer que le mois d' Août 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 ) Entre # 01/08/1996 # et # 31/08/1996 #) ) ; "
6 Tapez la commande suivante pour parcourir votre jeu d'enregistrements et l'affichage des dates à travers une boîte de message :
Set rst = dbs.OpenRecordset ( strSQL )
rst.MoveLast
rst.MoveFirst
Pour X = 0 à la TVD . RecordCount - 1.
MsgBox rst.Fields ( " RequiredDate " ) Valeur
rst.MoveNext
Suivant X
Appuyez sur " F5 " pour exécuter votre routine .
|
