Cadena De Conexión App.config En Visual Basic.net

Cadenas de Conexión

MANUEL RETAMOZO A.

Cadena De Conexión App.config Que es App.config? App.config es un Archivo de configuracion de Aplicaciones,que esta formado por un conjunto de instrucciones en Xml,que tambien podemos encriptarla,lo cual nos daria una ventaja de poder ocultar los parametrosde conexión al motor de bases de datos.

Ejemplo Practico: Mediante este ejemplo se mostrara una de las formas de utilizar las cadenas de conexión.Para esta ocasión se utilizara un archivo de configuracion de Aplicaciones(App.config) en el entorno de Windows Applications,en la cual nos conectaremos con la Base de datos Northwind y mostraremos todos los empleados. -Primero Creamos un Proyecto Windows Applications(DatosEmpleado) -Dentro del Proyecto creamos un Formulario(Form1.vb) y una Clase (Funciones.vb)

-Luego de ello nos dirigimos al Menu “Proyecto” y seleccionamos el submenu “Propiedades del Proyecto”

Visual Basic.Net

Página 1

Cadenas de Conexión

MANUEL RETAMOZO A.

-Una vez dentro del submenu nos dirigimos a la pestaña “Configuración” y presionamos Click derecho en cualquier zona en blanco de la ventana y veremos el siguiente menu:

-Ya visualizado el menu seleccionamos la primera opcion “Agregar configuracion” y luego de ellos nos podemos dar cuenta que en nuestro Explorador de Soluciones se agrego nuestro archivo “app.config”

-Y si le damos doble Click al archivo app.config veremos que dentro de el se ha generado un codigo predeterminado. -Ahora ya dentro del codigo de app.config nos ubicamos donde dice <system.diagnostics> y antes de el ponemos nuestra cadena de conexión:



Visual Basic.Net

Página 2

Cadenas de Conexión

MANUEL RETAMOZO A.

-y nuestro archivo app.config nos quedaria de esta manera: <system.diagnostics> <sources> <source name="DefaultSource" switchName="DefaultSwitch"> <listeners> <switches> <sharedListeners> -Luego de ello dentro de la Clase : Funciones.vb, referenciamos e importamos a System.configuration y llamamos a la cadena de conexión. Imports System.Data Imports System.Data.SqlClient Imports System.Configuration Public Class Funciones Protected configuracion As ConnectionStringSettings = ConfigurationManager.ConnectionStrings("cn") Dim cn As New SqlConnection(configuracion.ConnectionString)

Visual Basic.Net

Página 3

Cadenas de Conexión

MANUEL RETAMOZO A.

Public Function DatosEmpleado() As DataTable Dim da As New SqlDataAdapter("select employeeid as Codigo,(firstname+','+lastname)as Nombres,birthdate as Cumpleaños,photo as foto from employees", cn) Dim tbl As New DataTable da.Fill(tbl) Return tbl End Function End Class -Dentro del Formulario(Form1.vb) agregamos un Datagridview: Imports System.Data Public Class Form1 Dim obj As New Funciones Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "EMPLEADOS DE BD NORTHWIND" Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow Dim tbl As DataTable = obj.DatosEmpleado Me.DataGridView1.DataSource = tbl Me.DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCellsExceptHeaders Me.DataGridView1.AllowUserToAddRows = False With Me.DataGridView1 'Manipulando el ImageLayout del datagridview1 Dim columnaFoto As DataGridViewImageColumn columnaFoto = CType(.Columns(3), DataGridViewImageColumn) columnaFoto.ImageLayout = DataGridViewImageCellLayout.Zoom End With Me.DataGridView1.Columns(0).Width = 50 Me.DataGridView1.Columns(2).Width = 80 Me.DataGridView1.RowHeadersVisible = False End Sub End Class

Visual Basic.Net

Página 4

Cadenas de Conexión

MANUEL RETAMOZO A.

-Cuando ejecutamos el Proyecto tendremos el siguiente resultado

Visual Basic.Net

Página 5