Ver Mensaje Individual
  #2 (permalink)  
Antiguo 13/04/2009, 15:36
Avatar de Dradi7
Dradi7
 
Fecha de Ingreso: junio-2008
Ubicación: Peru - Lima
Mensajes: 1.518
Antigüedad: 16 años, 8 meses
Puntos: 220
Respuesta: Conexion en clase!

Puedes crear un Proc

Código vb.net:
Ver original
  1. public Con as MySqlConnection
  2. public Com as MySqlCommand
  3. public Adp as MysqlDataAdapter
  4. public Datos as Dataset
  5.  
  6. ' Procedimiento Para Conectarme a la Bd de MySQL
  7. public Shared sub ConexionMySQL()
  8. try
  9. Con = new MysqlConnection
  10. Con .ConnectionString = "server=localhost; user id=root; password=123456; database=datos"
  11. if Con.state = 1 then Con.Close
  12. Con.Open
  13. catch ex as Exception
  14. msgbox(ex.message,48)
  15. end try
  16. end sub
  17. ' Procedimiento para Ejecutar una Consulta sin devolver ningun valor
  18. public Shared sub Ejecutar(Byval CadMySql as String)
  19. try
  20. Com = new MySqlCommand(CadMySql,Con)
  21. Com.ExecuteNonQuery()
  22. catch ex as Exception
  23. msgbox(ex.message,48)
  24. finally
  25. Com.Dispose()
  26. end try
  27. end sub
  28.  
  29. ' Procedimiento para Ejecutar una Consulta devolviendo Datos
  30. public Shared function Mostrar(Byval CadMySql as String) as DataTable
  31. try
  32. Adp = new MySqlDataAdapter(CadMySql, Con)
  33. Datos = new DataSet
  34. Adp.fill(Datos,"x")
  35. catch ex as Exception
  36. msgbox(ex.message,48)
  37. finally
  38. Adp.Dispose()
  39. end try
  40. return Datos.Tables("x")
  41. 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()
__________________
La clave de todo triunfador es eliminar todas sus excusas y sus limitaciones