Columna base de datos en un Combobox

Hola,

espero que el siguiente ejemplo te ayude:

Dim strSQL As String = "SELECT CAMPO1, VALOR FROM Tabla"
Dim Connection As New
System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\Ejemplo.mdb;")
Dim DtAdapter As New System.Data.OleDb.OleDbDataAdapter(strSQL,
Connection)
Dim DtSet As New DataSet
DtAdapter.Fill(DtSet, "Ejemplo")
With ComboBox1
.DataSource = DtSet.Tables("Ejemplo")
.DisplayMember = "CAMPO1"
.SelectedIndex = 0
End With
Connection.Close()
DtAdapter.Dispose()
DtSet.Dispose()

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"khavayero" wrote:

Mostrar la cita

hola!!
tengo una duda, me podeis escribir el codigo(no lo quiero
hacer con asistente) para que se muestre una columna de
una base de datos en un combobox. Tambien me gustaria
saber como almacenar el dato seleccionado.
Gracias y un saludo

muchas gracias, es lo que queria.
Un saludo


Mostrar la cita

Hola,

espero que el siguiente ejemplo te ayude:

Dim strSQL As String = "SELECT CAMPO1, VALOR

FROM Tabla"
Mostrar la cita

Dim Connection As New
System.Data.OleDb.OleDbConnection

("Provider=Microsoft.Jet.OLEDB.4.0;Data
Mostrar la cita

Source=c:\Ejemplo.mdb;")
Dim DtAdapter As New

System.Data.OleDb.OleDbDataAdapter(strSQL,
Mostrar la cita

Connection)
Dim DtSet As New DataSet
DtAdapter.Fill(DtSet, "Ejemplo")
With ComboBox1
.DataSource = DtSet.Tables("Ejemplo")
.DisplayMember = "CAMPO1"
.SelectedIndex = 0
End With
Connection.Close()
DtAdapter.Dispose()
DtSet.Dispose()

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"khavayero" wrote:

Mostrar la cita

hola!!
tengo una duda, me podeis escribir el codigo(no lo

quiero
Mostrar la cita

Mostrar la cita

hacer con asistente) para que se muestre una columna

de
Mostrar la cita

Mostrar la cita

una base de datos en un combobox. Tambien me gustaria
saber como almacenar el dato seleccionado.
Gracias y un saludo

.