VB 2008 Error al llenar una combobox.
Agregue una tabla a la base de datos de Ejemplo (Northwind. Sdf) llamada "Empleados" con los siguientes campos:
Campo: CEDULA
Tipo: nvarchar
Clave Primaria: Si
------------------------------
Campo: NOMBRES
Tipo: nvarchar
NO NULL
-----------------------------
Imagen del error: 
Y tengo el siguiente código con el que intento llenar un combobox con el campo NOMBRES pero me muestra un error:
Imports System.Data.SqlServerCe
Public Class frmEjemplo
Private Sub frmEjemplo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connString As String = "Data Source=C:\Northwind.sdf"
' Configuramos el objeto Connection, pasándole
' la cadena de conexión.
Using cnn As New SqlCeConnection(connString)
' Configuramos la consulta de selección
Dim sql As String = "SELECT * FROM Empleados"
' Creamos el adaptador de datos
Dim da As New SqlCeDataAdapter(sql, cnn)
' Creamos el objeto DataTable
Dim dt As New DataTable("Empleados")
' Rellenamos el objeto DataTable
da.Fill(dt)
' Configuramos el cuadro combinado
With ComboBox1
.DataSource = dt
.DisplayMember = "NOMBRES"
.ValueMember = "CEDULA"
End With
End Using
End Sub
End Class
1 respuesta
Agregue una tabla a la base de datos de Ejemplo (Northwind.sdf) llamada "Empleados" con los siguientes campos:
Campo: CEDULA
Tipo: nvarchar
Clave Primaria: Si
------------------------------
Campo: NOMBRES
Tipo: nvarchar
NO NULL
-----------------------------
Imagen del error: 
Uploaded with ImageShack.us
Y tengo el siguiente código con el que intento llenar un combobox con el campo NOMBRES pero me muestra un error:
I
mports System.Data.SqlServerCe
Public Class frmEjemplo
Private Sub frmEjemplo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connString As String = "Data Source=C:\Northwind.sdf"
' Configuramos el objeto Connection, pasándole
' la cadena de conexión.
Using cnn As New SqlCeConnection(connString)
' Configuramos la consulta de selección
Dim sql As String = "SELECT * FROM Empleados"
' Creamos el adaptador de datos
Dim da As New SqlCeDataAdapter(sql, cnn)
' Creamos el objeto DataTable
Dim dt As New DataTable("Empleados")
' Rellenamos el objeto DataTable
da.Fill(dt)
' Configuramos el cuadro combinado
With ComboBox1
.DataSource = dt
.DisplayMember = "NOMBRES"
.ValueMember = "CEDULA"
End With
End Using
End Sub
End ClassGracias por su ayuda.
Hay un error de concepto.
El método Fill de DataAdapter, llena un DataSet y no un DataTable.
Luego si deseas llenas DT con el DataTable del DataSet
dt = DataSet1.Tables(0)
Más información:
