Question

Hola un saludo.

De hace varios dias tengo un problema con un retorno de funciones como Datatable.

Tengo ésta función en una clase que deseo se cargue con el retorno de otra función que se encuentra en otra clase para luego retornar esos datos también.

Public Function Verificar_Administrador() As DataTable 'Devuelve el registro del administrador
        Dim tablita As New DataTable

        tablita = usuario.select_administrador '<==== El error está al retornar, pero el codigo está bien
        Return tablita
End Function

La función a la que llama es ésta :

 Public Function select_administrador() As DataTable
        Dim Tabla As New DataTable
        Try
            Dim da As New SqlDataAdapter("SELECT * FROM USUARIO WHERE tipo_usuario = 'Administrador'", db.Conexion)
            da.Fill(Tabla)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return Tabla
End Function

Ya revisé los códigos por aparte y cada uno funciona, el problema está en el retorno del datatable, lo más seguro es que no se pueda asignar un datatable a otro datatable de ése modo, pero nose como podría asignarlo, porque el metodo copy() no me funciona tampoco ya que no tengo los datatables en la misma clase.

Cómo puedo retornar el datatable de la función SelecAdministrador() (se encuentra en otra clase ojo !_) al datatable de la función Verificar_Administrador() ???.

Si quieres ver el error, es éste :

Comments

¿Has generado la instancia de la conexión correctamente?

---

Claro amigo, ya hallé el modo de hacerlo, sólo que olvidé publicar la respuesta.

Answer 1

Habia olvidado publicar la respuesta u solución a mi problema. Ocurre que estaba declarando mal la clase "usuarioDAO" dentro de la clase "Gestor Usuario" , por lo que no llamaba a la función que se encontraba en usuarioDAO y por lo tanto el datatable no se cargaba con nada.
Debia declarar a usuarioDAO y construir la función de la siguiente forma respectivamente:

'Declarar la clase correctamente
Private usuario As New usuarioDAO

'Devuelve el registro 
Public Function Verificar_Administrador() As DataTable 
        Dim tablita As DataTable

        tablita = usuario.select_administrador 
        Return tablita
End Function

El error antes estaba en que declaraba como :

Private usuario As usuarioDAO