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
y luego la función donde quieran llamarla
Código vb:
Ver original''' <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
