Visual Basic - PLEASE DUDA URGENTE COLEGAS

Life is soft - evento anual de software empresarial
 
Vista:

PLEASE DUDA URGENTE COLEGAS

Publicado por EDGAR (193 intervenciones) el 19/01/2005 14:20:19
HOLA COLEGA, EN ESTA OPORTUNIDAD TENGO UNA GRAN DUDA. COMENZARE POR EL PLANEAMIENTO DE MI PROBLEMATICA. POSEO UNA BASE DE DATOS EN ACCESS LA CUAL TIENE DOS TABLAS, UNA QUE ES LLAMADA "Rangos" Y OTRA "Personas".
La tabla rangos contiene los siguientes campos: rango1, rango2, estado, donde por ejemplo:
rango1 rango2 estado
1 5 miranda
6 10 vargas

y la tabla personas posee los siguientes campos: cedula, apellido, nombre. El número de cedula es el mismo valor que el de la tabla rango en rango1 y rango2.
Mi problema radica en que por ejemplo necesito saber como puedo lograr en que el usuario al introducir la cedula que por ejemplo sea 12, automaticamente me haga la comparación de acuerdo a la tabla rango y como puse en el ejemplo anterior:
rango1 rango2 estado
6 10 vargas
la cedula 12 no existiria en el data por lo tanto me mostraria un mensaje de error. Pero en el caso de que la cedula sea por ejemplo 8 me permitira seguir con los procedimientos.
Agradezco de tu ayuda colega, la programación la estoy realizando en DAO.. Gracias de antemano amigo.
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:PLEASE DUDA URGENTE COLEGAS

Publicado por Ricardo (33 intervenciones) el 19/01/2005 17:22:17
que base de datos estas usando?

Si usaras access como lo imagino debes generar la consulta dentro de la base de datos osea como un store procedure y llamarlo a ejecucion haciendo un select a la consulta en vez de alas tablas.
seria de la siguiente manera
*/ Esto lo haces dentro de access*/
creas una n ueva consulta y la llamas consulta1n por ejemplo

select rango.rango1 as rango1 , rango.rango2, personas.cedula from
rango, personas
where rango.rango1 = personas.cedula or rango.rango2 = personas.cedula

luego desde visual haces lo siguiente
'abrir base de datos
sql=""
sql=" select * from consulta1"
sql=sql + " where rango1=' & txt_cedula & "'" &
set rs=db.openrecorset(sql,2)
if rs.recorset> 1 then
' instrucciones
end if
espero que te sirva
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