Bueno, como toda la librería completa me parecía un poco abuso para mi pobre cerebrito resacoso de estas fiestas, me he decidido por usar sólo la librería de acceso a datos. Tal y como se explica en la
web del Guille me he descargado el componente y lo he instalado. He abierto el ensamblado y lo he compilado. Luego he copiado y añadido una referencia de la dll generada a mi proyecto y este es el código final:
modGeneral.vb
Código:
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data
Module modGeneral
#Region "Mensajes por SMTP"
Public Class Mensaje
Protected Friend Desde As String = ConfigurationSettings.AppSettings("mailAdmin")
Protected Friend Hacia As String = ""
Protected Friend Titulo As String = ""
Protected Friend Cuerpo As String = ""
Public Sub enviar()
Dim mensaje As New System.Web.Mail.MailMessage
mensaje.From = Desde
mensaje.To = Hacia
mensaje.Subject = Titulo
mensaje.Body = Cuerpo
mensaje.BodyFormat = Mail.MailFormat.Html
Dim mailSMTP As System.Web.Mail.SmtpMail
mailSMTP.SmtpServer = ConfigurationSettings.AppSettings("SMTPServer")
mailSMTP.Send(mensaje)
End Sub
End Class
#End Region
#Region "Conexión a la base de datos"
Public Class OrigenDatos
Friend Shared con As SqlConnection
Private Shared strCon As String
Shared Sub New()
con = New SqlConnection(ConfigurationSettings.AppSettings("strcon"))
End Sub 'New
Public Shared Function Verificar() As Boolean
Try
con.Open()
Catch
Finally
con.Close()
End Try
Return True
End Function 'Verificar
Public Shared Function DevuelveDS(ByVal strQuery As String) As DataSet
Return SqlHelper.ExecuteDataset(con, strQuery, Nothing)
End Function
End Class 'OrigenDatos
#End Region
Luego, en una página cualquiera:
Código:
Response.Write(OrigenDatos.DevuelveDS("SP_RolDeUsuario").Tables(0).Rows(0).ItemArray.GetValue(0))
Y marchando perfectamente.
Un saludo de nuevo.