Principales respuestas
Desplegar datos a un combobox

Pregunta
-
buenas a todos/as
con este código intento cargar a un combobox todos los datos.
Using Conexion As New OleDbConnection(cadenaConexion) Conexion.Open() Dim consultaSQL As String = "Select Nombre_cliente from Tbla_cliente " Dim comando As New OleDbCommand(consultaSQL, Conexion) 'LD=LectorDatos Dim LD As OleDbDataReader LD = comando.ExecuteReader() If LD.Read() Then 'Establecemos valores de la asignación, en el mismo orden de los valores de la consulta ComboBox1.Text = LD.GetString(LD.GetOrdinal("Nombre_cliente")) End If End Using
es decir que si en registro cliente hay 5 clientes por ejemplo, el combo debería desplegar los nombres de las pesarosas.
Respuestas
-
Ya funciona:
Using cn As New OleDbConnection(cadenaConexion) cn.Open() Using cmd As New OleDbCommand("Select Nombre_cliente From Tbla_cliente", cn) Using da As New OleDbDataAdapter(cmd) Dim dt As New DataTable("Nombre_cliente") da.Fill(dt) ComboBox1.DataSource = dt End Using End Using End Using
y como le hago para siempre salga de primero en el Combo esta opción: SELECCIONE
- Marcado como respuesta EliannyRD lunes, 30 de octubre de 2017 17:02
-
Using cn As New OleDbConnection(cadenaConexion) cn.Open() Using cmd As New OleDbCommand("select [Seleccione] as Nombre_cliente union all (Select Nombre_cliente From Tbla_cliente )", cn) Using da As New OleDbDataAdapter(cmd) Dim dt As New DataTable("Nombre_cliente") da.Fill(dt) ComboBox1.DataSource = dt End Using End Using End Using
Si necesitas ayuda sube tu avance de otro modo no puedo ayudarte , Suerte!
- Editado D A M N 1 S e l f lunes, 30 de octubre de 2017 16:21
- Marcado como respuesta EliannyRD lunes, 30 de octubre de 2017 17:02
-
el código me quedó así:
Resuelto:
Using cn As New OleDbConnection(cadenaConexion) cn.Open() Using cmd As New OleDbCommand("Select Nombre_cliente From Tbla_cliente", cn) Using da As New OleDbDataAdapter(cmd) Dim dt As New DataTable("Nombre_cliente") da.Fill(dt) Dim dr As DataRow = dt.NewRow() dr(0) = "SELECCIONE" dt.Rows.InsertAt(dr, 0) ComboBox1.DisplayMember = "Nombre_cliente" ComboBox1.DataSource = dt End Using End Using End Using
- Marcado como respuesta EliannyRD lunes, 30 de octubre de 2017 17:08
Todas las respuestas
-
A mi entender no está bien así como lo tienes, solo cargas el texto del display al combo, lo que puedes hacer es agregar items al combo a medida que DL lee .. Combobox.Items.Add(LD......), También puedes generar un OleDbDataAdapter y por medio de .Fill(tabla) cargar una DataTable y luego el combobox mediante ej:
Combobox.DataSource = tabla
ComboBox.DisplayMember = "CampoNombre"
ComboBox.ValueMember = "CampoID"
-
-
digamos que en la tabla tienes varios campos uno de ellos "Apellido" otro podría ser "Nombre" entonces partiendo de lo que ya tienes echo sería algo así ej:
Dim Tabla as DataTable
Dim Adaptador As New System.Data.OleDb.OleDbDataAdapter(consultaSQL,Conexion)
Adaptador.Fill(Tabla)
ComboBox1.DataSource = Tabla
ComboBox1.DisplayMember = "Apellido"Si quieres agreagr un valor adicional puedes utilizar ComboBox1.ValueMember = "OtroCampo" ej: Nombre
-
me codó asi: pero no funciona todavia.
Using cn As New OleDbConnection(cadenaConexion) cn.Open() Using cmd As New OleDbCommand("Select Nombre_cliente From Tbla_cliente", cn) Using da As New OleDbDataAdapter(cmd) Dim dt As New DataTable("Nombre_cliente") da.Fill(dt) ComboBox1.DisplayMember = "Nombre_cliente" End Using End Using End Using
-
Ya funciona:
Using cn As New OleDbConnection(cadenaConexion) cn.Open() Using cmd As New OleDbCommand("Select Nombre_cliente From Tbla_cliente", cn) Using da As New OleDbDataAdapter(cmd) Dim dt As New DataTable("Nombre_cliente") da.Fill(dt) ComboBox1.DataSource = dt End Using End Using End Using
y como le hago para siempre salga de primero en el Combo esta opción: SELECCIONE
- Marcado como respuesta EliannyRD lunes, 30 de octubre de 2017 17:02
-
Using cn As New OleDbConnection(cadenaConexion) cn.Open() Using cmd As New OleDbCommand("select [Seleccione] as Nombre_cliente union all (Select Nombre_cliente From Tbla_cliente )", cn) Using da As New OleDbDataAdapter(cmd) Dim dt As New DataTable("Nombre_cliente") da.Fill(dt) ComboBox1.DataSource = dt End Using End Using End Using
Si necesitas ayuda sube tu avance de otro modo no puedo ayudarte , Suerte!
- Editado D A M N 1 S e l f lunes, 30 de octubre de 2017 16:21
- Marcado como respuesta EliannyRD lunes, 30 de octubre de 2017 17:02
-
el código me quedó así:
Resuelto:
Using cn As New OleDbConnection(cadenaConexion) cn.Open() Using cmd As New OleDbCommand("Select Nombre_cliente From Tbla_cliente", cn) Using da As New OleDbDataAdapter(cmd) Dim dt As New DataTable("Nombre_cliente") da.Fill(dt) Dim dr As DataRow = dt.NewRow() dr(0) = "SELECCIONE" dt.Rows.InsertAt(dr, 0) ComboBox1.DisplayMember = "Nombre_cliente" ComboBox1.DataSource = dt End Using End Using End Using
- Marcado como respuesta EliannyRD lunes, 30 de octubre de 2017 17:08