RE:Como crear una clase y como llamarla desde otro
Hola,
En tu Config declaras la conexión:
<connectionStrings>
<add name="NOMBRE_DE_LACONEXION" connectionString="Data Source=MI_SERVIDOR_DE_BASE_DE_DATOS; Initial Catalog=MI_BASE_DE_DATOS; Integrated Security=True" providerName="System.Data.SqlClient"/> </connectionStrings>
Agregas una clase que se llame por ejemplo "Datos"
en ella:
'DE ESTA MANERA ACCEDES A LA CONEXIÓN.
Private Const NOMBRE_CONEXION As String = "NOMBRE_DE_LACONEXION"
Private Shared Conexion As String = System.Configuration.ConfigurationManager.ConnectionStrings(NOMBRE_CONEXION).ConnectionString()
'LOS SIGUIENTES PROCEDIMIENTOS EJECUTAN UN STORED PROCEDURE, UNO LLENA UN DATASET Y EL OTRO EJECUTA UN EXECUTENONQUERY; NINGUNO DE LOS DOS EJECUTA CÓDIGO SQL EN SÍ.
Public Function Consultar(ByVal Procedimiento As String, ByVal Parametros() As SqlParameter) As DataSet
Dim myDataAdapter As New SqlDataAdapter
Dim mySelectCommand As New SqlCommand
Dim myConexion As New SqlConnection(Conexion)
myConexion.Open()
Consultar = New DataSet
myDataAdapter.SelectCommand = mySelectCommand
mySelectCommand.CommandText = "[" & Procedimiento & "]"
mySelectCommand.CommandType = System.Data.CommandType.StoredProcedure
mySelectCommand.Connection = myConexion
mySelectCommand.CommandTimeout = 300
If Not Parametros Is Nothing Then
mySelectCommand.Parameters.AddRange(Parametros)
End If
myDataAdapter.Fill(Consultar)
If myConexion.State = ConnectionState.Open Then
myConexion.Close()
End If
Return Consultar
End Function
Public Shared Function Ejecutar(ByVal Procedimiento As String, ByVal Parametros() As SqlParameter) As Boolean
Dim myDataAdapter As New SqlDataAdapter
Dim myCommand As New SqlCommand
Dim scnConexion As New SqlConnection(Conexion)
Try
scnConexion.Open()
myDataAdapter.InsertCommand = myCommand
myCommand.CommandText = "[" & Procedimiento & "]"
myCommand.CommandType = System.Data.CommandType.StoredProcedure
myCommand.Connection = scnConexion
If Not Parametros Is Nothing Then
myCommand.Parameters.AddRange(Parametros)
End If
myDataAdapter.InsertCommand.ExecuteNonQuery()
Return True
Catch ex As Exception
Return False
Finally
If scnConexion.State = ConnectionState.Open Then
scnConexion.Close()
End If
End Try
End Function
'PARA EJECUTAR EL PRIMER PROCEDIMIENTO,
'CUANDO EL STORED NO LLEVA PARÁMETROS SE PONE "NOTHING"
Public Function Seleccionar_Estadisticas(ByVal Asesor As String, ByVal Equipo As String, ByVal Video As String, ByVal Inicial As String, ByVal Final As String) As DataSet
Dim Parametros(4) As SqlParameter
Parametros(0) = New SqlParameter("@Asesor", SqlDbType.VarChar)
Parametros(0).Value = Asesor
Parametros(1) = New SqlParameter("@Equipo", SqlDbType.VarChar)
Parametros(1).Value = Equipo
Parametros(2) = New SqlParameter("@Video", SqlDbType.VarChar)
Parametros(2).Value = Video
Parametros(3) = New SqlParameter("@Desde", SqlDbType.VarChar)
Parametros(3).Value = Inicial
Parametros(4) = New SqlParameter("@Hasta", SqlDbType.VarChar)
Parametros(4).Value = Final
Return Consultar("usp_Seleccionar_Estadisticas", Parametros)
End Function
¿PARA EJECUTAR EL SEGUNDO PROCEDIMIENTO:
Public Function Agregar_Estadistica(ByVal Asesor As String, ByVal Equipo As String, ByVal Video As String, ByVal Fecha As String) As Boolean
Dim Parametros(3) As SqlParameter
Parametros(0) = New SqlParameter("@Asesor", SqlDbType.VarChar)
Parametros(0).Value = Asesor
Parametros(1) = New SqlParameter("@Equipo", SqlDbType.VarChar)
Parametros(1).Value = Equipo
Parametros(2) = New SqlParameter("@Video", SqlDbType.VarChar)
Parametros(2).Value = Video
Parametros(3) = New SqlParameter("@Fecha", SqlDbType.VarChar)
Parametros(3).Value = Fecha
Return Ejecutar("usp_Insertar_Video", Parametros)
End Sub
Saludos.