[Ejemplo] Cargar Combobox con Dataset VB.NET

[estebanvr]

Aqui muestro un pequeno ejemplo de como cargar los datos de una bd a un combobox en vb.net

Código (vb.net) [Seleccionar] Expandir


 Public Sub Cargar_combo(ByVal combobox As ComboBox, ByVal sqlinstruccion As String)

       'Carga el contenido de un dataset en un combobox, solo pueden devolver dos relaciones
       'ya que el combobox cuenta con dos propiedades: text y value

       Dim ds As New DataSet
       BD.Llenards(ds, sqlinstruccion)
       combobox.DataSource = ds.Tables(0)
       combobox.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString()
       combobox.ValueMember = ds.Tables(0).Columns(1).Caption.ToString()
   End Sub

'Aqui esta el Codigo de el Procedimiento Llenards
Public Sub Llenards(ByRef ds As DataSet, ByVal sqlinstruccion As String)
       Conectarbd()
       Dim adaptador As New OleDb.OleDbDataAdapter(sqlinstruccion, bd)
       adaptador.Fill(ds)
       Desconectarbd()
   End Sub


Espero que a alguien le serva  ya que el ejemplo en el que me base para este codigo me fue dificil de encontrarlo
Alguna duda, sugerencia o comentario; me lo hacen saber por fa

*Este ejemplo puede ser utilizado de la siguiente Manera

Código (vb.net) [Seleccionar] Expandir


Cargar_combo(Mi_Combobox as Combobox, "select id_persona,nombre_persona from personas")
'Tratar de que el value del combox siempre sea la primera a escribir
' en la instruccion sql y luego el texto que se va a mostrar para el usuario


[Sanlegas]

esto no deberia ir en .net?   

[estebanvr]

Aqui muestro un pequeno ejemplo de como cargar los datos de una bd a un combobox en vb.net

Código (vb.net) [Seleccionar] Expandir


 Public Sub Cargar_combo(ByVal combobox As ComboBox, ByVal sqlinstruccion As String)

       'Carga el contenido de un dataset en un combobox, solo pueden devolver dos relaciones
       'ya que el combobox cuenta con dos propiedades: text y value

       Dim ds As New DataSet
       BD.Llenards(ds, sqlinstruccion)
       combobox.DataSource = ds.Tables(0)
       combobox.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString()
       combobox.ValueMember = ds.Tables(0).Columns(1).Caption.ToString()
   End Sub

'Aqui esta el Codigo de el Procedimiento Llenards
Public Sub Llenards(ByRef ds As DataSet, ByVal sqlinstruccion As String)
       Conectarbd()
       Dim adaptador As New OleDb.OleDbDataAdapter(sqlinstruccion, bd)
       adaptador.Fill(ds)
       Desconectarbd()
   End Sub


Espero que a alguien le serva  ya que el ejemplo en el que me base para este codigo me fue dificil de encontrarlo
Alguna duda, sugerencia o comentario; me lo hacen saber por fa

*Este ejemplo puede ser utilizado de la siguiente Manera

Código (vb.net) [Seleccionar] Expandir


Cargar_combo(Mi_Combobox as Combobox, "select id_persona,nombre_persona from personas")
'Tratar de que el value del combox siempre sea la primera a escribir
' en la instruccion sql y luego el texto que se va a mostrar para el usuario


[BlackZeroX]

.
Aqui te dejo una clase para conexión... de forma Pre esta en MySQL soloe s cuestio de cambiar el StringConnetion para usarlo en otras BDD...

http://foro.elhacker.net/net/ado_y_vbnet-t300702.0.html;msg1491070#msg1491070

Dulces Lunas!¡.