Módulo de conexión dinámica SQL Server

Publicado el 11 de diciembre de 2011 por Cristian Torres

Este módulo nos permite conectarnos a una base de datos alojada en “MS Sql Server”.

Contiene 4 funciones, una para conectar a la base de datos, 1 para ejecutar sentencias y una que cierra la conexión.

La función de ejecución de sentencias acepta como parámetro la sentencia en forma de string. Además, cuenta con una sobrecarga que permite enviar el dataset al que se volcarán los datos que devuelva dicha sentencia.

Conexion.vb
Imports System.Data.SqlClient
Imports System.Data.SqlClient
Module Conexion
    Friend dbSQLConn As SqlConnection, dbSQLComm As SqlCommand, dbSQLAdapter As SqlDataAdapter
    Public Sub ConectarSQL(Optional ByVal Server As String = "(local)\SQLEXPRESS", Optional ByVal DB As String = "master")
        dbSQLConn = New SqlConnection("Server=" & Server & ";Database=" & DB & ";Integrated Security=true")
        Try
            dbSQLConn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al conectar: " & vbCrLf & ex.Message)
        End Try
    End Sub
    Public Function ExecuteSQL(ByVal Query As String) As SqlDataAdapter
        dbSQLComm = New SqlCommand(Query, dbSQLConn)
        dbSQLAdapter = New SqlDataAdapter(dbSQLComm)
        Return dbSQLAdapter
    End Function
    Public Function ExecuteSQL(ByVal Query As String, ByRef ds As DataSet) As Integer
        dbSQLComm = New SqlCommand(Query, dbSQLConn)
        dbSQLAdapter = New SqlDataAdapter(dbSQLComm)
        Dim build As New SqlClient.SqlCommandBuilder(dbSQLAdapter)
        dbSQLAdapter.UpdateCommand = build.GetUpdateCommand
        Return dbSQLAdapter.Update(ds)
    End Function
    Public Sub DesconectarSQL()
        dbSQLConn.Close()
    End Sub
End Module