Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: estebanvr en 20 Septiembre 2010, 03:04 am



Título: [Ejemplo] Cargar Combobox con Dataset VB.NET
Publicado por: estebanvr en 20 Septiembre 2010, 03:04 am
Aqui muestro un pequeno ejemplo de como cargar los datos de una bd a un combobox en vb.net

Código
  1.  Public Sub Cargar_combo(ByVal combobox As ComboBox, ByVal sqlinstruccion As String)
  2.  
  3.        'Carga el contenido de un dataset en un combobox, solo pueden devolver dos relaciones
  4.        'ya que el combobox cuenta con dos propiedades: text y value
  5.  
  6.        Dim ds As New DataSet
  7.        BD.Llenards(ds, sqlinstruccion)
  8.        combobox.DataSource = ds.Tables(0)
  9.        combobox.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString()
  10.        combobox.ValueMember = ds.Tables(0).Columns(1).Caption.ToString()
  11.    End Sub
  12.  
  13. 'Aqui esta el Codigo de el Procedimiento Llenards
  14. Public Sub Llenards(ByRef ds As DataSet, ByVal sqlinstruccion As String)
  15.        Conectarbd()
  16.        Dim adaptador As New OleDb.OleDbDataAdapter(sqlinstruccion, bd)
  17.        adaptador.Fill(ds)
  18.        Desconectarbd()
  19.    End Sub
  20.  

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
  1. Cargar_combo(Mi_Combobox as Combobox, "select id_persona,nombre_persona from personas")
  2. 'Tratar de que el value del combox siempre sea la primera a escribir
  3. ' en la instruccion sql y luego el texto que se va a mostrar para el usuario
  4.  


Título: Re: [Ejemplo] Cargar Combobox con Dataset VB.NET
Publicado por: Sanlegas en 20 Septiembre 2010, 04:15 am
esto no deberia ir en .net?  :rolleyes:  ;D


Título: Re: [Ejemplo] Cargar Combobox con Dataset VB.NET
Publicado por: estebanvr en 20 Septiembre 2010, 05:12 am
Aqui muestro un pequeno ejemplo de como cargar los datos de una bd a un combobox en vb.net

Código
  1.  Public Sub Cargar_combo(ByVal combobox As ComboBox, ByVal sqlinstruccion As String)
  2.  
  3.        'Carga el contenido de un dataset en un combobox, solo pueden devolver dos relaciones
  4.        'ya que el combobox cuenta con dos propiedades: text y value
  5.  
  6.        Dim ds As New DataSet
  7.        BD.Llenards(ds, sqlinstruccion)
  8.        combobox.DataSource = ds.Tables(0)
  9.        combobox.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString()
  10.        combobox.ValueMember = ds.Tables(0).Columns(1).Caption.ToString()
  11.    End Sub
  12.  
  13. 'Aqui esta el Codigo de el Procedimiento Llenards
  14. Public Sub Llenards(ByRef ds As DataSet, ByVal sqlinstruccion As String)
  15.        Conectarbd()
  16.        Dim adaptador As New OleDb.OleDbDataAdapter(sqlinstruccion, bd)
  17.        adaptador.Fill(ds)
  18.        Desconectarbd()
  19.    End Sub
  20.  

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
  1. Cargar_combo(Mi_Combobox as Combobox, "select id_persona,nombre_persona from personas")
  2. 'Tratar de que el value del combox siempre sea la primera a escribir
  3. ' en la instruccion sql y luego el texto que se va a mostrar para el usuario
  4.  


Título: Re: [Ejemplo] Cargar Combobox con Dataset VB.NET
Publicado por: BlackZeroX (Astaroth) en 20 Septiembre 2010, 06:14 am
.
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!ˇ.