Visual Basic 6.0 y sentencia SQL

[Percy2016]

Hola a todos, solicito puedan ayudarme,quizás es algo simple pero que me a dado dolor de cabeza el no saber como, la idea es CONTAR un rango de fechas desde el 30-05-2016 al 02-06-2016, tengo solo una tabla y 4 campos, que al final debe darme 29 Números de contratos ingresados. correcto?
Nº Contrato,Nombre,Fecha, Time

292325   EVA SANTOS                      30/05/2016         1:12:43 PM
291418   RAFAEL CARRANZA              30/05/2016        4:01:31 PM
292559   IVAN ARAYA                      30/05/2016           4:01:51 PM
290063   CRISTIAN TAPIA             30/05/2016         4:02:07 PM
286492   VICTOR BUENO              30/05/2016      4:02:30 PM
290930   PAMELA ARROYO             30/05/2016       4:00:38 PM
292136   PAMELA DINAMARCA      30/05/2016      1:13:22 PM
289979   CONSTANZA BAHAMONDE 30/05/2016       4:01:13 PM
292129   PAMELA DINAMARCA      30/05/2016       1:12:57 PM
289985   ANDRES ARAYA              30/05/2016       1:12:26 PM
292580   SERGIO LEFORT              31/05/2016       12:15:09 PM
292427   CONSTANZA BAHAMONDE 31/05/2016      12:12:47 PM
291452   LUISA CRUZ                     31/05/2016      12:13:06 PM
291454   LUISA CRUZ                    31/05/2016      12:13:27 PM
290768   IVAN ARAYA                    31/05/2016     12:15:23 PM
291853   JEANNETTE CUADRA   31/05/2016      12:14:21 PM
290273   ANA BETANCUR         31/05/2016      12:15:37 PM
290642   LUISA CRUZ                31/05/2016      12:15:53 PM
291857   NELIDA CABRERA        31/05/2016     12:13:52 PM
286491   VICTOR BUENO       02/06/2016             11:14:19 AM
292422   MARGARITA LEON       02/06/2016         11:14:59 AM
292326   RUTH VALENZUELA      02/06/2016        11:13:08 AM
292329   RUTH VALENZUELA      02/06/2016      11:13:58 AM
291748   RUTH VALENZUELA     02/06/2016       11:13:47 AM
291023   NARDY CASTRO     02/06/2016      11:13:29 AM
291419   RAFAEL CARRANZA     02/06/2016      11:15:14 AM
292551   SERGIO LEFORT     02/06/2016       11:15:42 AM
292578   SERGIO LEFORT   02/06/2016     11:15:58 AM
292574   SERGIO LEFORT   02/06/2016      11:16:15 AM

DEBEN CONSIDERAR QUE LA FECHA 01-06-2016 NO ESTA EN LA LISTA

GRACIAS, ESPERO SU PRONTA AYUDA.
 

[YAcosta]

¿A que te refieres con Contar? porque en tu pedido hay una contradicción.

Count te cuenta pero es una funcioin de agrupamiento.

Ya nos mostraste la data, para que quede mas claro y sin ambigüedad, muéstranos como quieres que quede el resultado de tu consulta y viendo eso se te puede armar tu consulta.

Saludos

[obethermy]

rs.open "select contrato,nombre,fecha,time from tabla where fecha between '" & sqlfecha1 & "' and '"  & sqlfecha2 & "'"

donde sqlfecha1='2016-05-30' y sqlfecha2='2016-06-02' si es mysql la fecha hay que ponerla en formato americano para las consultas.

[YAcosta]

Ese es un Select en un rango de fecha ¿donde está el misterio? ¿a eso se refería? estoy perdiendo mis poderes... me voy a celebrar el 28 bye

[Percy2016]

Gracias mi amigo por su respuesta, solo que decía que quería CONTAR cuantos registros hay en ese rango de fechas dados en mi pregunta, creo que esta muy cerca de solucionar mi problema, gracias.
y simplemente lo quiero alojar en una caja de texto y no uso MYSQL solo código ADO(VISUAL BASIC 6.0) y algo de consulta SQL.

Obethermy puede dejarme su correo?, gracias.

[YAcosta]

Ya pues entonces tu consulta simple seria asi:

Código: (VB) [Seleccionar]

Select Count(contrato) from tabla where fecha between '" & sqlfecha1 & "' and '"  & sqlfecha2 & "'"

Que es similar a la de obethermy pero con la diferencia que solo leo un campo para contarlo. (bueno hecho a la prepo y con 3 vinos encima)

Otra forma es hacer la misma consulta de obethermy pero en VB6 (ya no en SQL) solo haces un recordcount al recordset: Text1 = rs.Recordcount y ya.

Si no usas MySQL ¿Que motor usas?

[Percy2016]

Gracias por sus aportes mis modestos programadores.
Obethermy
YAcosta (con este formato que me dio en el correo resultó:  2016-05-30)
Motor para Access.
saludos

[YAcosta]

Claro, siempre usa ese formato que no es ambiguo: "YYYY/MM/DD" no importa el motor en el que estes. Normalmente en alguna funcion que recibo fecha me aseguro formateandola asi:
X = Format("YYYY/MM/DD", Fecha)

Saludos