Búsqueda en Múltiples Tablas

Hola Experto, Mucho Gusto!
Necesito favor me ayudes a plantear un algoritmo para búsqueda de datos en múltiples Tablas.
1- Tengo el Siguiente código en un TextBox en el Procedimiento KeyPress:
IF nKeyCode = 13
    IF !USED ("Padron")
        USE Padron IN 0
    ENDIF
        SELECT Padron
            SET ORDER TO cedula
            intCedula=ThisForm.txt_Identificacion.Value
            SEEK intCedula
            IF FOUND()
                intCedula=cedula
                strNombre=nombre
                strApellido1=apellido1
                strApellido2=apellido2
                intNacimiento=nacimiento
                strSexo=sexo
            ELSE
                    MESSAGEBOX('Número de Identificación [  ' + ALLTRIM(STR(intCedula)) + '  ] NO Existe, Digite Otro Número', 16,'Búsqueda por Número de Identificación')
                      ThisForm.Refresh
            ENDIF
Endif
**********************************************
2- Ok éste algoritmo me realiza la búsqueda de la Identificación de una persona en la Tabla: Padrón, sin embargo yo tengo otra Tabla:Padron_Interno, en la cuál se registran números de identificación que no han sido oficializados.
3- Yo necesito que el algoritmo realice la búsqueda en AMBAS Tablas y si definitivamente no se encontró el registro entonces que envíe el mensaje que el Num Identificación no Existe.
Le agradezco profundamente la orientación, ayuda y/o colaboración, de antemano Mil Gracias!

1 Respuesta

Respuesta
1
Ruego me disculpes la tardanza en responderte! Tuve una semana muy cargada! :( Bueno...! Entiendo tu inquietud. NO obstante, permíteme preguntarte: ¿Es estrictamente necesario que busques los registros en ambas tablas? Lo que pasa es que un "buscador" de datos trabaja más eficientemente en una sola tabla. ¿Cómo realizas las búsqueda? En mismo text buscas el valor en las 2 tablas... ok! ¿Pero cómo mostrás los resultados? ¿En una grid? ¿En textos? Explicame un poco más por favor...! Así te podre ayudar mejor!
Hola Raven, Saludos.
1- Es estrictamente necesario que realice la búsqueda en ambas tablas.
2- Al digitar un número de identificación en el Txt. Identificación y digitar "Enter": El algoritmo debe primero buscar en la tabla Padrón, si no encuentra el dato en ésta tabla, entonces buscar el número de identificación en la Tabla Padrón_Interno y si definitamente no se encuentra en ninguna de las dos tablas: Enviar un mensaje al usuario.
Te agradezco la colaboración
Disculpa la tardanza Stall! :) :)
Tal como va tu caso, podes usar un LOCATE FOR dependiendo de los resultados de la búsqueda en la primera tabla. Va asi: 
SELECT tabla1
     LOCATE FOR campo1 = (THISFORM.TxtIdentificacion.Value)
     IF FOUND ()
                intCedula=cedula 
                strNombre=nombre 
                strApellido1=apellido1 
                strApellido2=apellido2 
                intNacimiento=nacimiento 
                strSexo=sexo
             ELSE 
                      **-Aqui podes cargar un mensaje de "no encontrado", buscando en tabla2"
                       SELECT tabla2
                              LOCATE FOR campo1 = (THISFORM.TxtIdentificacion.Value)
                              IF FOUND()
                                    intCedula=cedula 
                                    strNombre=nombre 
                                    strApellido1=apellido1 
                                    strApellido2=apellido2 
                                    intNacimiento=nacimiento 
                                    strSexo=sexo
                                        ELSE 
                                                **Podes cargar un mensaje que definitivamente el registro no existe**
                                ENDIF
                   ENDIF
Ves que fácil! :) :) :)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas