Organizar el Codigo de Conection String para las DB
Comunmente podemos comenter el error de tener el codigo regado de nuestras conecciones a las BAses de datos, frecuentemente cuando comenzamos a escribir nuestros primeros programas.
y es comun que en cada Boton de Guardar, Borrar, Editar e incluso Actualizar, tenemos el codigo de conecciones completito a la Base de datos.
Pero que pasa cuando nuestro sistema se hace extenso y ya tenemos mas de 200 Forms o Pantallas en las que nos enlazamos a nuestras BAses de datos y tenemos que Migrar de Servidor.
Anteriormente era comun que cuando habia que cambiar de servidor tendriamos que redirigir todas nuestras conecciones de nuestra DB al nuevo servidor, y era un lio porque con algunas que se nos pasara, estas estarian modificando informacion en otro servidor que ya no estariamos utilizando y la informacion de nuestro sistema ya no seria comfiable.
Quedaria todo inestable y que es lo que podemos hacer en esto.
Centralizar la Informacion y mandarla llamar cada vez que querramos hacer uso de la DB.
un ejemplo sencillo es el siguiente.
En ASP.NET existe una carpeta de Sistema llamada App_Code en la que crearemos un archivo tipo .vb
y escribiremos el codigo de coneccion a nuestra DB
'Inicia el codigo de coneccion a nuestra Base de datos
Imports Microsoft.VisualBasic
Imports System.Data
Namespace slumnet
Public Class dbbea
Inherits System.Web.UI.Page
Protected connString As String = Nothing
Function ConnectionString() As String
If connString Is Nothing Then
connString = "DRIVER=Firebird/InterBase(r) driver;UID=usuario;PWD=pazzword;DBNAME=IPDELSERVIDOR:C:/SistemaWEB\BD\DB.MDB;"
End If
Return connString
End Function
End Class
End Namespace
´termina el codigo de coneccion a la Base de Datos
Y Con esto tenemos una clase en la que ya podemos utilizarla desde cualquier modulo que querramos hacer uso de la DB
Imports System.Data
Imports MySql.Data
Imports System.Data.OleDb
Imports System.Data.Odbc
Imports FirebirdSql.VisualStudio.DataTools
Dim ObjstrConString As New slumnet.dbbea
Dim dr As OdbcDataReader
Dim queryString As String = "SELECT * FROM A_REPTURNO where ART_IDTURNO = " & row.ToString
'
Dim command As New OdbcCommand(queryString)
Using connection As New OdbcConnection(ObjstrConString.ConnectionString)
command.Connection = connection
connection.Open()
Try
dr = command.ExecuteReader()
consulta_firebird.DataSource = dr
consulta_firebird.DataBind()
connection.Close()
dr.Close()
Catch ex As Exception
TextBox1.Text = TextBox1.Text + " Error ----" + ex.Message
consulta_firebird.DataSource = ""
consulta_firebird.DataBind()
End Try
connection.Close()
End Using
Con esto al momento de hacer mantenimiento a la DB o simplemente cambiar de servidor de Base de datos, solo cambiaremos el modulo de coneccion y Todo nuestro Sistema quedara Redirigido a donde lo Nececitemos.
