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