Visual Basic para Aplicaciones - AYUDA URGENTE CON BUSQUEDAS

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA URGENTE CON BUSQUEDAS

Publicado por CARLOS (3 intervenciones) el 14/10/2002 19:31:18
SALUDOS, TENGO UN PROBLEMA NECESITO HACER UNA BUSQUEDA CON DOS CRITERIOS, (UTILIZO V.BASIC 6.0), YA TENGO MI BASE DE DATOS (ACCESS 97)ESTABLECIDA (AGENDA) Y MI TABLA (DEUDAS), UN ADODC1 (CON LA CONEXION ESTABLECIDA) UN GRID (DATAGRID1) Y DOS CAJAS DE TEXTO (TEXT1 Y 2), NECESITO SELECCIONAR EN EL PRIMER TEXT UN MONTO (10), Y EN SEGUNDO TEXT UN MONTO (2300) Y QUE EL RESULTADO SE DESPLIEGUE EN EL DATAGRID1 DEL 10 AL 2300 COMO MERO EJEMPLO, SI ALGUIEN ME PUEDE ECHAR UNA MANO ...DE ANTEMANO MIL GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA URGENTE CON BUSQUEDAS

Publicado por diego ferrocchio (1 intervención) el 25/10/2002 00:06:08
como estas carlos!!!!
te escribo para responderte la pregunta, la verdad es un poco tarde pero es una de las primereas veces que entro a esta pagina debido a que esoty estudiando informatica y la intriga me llevo a investigar.
la resolucion de tu problema podria realizarse de la siguiente manera
conecta el datagrid al ado, y cunaod hagan el formload filtra la info desde el ado.
adodc1.rsdeudas.filter criterio

donde criterio es una variable variant, que debe contener lo siguiente

criterio= "Deudas= val(text1.text) & val(text2.text)"
lo unico en este momento no recuerdo donde colkocar las comillas simples pero probalas entre el segundo igual y el ultimo parentesis
un abrazo
diego
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AYUDA URGENTE CON BUSQUEDAS

Publicado por CARLOS (3 intervenciones) el 29/10/2002 00:40:07
HOLA DIEGO:

GRACIAS POR RESPONDER PERO NO FUNCIONO DE HECHO HICE ALGO SIMILAR Y EL CODIGO ES EL SIGUIENTE:

IF T1.TEXT > "" THEN
ADODC1.RECORSOURCE = "SELECT * FROM DEUDAS WHERE pago1 = VAL(Text1.Text)
END IF

Y PUES NADA HE PROBADO VARIAS COSAS PERO NADA DE NADA ...ESPERO ME ECHES UNA MANO...

MIL GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar