[SOLUCIONADO] Recuperar una consulta de SQL en un DataSet en Windows Froms VB.Net (Solución)

[Cristo_]

Muy buenas tengan todos, este post lo escribo debido a que quiero devolver algo a esta comunidad que tanto me ha ayudado, por lo cual poco a poco iré publicando poco a poco funciones que he acumulado con los años y me han resultado muy útiles para mis desarrollos, ahorrandome de paso repetir muchas líneas de código y tiempo.

Habrá a algunos que les parecerá muy simple mi aporte, pero estoy seguro de que habrá otros que les será de mucha utilidad, si tienen mejoras, son bienvenidas. saludos a todos.

Para que esto les funcione requeriran de importar las siguientes librerías colocando el siguiente código en la primer linea de código de su formulario

Código vb:

Imports System.Data.SqlClient
 

y luego la función donde quieran llamarla

Código vb:

''' <summary>
    ''' Devuelve un DataSet que se llena con datos a partir de una consulta SQL , hacía un servidor SQL server
    ''' </summary>
    ''' <param name="Query">Consulta SQL con la cual se desea llenar el data SET</param>
    ''' <param name="Conexion">Cadena de Conexión hacia la base de datos SQL</param>
    ''' <param name="NumRegistros">Parámetro opcional por referencia de tipo Integer que permite conocer el número de registros que arrojó la consulta</param>
 
    Public Shared Function RecuperarDeSQL(ByVal Query As String, ByVal Conexion As String, Optional ByRef NumRegistros As Integer = 0) As DataSet
        Dim Resultados As DataSet
        Dim DA As SqlDataAdapter
        Dim Con As SqlConnection
        Try
            Con = New SqlConnection(Conexion)
            Con.Open()
            DA = New SqlDataAdapter(Query, Con)
            Resultados = New DataSet
            DA.Fill(Resultados, "Resultado")
            NumRegistros = Resultados.Tables(0).Rows.Count()
            If NumRegistros = 0 Then
                Resultados.Tables.Add()
               Return Resultados
            End If
            Return Resultados
            Con.Close()
            DA = Nothing
            Con = Nothing
        Catch ex As Exception
            If SysAdminUsr Then
                Utilerias.MuestraError(ex.Message)
            End If
        End Try
        Resultados = Nothing
        Return Resultados
    End Function
 

Al final pueden asignar el DataSet a cualquier lugar dónde lo requieran:
-Datagrids
-Combos
-List Box

incluso pueden solo cargarlo en memoria para realizar la consulta de registros de la base de datos.

Bien eso es todo por ahora, espero les sirva.

Saludos