CLR: .Net / Mono / Boo / Otros CLR > VB .NET

[Código Fuente] Conexión con SQL Server y llenado de un ComboBox II Parte

(1/1)

rogerg1983:
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 ---Dim SqlConn As SqlClient.SqlConnection    Public Function AbrirConneccion() As Boolean        Try            Dim StringConn As String = "data source =rgonzalez; initial catalog =Northwind; user id =PRUEBA; password = PRUEBA"            SqlConn = New SqlClient.SqlConnection(StringConn)            SqlConn.Open()            Return True        Catch ex As Exception            MsgBox("Error: " & ex.Message, MsgBoxStyle.Critical, "Municipalidad de Goicoechea")            Return False            SqlConn.Close()        End Try    End Function 
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 ---Public Function Traer_Datos() As Data.DataSet        Try            Dim dataset As New Data.DataSet            Dim SqlComman As New Data.SqlClient.SqlCommand("SELECT FirstName FROM Employees", SqlConn)            Dim SqlAdap As New SqlClient.SqlDataAdapter            SqlAdap.SelectCommand = SqlComman            SqlAdap.Fill(dataset)            Return dataset        Catch ex As Exception            MsgBox(ex.Message, MsgBoxStyle.Critical, "Municipalidad de Goicoechea")        End Try     End Function 
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 ---    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        AbrirConneccion()        Me.ComboBox1.DataSource = Traer_Datos().Tables(0)        Me.ComboBox1.DisplayMember = Traer_Datos().Tables(0).Columns(0).Caption        SqlConn.Close()    End Sub 
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

Navegación

[0] Índice de Mensajes