Contiene 4 funciones, una para conectar a la base de datos, 1 para ejecutar sentencias y una que cierra la conexion.
La función de ejecucion 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.
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