¿Cómo contar registros en visual basic 6?

Tengo una base de datos en access 2000 en la que hay un tabla de prestamos y uso conexión a ella con adodc.
Lo que quiero hacer es lo siguiente:
Mostrar en un label pero con números la cantidad registros del campo "fechaentrega" que sean iguales al día de hoy.
He probado con lo siguiente:

Dim con As Integer
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BCBD.mdb"
Adodc2.CursorType = adOpenDynamic
Adodc2.RecordSource = "préstamo"
Adodc2.Refresh


hoy = date

con = Adodc2.RecordSource = "select count (fechaentrega) from préstamo where (fechaentrega) like '" & hoy & "'"

label = con

Hago esto pero me muestra "0"
Nota: En la BD si hay registros con la fechaentrega de hoy

1 respuesta

Respuesta
1

Cuando queremos comparar fechas en un Select se utiliza el carácter # en lugar de la comilla, prueba de la siguiente forma :

con = Adodc2.RecordSource = "select count (fechaentrega) from préstamo

where (fechaentrega) like #" & hoy & "#""

Suerte !

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Botones de Opciones con Datagrid

Soy Juan Diego, estoy estudiando en la UTU estoy terminando el último año de informática, quede a examen con Programación por no haber terminado el proyecto y necesito mucha ayuda porque tengo bastantes errores y tengo una única oportunidad en...
1 respuesta

Filtrar datos combobox

Tengo un combobox en visual basic con el cual cargo los nombre de trabajadores de una base de datos, al ser una base de datos tan grandes, la lista pues es grande y entones quería hacer que conforme vaya escribiendo en el combobox letras, este vaya...
1 respuesta

Guardar desde varios formularios a única linea

Tengo tres formularios para guardar datos de una sola persona, el problema es que como son muchos datos, me toco crear tres formularios para poder llenar todos los datos.. Estoy utilizando como clave principal el numero de identifiacion del paciente,...
1 respuesta

Actualizar dataenvironment

Disculpa mi molestia, te quería realizar una consulta sobre la actualización de data environment. Resulta que tengo un formulario para confirmar la venta de un libro donde coloco el código del libro y la cantidad vendida para desminuir el stock. Mi...
1 respuesta

Llenar un DataGrid sin usar el Adodc

En un formulario tengo un control DataGrid para que al ejecutarse la aplicación me muestre un conjunto de registros. Al control ADODC no lo utilizo, realizo la conexión a la BD mediante código de programa. Bueno, resulta que cuando ejecuto la...
1 respuesta

Problema al abrir un recordset ADO

A ver, mi problema es que tengo el Visual Basic 6.0 y he creado una aplicación que maneja recordsets ADO, los cuales me dan bastantes problemas que poco a poco he ido resolviendo menos uno. Resulta que al iniciar la aplicación, creo una conexión a...
10 respuestas

Meter el resultado de una sql en un combobox

Vamos a lo que me preocupa, quisiera saber lo siguiente: Mi objetivo es crear un combobox, que en su listitem, me aparezca para seleccionar los distintos valores de una columna de una tabla access, la consulta sql seria la siguiente: combolst =...
1 respuesta

Error al llamar datos de una tabla

Tengo el Siguiente código: Private Sub cboObra_Click() cboAnticipoDirigidoA.Text = "" cboLegalizacionNo.Text = "" Set Con = New ADODB.Connection With Con .ConnectionString = "provider = microsoft.ace.oledb.12.0;data source=D:\PROYECTO TYT\TYT.accdb"...
2 respuestas

Datagrid s.o.s

Como estas estoy trabajando con vb6 y access 2000. Tengo una inquietud que es la siguiente. Tengo un formulario que me pide el código del estudiante y un datagrid que me muestra todo lo que tiene la tabla préstamo (codestudiante, codlibro, fecha) mi...
2 respuestas

Conectar con una Consulta Access

Esta es primera vez que le hago una consulta sobre el particular... Mi problema es el siguiente. Tengo una aplicación desarrollada con VB 6.0 y necesito accesar una Consulta de access. La consulta es el resultado de varios registros que se duplican...
1 respuesta