Conexion en clase!

[mcofy]

Holas,,, necesito colocar toda mi cadena de conexion en una clase,, lo que pasa es que a cada rato que ago una conexion a la BD ago una nueva conexion y reescribo ese codigo en muchas ocasiones,, y kisiera colocarlo solo una ves en una clase para despues mandarlo a llamar...


Dim conexion As New MySqlConnection
conexion.ConnectionString = "server=localhost; user id=root; password=123456; database=datos"
Dim consul As String
consulta = "consulta"
Dim ocomando As New MySqlCommand(consulta, conexion)
conexion.Open()
ocomando.ExecuteNonQuery()
conexion.Close()
conexion.Dispose()

el codigo anterior es un ejemplo de lo que ago, realmente seria muy muy util meter esa cadena de conexion en una clase, y asi solo mandar a llamarlo,,,

Desde ya Gracias,, Saludos

[Dradi7]

Puedes crear un Proc

Código vb.net:

public Con as MySqlConnection
public Com as MySqlCommand
public Adp as MysqlDataAdapter
public Datos as Dataset
 
' Procedimiento Para Conectarme a la Bd de MySQL
public Shared sub ConexionMySQL()
try
Con = new MysqlConnection
Con .ConnectionString = "server=localhost; user id=root; password=123456; database=datos"
if Con.state = 1 then Con.Close
Con.Open
catch ex as Exception
msgbox(ex.message,48)
end try
end sub
' Procedimiento para Ejecutar una Consulta sin devolver ningun valor
public Shared sub Ejecutar(Byval CadMySql as String)
try
Com = new MySqlCommand(CadMySql,Con)
Com.ExecuteNonQuery()
catch ex as Exception
msgbox(ex.message,48)
finally
Com.Dispose()
end try
end sub
 
' Procedimiento para Ejecutar una Consulta devolviendo Datos
public Shared function Mostrar(Byval CadMySql as String) as DataTable
try
Adp = new MySqlDataAdapter(CadMySql, Con)
Datos = new DataSet
Adp.fill(Datos,"x")
catch ex as Exception
msgbox(ex.message,48)
finally
Adp.Dispose()
end try
return Datos.Tables("x")
end function
 

Esto lo Agregas a una Clase o a un Modulo

Si Es una Clase lo debes llamar de la siguiente manera
NomClase.NomProc()

Si es Un Modulo
NomProc()

[gnzsoloyo]

No hay que complicarse tanto.
La cosa andaría mas o menos por aquí:

Código VB.Net:

Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
Imports MySql.Data.Common
 
Private conexion As MySqlConnection
Private sentencias As MySqlCommand
 
Public Function conectar(ByVal vServer As String, ByVal vBase As String, ByVal vUser As String, ByVal vPwd As String, ByVal oPort As Int16) As Boolean
        Dim strCx As String
        If Not conexion Is Nothing Then
            If conexion.State = 1 Then
                Return True
            ElseIf conexion.State = ConnectionState.Closed Then
                conexion.Open()
                Return True
            Else
                Return False
            End If
        Else
            Try
                strCx = "Database=" & vBase & ";Data Source=" & vServer & ";User Id=" & vUser & ";Password=" & vPwd & ";Port=" & oPort.ToString & ";CharSet=utf8;Pooling=false;"
                conexion = New MySqlConnection(strCx)
                conexion.Open()
                Return True
            Catch ex As MySqlException
                Select Case ex.Number
                    Case 0
                        MessageBox.Show("El servidor no responde." & ControlChars.CrLf & "Consulte con el Administrador de Sistemas", "Error de conexión principal", MessageBoxButtons.OK, MessageBoxIcon.Error)
                  Case 1045
                        MessageBox.Show("El nombre de usuario o la clave son incorrectas." & ControlChars.CrLf & "Vuelva a ingresarlas", "Error de login", MessageBoxButtons.OK, MessageBoxIcon.Error)
                  Case 1049
                        MessageBox.Show("La base de datos no existe." , "Error de base de datos inexistente", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Select
                Return False
            End Try
            Return True
        End If
    End Function
 

Este método está sintetizado de uno que actualmente tenemos en uso, por lo que debería ser funcional. Está programado en VB.Net 2003 y solamente requiere el paso de los parámetros adecuados.
Es mejor manejar todos esos parámetros para darle flexibilidad a la configuración de la conexión.
Para hacerlo aún más simple, puedes manejarlo a través de un objeto Sesión que incluya una Instancia de una Clase Usuario, donde estén los parámetros como atributos, esto funcionaría:

Código VB.Net:

Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
Imports MySql.Data.Common
 
Private conexion As MySqlConnection
Private sentencias As MySqlCommand
 
Public Function conectar(ByVal oSesion as Sesion) As Boolean
        Dim strCx As String
        If Not conexion Is Nothing Then
            If conexion.State = 1 Then
                Return True
            ElseIf conexion.State = ConnectionState.Closed Then
                conexion.Open()
                Return True
            Else
                Return False
            End If
        Else
            Try
                With oSesion.usuario
                    strCx = "Database=" & .Base & ";Data Source=" & .Server & ";User Id=" & .User & ";Password=" & .Pwd & ";Port=" & .Port.ToString & ";CharSet=utf8;Pooling=false;"
                End With
                conexion = New MySqlConnection(strCx)
                conexion.Open()
                Return True
            Catch ex As MySqlException
                Select Case ex.Number
                    Case 0
                        MessageBox.Show("El servidor no responde." & ControlChars.CrLf & "Consulte con el Administrador de Sistemas", "Error de conexión principal", MessageBoxButtons.OK, MessageBoxIcon.Error)
                  Case 1045
                        MessageBox.Show("El nombre de usuario o la clave son incorrectas." & ControlChars.CrLf & "Vuelva a ingresarlas", "Error de login", MessageBoxButtons.OK, MessageBoxIcon.Error)
                  Case 1049
                        MessageBox.Show("La base de datos no existe." , "Error de base de datos inexistente", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Select
                Return False
            End Try
            Return True
        End If
    End Function
 

De esa forma, la sintaxis se vuelve un poco más simple y solamente tienes que invocar: objetoBaseDatos.Conectar(objetoSesion) antes de usar la conexión pasa enviar consultas. AL encapsular los valores dentro de la isntancia de la clase, aumentas la seguridad del sistema.

Nota: Existe una forma de verificar que no esté logueado ya en la base.... cosa de no crearle dos conexiones al mismo tiempo. Es bastante simple.

Tip:
Para controlar situaciones dentro de las bases de datos, es mejor manejarse con los número de excepciones (todos los DBMS los tienen). En el caso de MySQL la lista está en : Capítulo 26. Manejo de errores en MySQL
Son los mismos que se usan en los STORE PROCEDURES, cuando se indican HANDLERs

[mcofy]

Acabo de leer ambos comentarios,,, y sinceramente ambos se me acen muy interesantes, hoy los pruebo y les comento que sucede,, desde ya muchas gracias por las prontas respuestas!!!!!!

[mcofy]

Dradi7,, un favor mas,,,,,,,,,, mira que implemente tu codigo,,,,

decidi trabajarlo con un modulo!

Código:

 
        Dim consulta As String
        consulta = "update datos set nombre='" & "JESUS MANUEL" & "'"
        conectar.Ejecutar(consulta)

pero me manda el sig error:
Connection must be valid an open


Podrias ayudarme,,,

[Dradi7]

Bueno como te explique el Codigo te envia error porq no te has Conectado a la Base de Datos

Código:

Dim consulta as String
try
      conectar.ConexionMySQL()
      consulta = "update datos set nombre='" & "JESUS MANUEL" & "'"
      conectar.Ejecutar(consulta)
catch ex as Exception
      msgbox(ex.message,48)
finally
      conectar.Con.Close()
end try

[gnzsoloyo]

Iniciado por mcofy

Dradi7,, un favor mas,,,,,,,,,, mira que implemente tu codigo,,,,

decidi trabajarlo con un modulo!

Código:

 
        Dim consulta As String
        consulta = "update datos set nombre='" & "JESUS MANUEL" & "'"
        conectar.Ejecutar(consulta)

pero me manda el sig error:
Connection must be valid an open


Podrias ayudarme,,,

Una forma simple es que el método .Ejecutar tenga en su cuerpo una llamada al método .Conectar()
De esa forma funciona lo que postee, que crea la conexión si no existe, o la abre si está cerrada.