SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: rogerg1983 en Jueves 8 de Noviembre de 2007, 15:01

Título: Conexión con SQL Server y llenado de un ComboBox II Parte
Publicado por: rogerg1983 en Jueves 8 de Noviembre de 2007, 15:01
Continuando con el articulo, Nos vamos a la Base de datos Northwind a la carpeta Usuarios, en el panel de la derecha presionamos clic derecho y “Nuevo usuario de base de datos”.
Luego escogemos el usuario Prueba y marcamos la casilla db_owner que el usuario tiene derecho a insertar modificar y eliminar elementos de la base de datos.

Paso 2: Código.

Abrimos un nuevo proyecto en Visual Basic.net y escogemos aplicación de Windows, insertamos un Button y un ComboBox

Luego digitamos este procedimiento de conexión que nos permite comunicarnos con SqlServer y la Base de Datos:

Código: vb.net
  1. Dim SqlConn As SqlClient.SqlConnection
  2.     Public Function AbrirConneccion() As Boolean
  3.         Try
  4.             Dim StringConn As String = "data source =rgonzalez; initial catalog =Northwind; user id =PRUEBA; password = PRUEBA"
  5.             SqlConn = New SqlClient.SqlConnection(StringConn)
  6.             SqlConn.Open()
  7.             Return True
  8.         Catch ex As Exception
  9.             MsgBox("Error: " & ex.Message, MsgBoxStyle.Critical, "Municipalidad de Goicoechea")
  10.             Return False
  11.             SqlConn.Close()
  12.         End Try
  13.     End Function
  14.  

Noten que en la variable StringConn pusimos la base de datos el usuario y el password que ya tenemos creado en SQLServer, con este procedimiento nos conectamos a la base de datos y sin olvidar el nombre de servidor que tenemos instalado que por defecto es LOCAL.

Luego digitamos el siguiente código que nos permite consultar una tabla en la base de datos:

Código: vb.net
  1. Public Function Traer_Datos() As Data.DataSet
  2.         Try
  3.             Dim dataset As New Data.DataSet
  4.             Dim SqlComman As New Data.SqlClient.SqlCommand("SELECT FirstName FROM Employees", SqlConn)
  5.             Dim SqlAdap As New SqlClient.SqlDataAdapter
  6.             SqlAdap.SelectCommand = SqlComman
  7.             SqlAdap.Fill(dataset)
  8.             Return dataset
  9.         Catch ex As Exception
  10.             MsgBox(ex.Message, MsgBoxStyle.Critical, "Municipalidad de Goicoechea")
  11.         End Try
  12.  
  13.     End Function
  14.  

Noten que el select me va a traer el primer nombre de los empleados.

Luego en el evento del botón digitamos lo siguiente:

Código: vb.net
  1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         AbrirConneccion()
  3.         Me.ComboBox1.DataSource = Traer_Datos().Tables(0)
  4.         Me.ComboBox1.DisplayMember = Traer_Datos().Tables(0).Columns(0).Caption
  5.         SqlConn.Close()
  6.     End Sub
  7.  

El combo box se llena mandando a llamar al procedimiento Traer_Datos, el cual le especificamos en el DisplayMember que columna queremos utilizar para llenar el ComboBox.


Saludos Cordiales,

Ing. Róger González Rojas
Costa Rica


Autor: Ing. Róger González Rojas