Avviare Microsoft Office Access 2007 , selezionare " Database vuoto " e fare clic su "Crea ". Fare clic su "Strumenti database" e selezionare " Visual Basic " per aprire Microsoft Visual Basic . 
 2 
 Selezionare il menu "Inserisci" e fare clic su "Modulo ". Digitare quanto segue per creare un nuovo sottoprogramma : " . Inserire" 
 
querySQLDate Private Sub ( ) per
 Press 
 3 
 digitare quanto segue per dichiarare il vostro variabili: 
 
 Dim strSQL As String 
 
 Dim rst come Recordset 
 
 Dim dbs As Database 
 
 Dim X As Integer 
 4 
 Digitare quanto segue per impostare il database e il link del "Ordini" tabella del database Northwind di SQL Server : 
 
 Set dbs = CurrentDb 
 
 DoCmd.TransferDatabase acLink , "Database ODBC " , _ 
 
 "ODBC ; DSN = LOCALE ; LANGUAGE = us_english ; DATABASE = Northwind " , _ 
 
 rappresentabile , "Ordini " , " dbo.Orders " 
 
 Modifica " ODBC , DSN = LOCAL " e immettere il nome del server DSN di SQL 
 5 
 digitare il seguente per definire la query utilizzando il . " campo RequiredDate "e per mostrare solo il mese di agosto , 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 ) Between # 1996/08/01 # e # 1996/08/31 # ) ) ; " 
 6 
 Digitare quanto segue al ciclo attraverso il vostro Recordset e la visualizzazione delle date attraverso una finestra di messaggio : 
 
Set rst = dbs.OpenRecordset ( strSQL ) per
 rst.MoveLast 
 
 rst.MoveFirst 
 
 For X = 0 To RST . RecordCount - . 1 
 
 rst.Fields MsgBox ( " RequiredDate " ) Valore 
 
 rst.MoveNext 
 
 Avanti X 
 
 Premere " F5 " per eseguire il tuo 
 
 subroutine .
              
Programmazione © www.354353.com