Sección de códigos , trucos y ejemplos para visual basic

356 - Ejemplo simple para ejecutar una sentencia Sql usando el operador Between

Este código de ejemlpo muy sencillo , utiliza el operador Between de sql para traer un conjunto de registros entre un intervalo de fechas

Las fechas se seleccionan por medio de dos controles DtPicker. El Dtpicker 1 es para la fecha inicial, y el DtPicker 2 para fecha final

El conjunto de registros obtenidos, luego se visualizan en un control Microsoft Hierarchical Flexgrid

Nota: el ejemplo utiliza la base de datos Nwind del directorio de visual basic.

La tabla que se utiliza es la tabla "Empleados", y el campo de fecha usado en la consulta Sql es "FechadeNacimiento" de dicha tabla.

Controles y referencias

Un control dtPicker ( DtPicker1 ) para la fecha inicial
Un control dtPicker ( DtPicker2 ) para la fecha final
Un Hierarchical FlexGrid
La referencia de Ado ( Microsoft Activex data objects xx)
Un Command1 para ejecutar el sql y cargar los registros en el Flex

Código fuente en el formulario

Option Explicit ' variable para la conexión ado Dim Cn As ADODB.Connection Private Sub Command1_Click() Dim sql As String Dim Fecha_Inicial As String Dim Fecha_Final As String ' Intervalo para las fechas Fecha_Inicial = DTPicker1.Value Fecha_Final = DTPicker2.Value ' Cadena Sql sql = "Select * From empleados WHERE " & _ "FechaNacimiento Between " & _ "# " + Fecha_Inicial + " # And # " + Fecha_Final + " #" ' carga el FlexGRid Set MSHFlexGrid1.DataSource = Cargar_Registros(sql, Cn) End Sub ' Función que devuelve un objeto recordset con los datos '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function Cargar_Registros(sql As String, _ Conexion As ADODB.Connection) As Recordset Dim Rs As ADODB.Recordset ' nuevo recordset Set Rs = New ADODB.Recordset ' Lo abre Rs.Open sql, Conexion ' retorna a la función el conjunto de registros Set Cargar_Registros = Rs End Function Private Sub Form_Load() ' nuevo Connection Set Cn = New ADODB.Connection ' cadena de conexión Cn.CursorLocation = adUseClient Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Archivos de program" & _ "a\Microsoft Visual Studio\VB98\NWIND." & _ "MDB;Persist Security Info=False" ' Abre la conexión Cn.Open Command1.Caption = " Traer conjunto de registros " DTPicker1.Value = "01/01/1960" End Sub

Nota: si se quiere formatear la fecha para que el formato en ves de ser "dd/mm/yyyy", sea "mm/dd/yyyy", se puede usar la función Format :

Dim Fecha As String

Fecha = Format(DTPicker1, "mm/dd/yyyy")

MsgBox Fecha

Recursos Visual basic 6.0 - Relacionados

Buscar en Recursos vb