Enlazar un combobox con tabla de sql server

Pega esta funcion en una modulo o dentro de tu formulario..

para ejecutarla solo llamas la funcion, le dices que combo quires llenar y
la consulta SQL Select que quieres ejecutar o el nombre del procedimeinto
almacenado..

ejemplo

LlenarCombo(ComboBox1, "Select ID, Nombre From Empleados")

ahi veras..

saludos..



Public Function LlenarCombo(ByVal ElCombo As ComboBox, ByVal SQLConsulta As
String) As Long

Dim MiTabla As String = "MiTabla"

Try

Dim cnnMiConexion As SqlConnection = New SqlConnection( TuCadenaDeConexion)

cnnMiConexion.Open()

Dim daMiDataAdapter As SqlDataAdapter = New SqlDataAdapter(SQLConsulta,
cnnMiConexion)

' Load a data set.

Dim dsMiDataSet As DataSet = New DataSet

daMiDataAdapter.Fill(dsMiDataSet, MiTabla)

' intRegistros = dsMiDataSet.Tables(1).Rows.Count()

cnnMiConexion.Close()

' Llenar el combo con los datos

With ElCombo

.DisplayMember = dsMiDataSet.Tables(MiTabla).Columns.Item(1).ToString

.ValueMember = dsMiDataSet.Tables(MiTabla).Columns.Item(0).ToString

.DataSource = dsMiDataSet.Tables(MiTabla)

End With

LlenarCombo = 0

Exit Function

Catch Excepcion As Exception

trComando)

Debug.WriteLine("***************************************************************")

Debug.WriteLine("Se ha producido un error en la funcion LlenarCombo")

Debug.WriteLine("Fecha: " & DateTime.Now)

Debug.WriteLine("Comando Ejecutado: " & SQLConsulta)

Debug.WriteLine("")

Debug.WriteLine(Excepcion.ToString())

LlenarCombo = -1

End Try

End Function



"Antonio" wrote in message
news:
Mostrar la cita

Tengo un combo en el que quiero que aparezcan los datos de un campo de una
tabla en sql server. Creo un Dataset con una sola tabla y despues defino
las propiedades del combo de la siguiente manera:

me.combo.DataSource = Dataset
me.combo.DisplayMember = "campo1"
me.combo.ValueMember = "campo2"

He puesto esto en el Load de formulario y tambien he probado en el evento
GotFocus del combo y al lo maximo que he llegado ha sido a que me aparezca
en el combo "System.Data.DataView".

He comprobado el dataset y tiene datos.

Agradezco la ayuda que llevo un par de dias atascado.

Utilizo VS 2003

Un saludo y gracias de antemano