Visual Basic.NET - Como crear una clase y como llamarla desde otro la

   
Vista:

Como crear una clase y como llamarla desde otro la

Publicado por Nicolas (35 intervenciones) el 22/04/2009 13:41:06
Buenas, mi duda es la sig.:
Como puedo crear una clase de conexion (para evitar tener que escribir uno y otra vez lo mismo) con Visual Studio 2005 a SLQ Server 2005.
Y una vez hecha como la llamo, es decir por ejemplo al apretar un boton.
Si alguien me puede dar algunos ejemplos de clases que se usan normalmente, es decir (ingresar,eliminar,modificar,etc); cualquiera es bien benida.

Gracias y un abrazo.....
Nico
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como crear una clase y como llamarla desde otro

Publicado por OliBeer (391 intervenciones) el 22/04/2009 17:04:38
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como crear una clase y como llamarla desde otro

Publicado por Nicolas (35 intervenciones) el 22/04/2009 19:09:36
Garcias, la verdad es bastante avanzado para mi pero bueno lo estudiare mas detalladamente haber si lo entiendo.

Lo que me quedo en inconcluso es esta parte

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>

en que parte de la configuración declaro esto, si me podes especificar los pasos te lo agradezco.

Nico
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como crear una clase y como llamarla desde otro

Publicado por OliBeer (391 intervenciones) el 22/04/2009 20:35:14
Hola,

No sé si tu proyecto es WIN o WEB

es cuanquier caso, en Win hay un archivo que se llama AppConfig, en Web es WebConfig, en ese archivo agrega lo anterior.

En el apartado connectionStrings

Si no tienes nada, aparece así:

<connectionStrings/>

sustituyelo por esto:

<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>

NOMBRE_DE_LACONEXION - es el nombre que le vas a dar a la conexión y por el cual vas a acceder a ella.

MI_SERVIDOR_DE_BASE_DE_DATOS - es la instancia de tu servidor SQL.

MI_BASE_DE_DATOS - en el nombre de la base de datos que estás utilizando.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como crear una clase y como llamarla desde otro

Publicado por Nicolas (35 intervenciones) el 23/04/2009 03:11:53
Muchas gracias por tu ayuda, voy a intentar haber que sale.

Un abrazo...Nico
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar