Que tal gracias por contestar,
Pues no tiene gran ciencia pero es la siguiente :
"SELECT ID,ANIMAL FROM ANIMALES ORDER BY ANIMAL"
para el llenado del combo box hago lo siguiente
utilizo 2 funciones la primera para obtener los datos del sql y la otra para asignarselos al combo
'funcion para recuperar datos de sql
Public Shared Function RecuperarDeSQL(ByVal Query As String, ByVal Conexion As String, Optional ByRef NumRegistros As Integer = 0) As DataSet
Dim Resultados As DataSet
Dim DA As SqlDataAdapter
Dim Con As SqlConnection
Try
Con = New SqlConnection(Conexion)
Con.Open()
DA = New SqlDataAdapter(Query, Con)
Resultados = New DataSet
DA.Fill(Resultados, "Resultado")
NumRegistros = Resultados.Tables(0).Rows.Count()
If NumRegistros = 0 Then
Resultados.Tables.Add()
'Resultados.Tables(0).Rows.Add()
Return Resultados
End If
Return Resultados
Con.Close()
DA = Nothing
Con = Nothing
Catch ex As Exception
End Try
Resultados = Nothing
Return Resultados
End Function
'FUncion para llenar el combo box
Public Sub LlenaCombo(ByRef Combo As ComboBox, ByVal CampoValor As String, ByVal CampoMostrar As String, ByVal Consulta As String, ByVal Conexion As String)
Dim DS As DataSet
DS = RecuperarDeSQL(Consulta, Conexion)
Combo.DataSource = DS.Tables(0)
Combo.DisplayMember = CampoMostrar
Combo.ValueMember = CampoValor
End Sub
saludos
Y se utiliza de la siguiente forma:
LlenaCombo(Me.Combo,"ID","Animal","SELECT ID,ANIMAL FROM ANIMALES ORDER BY ANIMAL")