combobox

Hola Jaime,

suponiendo la tabla TABLA con los campos (ID, CAMPO1, VALOR) y un ComboBox
para insertar sus datos, pongo lo siguiente para una conexión y uso con
Access:

Dim strConexion As String
Dim objConexion As OleDb.OleDbConnection
Dim objComando As OleDb.OleDbDataAdapter
Dim objDS As New DataSet
strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\Ejemplo.mdb"
objConexion = New OleDb.OleDbConnection(strConexion)
objComando = New OleDb.OleDbDataAdapter("Select ID, CAMPO1, VALOR From
Tabla", strConexion)
objComando.Fill(objDS, "Ejemplo")
ComboBox1.DataSource = objDS.Tables("Ejemplo")
ComboBox1.DisplayMember = "CAMPO1"
ComboBox1.ValueMember = "ID"
ComboBox1.SelectedItem = 0

Espero que te sirva. Ya comentarás si es así.

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"Jaime Sandoval" wrote:

De nuevo, me imagino, pero Como lleno un combobox desde un dataset

Tengo este codigo:
cmbDepartamento.DisplayMember = "departamento"

cmbDepartamento.ValueMember = "codigo"

cmbDepartamento.DataSource = o_combox.Tables(0).DefaultView

cmbDepartamento.SelectedIndex = -1



Pero no me funciona, me muestra el total de registros, pero nada..





Gracias

Gracias por responder Jaime.

El caso es que ya está resuelto. :-)

Me alegro.

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"Jaime Sandoval" wrote:

Gracias,

Me costo un poco entender porque pasa esto, es mas aún no entiendo, pero
resolvi el problema. Lo que pasaba es que cuanto yo tenia mi query le decia

SELECT * FROM TABLA y eso no me funciona, tiene que ser

SELECT ID, CAMPO1, VALOR FROM TABLA

no se porque pero así es.

Gracias

"Jorge Serrano [MVP VB]"
escribió
en el mensaje news:
> Hola Jaime,
>
> suponiendo la tabla TABLA con los campos (ID, CAMPO1, VALOR) y un ComboBox
> para insertar sus datos, pongo lo siguiente para una conexión y uso con
> Access:
>
> Dim strConexion As String
> Dim objConexion As OleDb.OleDbConnection
> Dim objComando As OleDb.OleDbDataAdapter
> Dim objDS As New DataSet
> strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA
SOURCE=c:\Ejemplo.mdb"
> objConexion = New OleDb.OleDbConnection(strConexion)
> objComando = New OleDb.OleDbDataAdapter("Select ID, CAMPO1, VALOR From
> Tabla", strConexion)
> objComando.Fill(objDS, "Ejemplo")
> ComboBox1.DataSource = objDS.Tables("Ejemplo")
> ComboBox1.DisplayMember = "CAMPO1"
> ComboBox1.ValueMember = "ID"
> ComboBox1.SelectedItem = 0
>
> Espero que te sirva. Ya comentarás si es así.
>
> Un saludo,
>
> Jorge Serrano Pérez
> MVP VB.NET
>
>
> "Jaime Sandoval" wrote:
>
> > De nuevo, me imagino, pero Como lleno un combobox desde un dataset
> >
> > Tengo este codigo:
> > cmbDepartamento.DisplayMember = "departamento"
> >
> > cmbDepartamento.ValueMember = "codigo"
> >
> > cmbDepartamento.DataSource = o_combox.Tables(0).DefaultView
> >
> > cmbDepartamento.SelectedIndex = -1
> >
> >
> >
> > Pero no me funciona, me muestra el total de registros, pero nada..
> >
> >
> >
> >
> >
> > Gracias
> >
> >
> >