URGENTE... Llenar combobox VB.NET

Dim strConn As String = "Server=myservr;Password=mypass;Persist
Security Info=True;User ID=sa;Initial Catalog=mydb"
Dim sql As String = "Select * from mytbl"
Dim conn As New SqlConnection(strConn)
Dim objDR As SqlDataReader
Dim Cmd As New SqlCommand(sql, conn)
conn.Open()
Dim count As Integer
objDR =
Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

While objDR.Read
name.Items.Add(objDR("firstn"))
End While

objDR.Close



Saludos:

Jesús López
MVP Visual Basic
Mentor Asociado Solid Quality Learning
www.solidqualitylearning.com

PD: Agradecería saber si esta respuesta te ha servido


"Jorge Landaeta" escribió en el
mensaje news:
Mostrar la cita

Buenos Días, estoy llenando un combobox (se llama name) y el dropdownstyle
lo
coloqué en dropdownlist:

Dim strConn As String = "Server=myservr;Password=mypass;Persist Security
Info=True;User ID=sa;Initial Catalog=mydb"
Dim sql As String = "Select * from mytbl"
Dim conn As New SqlConnection(strConn)
Dim objDR As SqlDataReader
Dim Cmd As New SqlCommand(sql, conn)
conn.Open()
Dim count As Integer
objDR =
Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
name.Items.Add(New ListItem("Name", 0))

OJO NO ME DEJA COLOCAR ESTA PROPIEDAD LISTITEM EN ASPX FUNCIONABA

While objDR.Read
name.Items.Add(New ListItem(objDR("firstn"))
End While

OJO AQUÍ TAMPOCO ME DEJA COLOCAR ESTA PROPIEDAD LISTITEM EN ASPX
FUNCIONABA

Acaso la manera de llenar un combobox varía en VB.NET y ASPX?
Si alguien pudiera ayudarme con esto lo agradecería

Demasiadas Gracias de verdad me has ayudado full... Ya sé que puedo solicitar
ayuda con ustedes cuando sea necesario...

Realmente muy agradecido

"SqlRanger" wrote:

Mostrar la cita

Dim strConn As String = "Server=myservr;Password=mypass;Persist
Security Info=True;User ID=sa;Initial Catalog=mydb"
Dim sql As String = "Select * from mytbl"
Dim conn As New SqlConnection(strConn)
Dim objDR As SqlDataReader
Dim Cmd As New SqlCommand(sql, conn)
conn.Open()
Dim count As Integer
objDR =
Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

While objDR.Read
name.Items.Add(objDR("firstn"))
End While

objDR.Close



Saludos:

Jesús López
MVP Visual Basic
Mentor Asociado Solid Quality Learning
www.solidqualitylearning.com

PD: Agradecería saber si esta respuesta te ha servido


"Jorge Landaeta" escribió en el
mensaje news:
> Buenos Días, estoy llenando un combobox (se llama name) y el dropdownstyle
> lo
> coloqué en dropdownlist:
>
> Dim strConn As String = "Server=myservr;Password=mypass;Persist Security
> Info=True;User ID=sa;Initial Catalog=mydb"
> Dim sql As String = "Select * from mytbl"
> Dim conn As New SqlConnection(strConn)
> Dim objDR As SqlDataReader
> Dim Cmd As New SqlCommand(sql, conn)
> conn.Open()
> Dim count As Integer
> objDR =
> Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
> name.Items.Add(New ListItem("Name", 0))
>
> OJO NO ME DEJA COLOCAR ESTA PROPIEDAD LISTITEM EN ASPX FUNCIONABA
>
> While objDR.Read
> name.Items.Add(New ListItem(objDR("firstn"))
> End While
>
> OJO AQUÍ TAMPOCO ME DEJA COLOCAR ESTA PROPIEDAD LISTITEM EN ASPX
> FUNCIONABA
>
> Acaso la manera de llenar un combobox varía en VB.NET y ASPX?
> Si alguien pudiera ayudarme con esto lo agradecería

Disculpa una última pregunta, en aspx me dejaba colocar el value del item al
lado, pero en VB no... Cómo se hace?


en aspx colocaba:

name.Items.Add(objDR("firstn"), objDR("id"))



"SqlRanger" wrote:

Mostrar la cita

Dim strConn As String = "Server=myservr;Password=mypass;Persist
Security Info=True;User ID=sa;Initial Catalog=mydb"
Dim sql As String = "Select * from mytbl"
Dim conn As New SqlConnection(strConn)
Dim objDR As SqlDataReader
Dim Cmd As New SqlCommand(sql, conn)
conn.Open()
Dim count As Integer
objDR =
Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

While objDR.Read
name.Items.Add(objDR("firstn"))
End While

objDR.Close



Saludos:

Jesús López
MVP Visual Basic
Mentor Asociado Solid Quality Learning
www.solidqualitylearning.com

PD: Agradecería saber si esta respuesta te ha servido


"Jorge Landaeta" escribió en el
mensaje news:
> Buenos Días, estoy llenando un combobox (se llama name) y el dropdownstyle
> lo
> coloqué en dropdownlist:
>
> Dim strConn As String = "Server=myservr;Password=mypass;Persist Security
> Info=True;User ID=sa;Initial Catalog=mydb"
> Dim sql As String = "Select * from mytbl"
> Dim conn As New SqlConnection(strConn)
> Dim objDR As SqlDataReader
> Dim Cmd As New SqlCommand(sql, conn)
> conn.Open()
> Dim count As Integer
> objDR =
> Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
> name.Items.Add(New ListItem("Name", 0))
>
> OJO NO ME DEJA COLOCAR ESTA PROPIEDAD LISTITEM EN ASPX FUNCIONABA
>
> While objDR.Read
> name.Items.Add(New ListItem(objDR("firstn"))
> End While
>
> OJO AQUÍ TAMPOCO ME DEJA COLOCAR ESTA PROPIEDAD LISTITEM EN ASPX
> FUNCIONABA
>
> Acaso la manera de llenar un combobox varía en VB.NET y ASPX?
> Si alguien pudiera ayudarme con esto lo agradecería

Yo conozco tres maneras básicas de hacer eso, quizá alguién conozca alguna
más:

1) Llenar un DataTable con DataAdapter, enlazar el DataTable al combo y
establecer las propiedades ValueMember y DisplayMember. Por ejemplo:

Private Sub LlenarCombo1()
Dim cn As New
SqlConnection("Server=(local);Database=Northwind;Trusted_Connection=Yes")
Dim Adapter As New SqlDataAdapter("select CategoryId, CategoryName
from Categories", cn)
Dim table As New DataTable
Adapter.Fill(table)
Me.ComboBox1.DisplayMember = "CategoryName"
Me.ComboBox1.ValueMember = "CategoryId"
Me.ComboBox1.DataSource = table
End Sub

En este caso ComboBox1.SelectedValue nos da el valor de CategoryId
seleccionado y ComboBox1.SelectedItem nos da un DataRowView con todos los
campos devueltos por la select

2) Crear una clase con las propiedades id y nombre, reescribir el método
ToString y añadir objetos de esta clase a la colección Items del combo. Por
ejemplo:

Public Class Category
Private mCategoryId As Integer
Public Property CategoryId() As Integer
Get
Return mCategoryId
End Get
Set(ByVal Value As Integer)
mCategoryId = Value
End Set
End Property
Private mCategoryName As String
Public Property CategoryName() As String
Get
Return mCategoryName
End Get
Set(ByVal Value As String)
mCategoryName = Value
End Set
End Property
Public Overrides Function ToString() As String
Return CategoryName
End Function

End Class


Private Sub LlenarCombo2()
Dim cn As New
SqlConnection("Server=(local);Database=Northwind;Trusted_Connection=Yes")
Dim cmd As New SqlCommand("select CategoryId, CategoryName from
Categories", cn)
Dim reader As SqlDataReader
cn.Open()
reader = cmd.ExecuteReader()
While reader.Read
Dim Category As New Category
Category.CategoryId = reader("CategoryID")
Category.CategoryName = reader("CategoryName")
Me.ComboBox1.Items.Add(Category)
End While
reader.Close()
cn.Close()
End Sub

En este caso ComboBox1.SelectedItem nos da un objeto de tipo Category.
Podríamos tener una propiedad como esta en el formulario:

Private ReadOnly Property SelectedCategory() As Category
Get
Return Me.ComboBox1.SelectedItem
End Get
End Property


3) Llenar una colección ( IList ) de objetos , y enlazar el combo con esta
colección estableciendo las propiedades ValueMember y DisplayMember. Por
ejemplo usando un ArrayList:

Private Sub LlenarCombo3()
Dim Categories As New ArrayList
Dim cn As New
SqlConnection("Server=(local);Database=Northwind;Trusted_Connection=Yes")
Dim cmd As New SqlCommand("select CategoryId, CategoryName from
Categories", cn)
Dim reader As SqlDataReader
cn.Open()
reader = cmd.ExecuteReader()
While reader.Read
Dim Category As New Category
Category.CategoryId = reader("CategoryID")
Category.CategoryName = reader("CategoryName")
Categories.Add(Category)
End While
reader.Close()
cn.Close()
Me.ComboBox1.DisplayMember = "CategoryName"
Me.ComboBox1.ValueMember = "CategoryID"
Me.ComboBox1.DataSource = Categories
End Sub

En este caso ComboBox1.SelectedValue es el valor de la propiedad CategoryID
seleccionada. Además ComboBox1.SelectedItem es el objeto de la clase
Category seleccionado

Saludos:

Jesús López
MVP


"Jorge Landaeta" escribió en el
mensaje news:
Mostrar la cita

Disculpa una última pregunta, en aspx me dejaba colocar el value del item

al
Mostrar la cita

lado, pero en VB no... Cómo se hace?


en aspx colocaba:

name.Items.Add(objDR("firstn"), objDR("id"))



"SqlRanger" wrote:

> Dim strConn As String = "Server=myservr;Password=mypass;Persist
> Security Info=True;User ID=sa;Initial Catalog=mydb"
> Dim sql As String = "Select * from mytbl"
> Dim conn As New SqlConnection(strConn)
> Dim objDR As SqlDataReader
> Dim Cmd As New SqlCommand(sql, conn)
> conn.Open()
> Dim count As Integer
> objDR > > Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
>
> While objDR.Read
> name.Items.Add(objDR("firstn"))
> End While
>
> objDR.Close
>
>
>
> Saludos:
>
> Jesús López
> MVP Visual Basic
> Mentor Asociado Solid Quality Learning
> www.solidqualitylearning.com
>
> PD: Agradecería saber si esta respuesta te ha servido
>
>
> "Jorge Landaeta" escribió en

el
Mostrar la cita

> mensaje news:
> > Buenos Días, estoy llenando un combobox (se llama name) y el

dropdownstyle
Mostrar la cita

> > lo
> > coloqué en dropdownlist:
> >
> > Dim strConn As String = "Server=myservr;Password=mypass;Persist

Security
Mostrar la cita

> > Info=True;User ID=sa;Initial Catalog=mydb"
> > Dim sql As String = "Select * from mytbl"
> > Dim conn As New SqlConnection(strConn)
> > Dim objDR As SqlDataReader
> > Dim Cmd As New SqlCommand(sql, conn)
> > conn.Open()
> > Dim count As Integer
> > objDR > > > Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
> > name.Items.Add(New ListItem("Name", 0))
> >
> > OJO NO ME DEJA COLOCAR ESTA PROPIEDAD LISTITEM EN ASPX

FUNCIONABA
Mostrar la cita

> >
> > While objDR.Read
> > name.Items.Add(New ListItem(objDR("firstn"))
> > End While
> >
> > OJO AQUÍ TAMPOCO ME DEJA COLOCAR ESTA PROPIEDAD LISTITEM EN ASPX
> > FUNCIONABA
> >
> > Acaso la manera de llenar un combobox varía en VB.NET y ASPX?
> > Si alguien pudiera ayudarme con esto lo agradecería
>
>
>

Mil gracias sqlranger, toda la información que suministraste me ayudo mucho.

Sumamente Agradecido

"Jorge Landaeta" wrote:

Mostrar la cita

Buenos Días, estoy llenando un combobox (se llama name) y el dropdownstyle lo
coloqué en dropdownlist:

Dim strConn As String = "Server=myservr;Password=mypass;Persist Security
Info=True;User ID=sa;Initial Catalog=mydb"
Dim sql As String = "Select * from mytbl"
Dim conn As New SqlConnection(strConn)
Dim objDR As SqlDataReader
Dim Cmd As New SqlCommand(sql, conn)
conn.Open()
Dim count As Integer
objDR = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
name.Items.Add(New ListItem("Name", 0))

OJO NO ME DEJA COLOCAR ESTA PROPIEDAD LISTITEM EN ASPX FUNCIONABA

While objDR.Read
name.Items.Add(New ListItem(objDR("firstn"))
End While

OJO AQUÍ TAMPOCO ME DEJA COLOCAR ESTA PROPIEDAD LISTITEM EN ASPX
FUNCIONABA

Acaso la manera de llenar un combobox varía en VB.NET y ASPX?
Si alguien pudiera ayudarme con esto lo agradecería