Llenar ComboxBox con Datos de SQL Server en Visual Basic Net

Llenar ComboxBox con Datos de SQL Server en Visual Basic Net

En este tutorial, le enseñaré cómo llenar un Combobox con datos en VB.Net y SQL Server 2019. Este método tiene la capacidad de recuperar los datos en la base de datos del servidor sql y mostrarlos en el cuadro combinado. Este es un método simple pero poderoso que puede hacerlo en poco tiempo. Siga la guía paso a paso para saber cómo funciona.

Crear base de datos
Cree una base de datos llamada «dbperson» y ejecute el siguiente script.

USE [dbperson]
GO
 

SET ANSI_NULLS ON
GO
 
SET QUOTED_IDENTIFIER ON
GO
 
CREATE TABLE [dbo].[tblperson](
  [PersonID] [INT] IDENTITY(1,1) NOT NULL,
  [Fname] [nvarchar](50) NULL,
  [Lname] [nvarchar](50) NULL
) ON [PRIMARY]
GO

Creando Aplicación
Paso 1
Abra Microsoft Visual Studio 2010, 2012, 2013, 2015, 2017 0 2019 y cree una nueva aplicación de formulario de Windows para Visual Basic.

Buscar Registros Entre dos Fechas en C Sharp y Base de Datos MS Access

Paso 2
Agregue un combobox dentro del formulario. Luego haga el formulario tal como se muestra a continuación.

Paso 3
Presione F7 para abrir el editor de código. En el editor de código, agregue un espacio de nombres para acceder a las bibliotecas de SQL Server.

Imports System.Data.SqlClient

Paso 4
Cree una conexión entre Visual Basic y la base de datos de SQL Server. Después de eso, declare e inicialice todas las clases y variables que se necesitan.

Dim con As SqlConnection = New SqlConnection("Data Source=.;Database=dbperson;trusted_connection=true;")
   Dim cmd As SqlCommand
   Dim da As SqlDataAdapter
   Dim dt As DataTable
   Dim sql As String

Paso 5
Cree un método para llenar datos en el combobox en la base de datos.

Private Sub fillCombo(sql As String, cbo As ComboBox)
       Try
           con.Open()

           cmd = New SqlCommand
           da = New SqlDataAdapter
           dt = New DataTable

           With cmd
               .Connection = con
               .CommandText = sql
           End With

           With da
               .SelectCommand = cmd
               .Fill(dt)
           End With

           cbo.DataSource = dt
           cbo.DisplayMember = dt.Columns(1).ColumnName
           cbo.ValueMember = dt.Columns(0).ColumnName

       Catch ex As Exception
           MsgBox(ex.Message)
       Finally
           con.Close()
           da.Dispose()
       End Try
   End Sub

Paso 6
Escriba los siguientes códigos para completar los datos en el cuadro combinado en la primera carga del formulario.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       sql = "SELECT * FROM tblperson"
       fillCombo(sql, ComboBox1)

   End Sub

Ahí lo tienes, hemos aprendido cómo llenar un Combobox con datos en VB.Net y SQL Server 2019. Espero que este sencillo tutorial te ayude a lo que estás buscando.

Antes de la descarga del Tutorial presiona el siguiente enlace para que te suscribas a nuestro Canal de YouTube:

SUSCRIBETE AL CANAL DE YOUTUBE AQUI !

Llenar ComboxBox con Datos de SQL Server en Visual Basic Net – Descargar el Tutorial en el siguiente enlace:

DESCARGAR AQUÍ

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *