none
Consulta dato de un campo en diferentes tablas RRS feed

  • Pregunta

  • Hola, estoy intentando realizar una consulta desde VB .NET en Access que debería devolver un usuario y unos datos concretos pero tiene que buscar en dos tablas y al guardar comprobar que no existe ya.

    Me debería devolver al TextBox los siguientes datos de 1 usuario.

    Las tablas son Profesionales y EmpleadosOficina

    Los campos son estos y se llaman igual en las dos tablas

    Nombre, P_Apellido, DNI, Puesto

    Al acceder al formulario en una TexBox pido que busque en las dos tablas anteriores si hay algún Profesional o EmpleadoOficina que tengan XX DNI, si existe rellena los 4 TextBox con los datos "Nombre, P_Apellido, DNI, Puesto" en ese formulario le doy un nivel de acceso al programa y se guardan en otra tabla llamada "Usuario" los datos, "Usuario, Contraseña, Nivel de acceso, Activo" que lo reflejo en un CheckBox.

    No logro hacer la consulta y que me aparezca ese usuario, lo que tengo es esto.

    BD.ClassConecta.Conecta()
            Dim LoginCx As OleDbCommand = New OleDbCommand("Select Nombre, P_Apellido, DNI, Puesto FROM Profesionales, EmpleadoOficina WHERE DNI ='" & Form_Crear_User.TB_DNI_NIE.Text & "'", BD.ClassConecta.Cs)
            Dim Loginrd As OleDbDataReader = LoginCx.ExecuteReader
    
    
            If (Form_Crear_User.TB_DNI_NIE.Text <> "") Then
    
                Try
                    Loginrd = LoginCx.ExecuteReader()
    
                    If (Loginrd.Read) Then
                        Form_Crear_User.TB_Nombre.Text = Loginrd("Nombre").ToString()
                        Form_Crear_User.TB_P_Apellido.Text = Loginrd("P_Apellido").ToString()
                        Form_Crear_User.TB_DNI_Datos_Usuario.Text = Loginrd("DNI").ToString()
                        Form_Crear_User.TB_Puesto.Text = Loginrd("Puesto").ToString()
                    Else
                        MsgBox("PALABRA INVÁLIDA")
                    End If
                Catch ex As Exception
                    MsgBox("ERROR EN SENTENCIA SQL")
                Finally
                    Loginrd.Close()
                    BD.ClassConecta.Desconecta()
                End Try
            Else
                MsgBox("PALABRA CLAVE REQUERIDA")
            End If
    Gracias por la ayuda.

    miércoles, 11 de septiembre de 2019 12:25

Respuestas

  • Hola   Águila6

     

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma,  te comparto a continuación el siguiente enlace que puede serte útil

    https://support.microsoft.com/es-es/help/824169/results-do-not-appear-when-you-run-a-query-in-an-access-database-and-t

     

    Gracias por usar los foros de MSDN.

     

    Pablo Rubio

     ____

     

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

     

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

     

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    • Marcado como respuesta Águila6 sábado, 14 de septiembre de 2019 9:46
    miércoles, 11 de septiembre de 2019 14:56
    Moderador

Todas las respuestas

  • Hola   Águila6

     

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma,  te comparto a continuación el siguiente enlace que puede serte útil

    https://support.microsoft.com/es-es/help/824169/results-do-not-appear-when-you-run-a-query-in-an-access-database-and-t

     

    Gracias por usar los foros de MSDN.

     

    Pablo Rubio

     ____

     

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

     

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

     

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    • Marcado como respuesta Águila6 sábado, 14 de septiembre de 2019 9:46
    miércoles, 11 de septiembre de 2019 14:56
    Moderador
  • Gracias, por fin logré lo que quería.
    sábado, 14 de septiembre de 2019 9:46