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

Preguntas similare

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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida