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:
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:
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:
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
