cargar combo desde una una base de datos

09/04/2012 - 16:29 por dvaldi | Informe spam

hola tengo un problema al momento de llenar un combo desde una consulta a una bd

Dim sql As String
Dim cn As SqlConnection
Dim cm As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet

sql = "SELECT s.suc_descripcion FROM usuario AS u INNER JOIN usuario_sucursal AS us ON u.usu_codigo = us.ucs_usuario INNER JOIN sucursal AS s ON us.ucs_sucursal = s.suc_codigo WHERE (u.usu_usuario = 'TJARAMILLO') "

cn = New SqlConnection("Data Source=PC-PC;Initial Catalog=web_courier_2012;Integrated Security=True;")
cn.Open()

cm = New SqlCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
da = New SqlDataAdapter(cm)
ds = New DataSet()
da.Fill(ds)
DropDownList1.DataSource = ds
DropDownList1.DataTextField = "suc_descripcion"

el problema es que cuando lo ejecuto ejecuto no me carga el combo la aplicacion esta en aspx con vb

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Duda al cargar desde una base de datos

Leer las respuestas

#1 winged

13/09/2012 - 09:41 | Informe spam

dvaldi escribió el 09/04/2012 16:29 :

hola tengo un problema al momento de llenar un combo desde una consulta a una
bd

Dim sql As String
Dim cn As SqlConnection
Dim cm As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet

sql = "SELECT s.suc_descripcion FROM usuario AS u INNER JOIN
usuario_sucursal AS us ON u.usu_codigo = us.ucs_usuario INNER JOIN sucursal AS
s ON us.ucs_sucursal = s.suc_codigo WHERE (u.usu_usuario = 'TJARAMILLO')
"

cn = New SqlConnection("Data Source=PC-PC;Initial
Catalog=web_courier_2012;Integrated Security=True;")
cn.Open()

cm = New SqlCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
da = New SqlDataAdapter(cm)
ds = New DataSet()
da.Fill(ds)
DropDownList1.DataSource = ds
DropDownList1.DataTextField = "suc_descripcion"

el problema es que cuando lo ejecuto ejecuto no me carga el combo la aplicacion
esta en aspx con vb

tengo este codigo en vb.net te podria resultar algo util

Imports MySql.Data.MySqlClient
Imports MySql.Data
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sql As String
Dim cn As MySqlConnection
Dim cm As MySqlCommand
Dim dr As MySqlDataReader

cn = New MySqlConnection("Server=localhost;Database=ciu;Uid=root;Pwd=;")
cn.Open()
sql = "SELECT nombre from datos "
cm = New MySqlCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
dr = cm.ExecuteReader()
While dr.Read()
ComboBox1.Items.Add(dr(0))
End While
dr.Close()

End Sub
End Class

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida