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

Respuesta
1

Dos cosas:

Primero:

La imagen que pones no se ve nada, es muy chica.

Segundo:

Usa el botón de "Insertar Código" como se indica en esta imagen

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 Class

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

http://msdn.microsoft.com/es-es/library/bh8kx08z.aspx

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas