Sección de ejemplos vb.net

46 - Cargar campo en un Combobox

Simple ejemplo en visual basic.net , para cargar un campo de una tabla en un control ComboBox

En el ejemplo, primero se crea una nueva conexión hacia la base de datos de de sql server., en este caso se llama base_prueba

Paso 2, se crea un SqlCommand pasándole la consulta , por ejemplo : "Select Campo From Tabla"

Paso 3 se llena un DataSet con los datos

Paso 4 se asigna al DataSource del ComboBox el dataset

Paso 5 Se indica a la propiedad DisplayMember del combobox , el nombre del campo a visualizar

Código fuente

Option Explicit On Option Strict On ' Espacio Imports System.Data.SqlClient Public Class Form1 ' Cadena de conexión Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ "Integrated Security=True;" & _ "Initial Catalog=bd_prueba" Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load 'enviar el control ComboBox y la consulta cargar_Combo(ComboBox1, "Select Apellido From t_clientes") End Sub Private Sub cargar_Combo( _ ByVal ComboBox As ComboBox, _ ByVal sql As String) ' nueva conexión indicando al SqlConnection la cadena de conexión Dim cn As New SqlConnection(cs) Try ' Abrir la conexión a Sql cn.Open() ' Pasar la consulta sql y la conexión al Sql Command Dim cmd As New SqlCommand(sql, cn) ' Inicializar un nuevo SqlDataAdapter Dim da As New SqlDataAdapter(cmd) 'Crear y Llenar un Dataset Dim ds As New DataSet da.Fill(ds) ' asignar el DataSource al combobox ComboBox.DataSource = ds.Tables(0) ' Asignar el campo a la propiedad DisplayMember del combo ComboBox.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString Catch ex As Exception MessageBox.Show(ex.Message.ToString, _ "error", MessageBoxButtons.OK, _ MessageBoxIcon.Error) Finally If cn.State = ConnectionState.Open Then cn.Close() End If End Try End Sub End Class

Recursos vb6 - enlaces relacionados

Ado - Cargar un recordset en un Combobox y en un control Listbox

Buscar en Recursos vb