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.

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Í