Hola, Bueno te comparto un codigo
Imports System.Data.SqlClient
Module CONECTION
Código:
Imports System.Data.SqlClient
Module CONECTION
Private sConn As String = "Data Source=server;Initial Catalog=basededatos;User ID=usuario;password=pwd"
''' <summary>
''' Genera un log de errores
''' </summary>
''' <param name="Message">mensaje de error</param>
''' <param name="Source">donde hubo el error</param>
''' <remarks></remarks>
Public Sub msgError(Optional ByVal Message As String = "", Optional ByVal Source As String = "")
My.Application.Log.WriteEntry("Msg: " & Message & "- Source:" & Source)
End Sub
''' <summary>
''' Ejecuta una consulta
''' </summary>
''' <param name="Query"></param>
''' <param name="Message "></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function ExecuteQuery(ByVal Query As String, Optional ByRef Message As String = "") As Data.DataSet
Dim cnServer As New SqlConnection(sConn)
Try
cnServer.Open()
Dim da As New SqlDataAdapter(Query, cnServer)
Dim ds As New Data.DataSet
da.Fill(ds)
Return ds
Catch ex As Exception
msgError(ex.Message, "ExecuteQuery")
Message = ex.Message
Return Nothing
Finally
cnServer.Close()
End Try
End Function
''' <summary>
''' ejecuta comandos tipo ins/del/upd
''' </summary>
''' <param name="Query">comandos</param>
''' <param name="Message">Mensaje</param>
''' <returns>verdadero/falso</returns>
''' <remarks></remarks>
Public Function ExecuteCommand(ByVal Query As String, Optional ByVal Message As String = "") As Boolean
Dim cnServer As New SqlConnection(sConn)
Try
cnServer.Open()
Dim cm As New SqlCommand(Query, cnServer)
cm.ExecuteNonQuery()
Return True
Catch ex As Exception
msgError(ex.Message, "ExecuteQuery")
Message = ex.Message
Return False
Finally
cnServer.Close()
End Try
End Function
End Module
si gustas puedes enviarme un mail a
[email protected] y puedo enviarte un ejemplo