Microsoft Access 2007
Microsoft SQL Server 2000
Ver Más instrucciones
1
Inicio Microsoft Office Access 2007 , seleccione "Base de datos en blanco" y haga clic en " Crear". Haga clic en "Herramientas de base de datos" y seleccione "Visual Basic " para abrir Microsoft Visual Basic .
2
Seleccione el menú "Insertar" y haga clic en " módulos". Escriba lo siguiente para crear un nuevo subprograma: " . Escriba"
querySQLDate Sub Private ()
Press
3
Escriba lo siguiente para declarar su variables:
strSQL As String Dim
rst As Recordset
Dim dbs como base de datos
Dim X As Integer
4 < p > Escriba el siguiente para establecer su base de datos y enlace de la tabla "Orders " de la base de datos Northwind de SQL Server :
Set dbs = CurrentDb
DoCmd.TransferDatabase acLink , "Base de datos ODBC" , _
"ODBC ; DSN = LOCAL; LANGUAGE = us_english ; BASE DE DATOS = Northwind ", _
acTable , "Pedidos ", " dbo.Orders "
Editar "ODBC ; DSN = LOCAL " y escriba el nombre de su DSN SQL Server
5
escriba lo siguiente para definir su consulta mediante el . " campo RequiredDate " y mostrar sólo el mes de agosto de 1996 :
strSQL = "SELECT dbo_Orders.CustomerID , dbo_Orders.EmployeeID , dbo_Orders.OrderDate , dbo_Orders.RequiredDate "
strSQL = strSQL & " DE dbo_Orders "
strSQL = strSQL & " WHERE ( ( ( dbo_Orders.RequiredDate ) Entre # 8/1/1996 # Y # 31/08/1996 #) ) ; "
6
Escriba lo siguiente para recorrer el conjunto de registros y la presentación de las fechas a través de un cuadro de mensaje :
Set rst = dbs.OpenRecordset ( strSQL )
rst.MoveLast
rst.MoveFirst
Para X = 0 a primera . RecordCount - . 1
rst.Fields MsgBox ( " RequiredDate " ) Valor
rst.MoveNext
Siguiente X
Press "F5 " para ejecutar la subrutina .