Foro de elhacker.net

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

  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

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
 

esto no deberia ir en .net?  :rolleyes:  ;D

  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
 

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
 

.
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!¡.