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:

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

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:

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

.