Mensaje dentro de Foro VB.NET

Responder 
#1 - 26/08/2011 7:46:00 Reporta abuso | Link Permanente
jhon00740
Fecha de registro: 26/08/2011
0 post en este tema
3 posts en foro vb.net
3 posts en todos los foros
Dropdownlist enlazados

Responder Citar
¿Como podría hacer 3 dropdownlist en los que el 2º depende del 1º y el 3º del 2º  los datos son de una BD
cualqueir tipo de ayuda ya sea con autoposback o  ajax toolkit por favor que sea codigo visual
no C Gracias




Volver arriba

Respuestas
Mostrar de en 15
#2 - 27/08/2011 23:54:02 Reporta abuso | Link Permanente
jhon00740
Fecha de registro: 26/08/2011
1 post en este tema
3 posts en foro vb.net
3 posts en todos los foros
RE: Dropdownlist enlazados

Responder Citar
Jaja esperaba respuestas pero de tanto pensar yo solo lo solusione

aver si alguien le sirve
en la propiedad de dropdownlist autoposback= true
en webconfig configuren la conexion global eb mi caso
add name="SISAPACC_ORGConnectionString" connectionString="Data Source=JHON-PC;Initial Catalog=SISAPACC_ORG;Persist Security Info=True;User ID=cpis;Password=123" providerName="System.Data.SqlClient"/>
 
Imports System
Imports System.Collections.Generic
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Configuration
Imports System.Data.SqlClient
Imports System.Data
Partial

If Not IsPostBack Then
PoblarProvincias()
End If
End Sub

Public Sub PoblarProvincias()Dim Conexion As String = ConfigurationManager.ConnectionStrings("UsuarioBD").ConnectionStringDim Consulta As String = "select idprovincia, provincia from provincias"
Dim con As SqlConnection = New SqlConnection(Conexion)Dim cmd As SqlCommand = New SqlCommand

cmd.CommandType =

cmd.CommandText = Consulta

cmd.Connection = con

con.Open()

ddlProvincias.DataSource = cmd.ExecuteReader

ddlProvincias.DataTextField =

CommandType.Text"Provincia"

ddlProvincias.DataValueField =

"idprovincia"

ddlProvincias.DataBind()

con.Close()

End Sub
Public Sub poblar_distrito()Dim Conexion As String = ConfigurationManager.ConnectionStrings("UsuarioBD").ConnectionStringDim Consulta As String = "select IdDistrito,Distrito from Distritos where IdProvincia='" & ddlProvincias.SelectedItem.Value & "'"
Dim con As SqlConnection = New SqlConnection(Conexion)Dim cmd As SqlCommand = New SqlCommand

cmd.CommandType =

cmd.CommandText = Consulta

cmd.Connection = con

con.Open()

ddlDistritos.DataSource = cmd.ExecuteReader

ddlDistritos.DataTextField =

CommandType.Text"Distrito"

ddlDistritos.DataValueField =

"IdDistrito"

ddlDistritos.DataBind()

con.Close()

End Sub
Public Sub poblar_comunidades()Dim Conexion As String = ConfigurationManager.ConnectionStrings("UsuarioBD").ConnectionStringDim Consulta As String = "select Idcomunidad,comunidad from comunidades where Iddistrito='" & ddlDistritos.SelectedItem.Value & "'"
Dim con As SqlConnection = New SqlConnection(Conexion)Dim cmd As SqlCommand = New SqlCommand

cmd.CommandType =

cmd.CommandText = Consulta

cmd.Connection = con

con.Open()

ddlComunidades.DataSource = cmd.ExecuteReader

ddlComunidades.DataTextField =

CommandType.Text"comunidad"

ddlComunidades.DataValueField =

"Idcomunidad"

ddlComunidades.DataBind()

con.Close()

End Sub

poblar_distrito()

Protected Sub ddlProvincias_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlProvincias.SelectedIndexChangedEnd Sub

poblar_comunidades()

Protected Sub ddlDistritos_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlDistritos.SelectedIndexChangedEnd Sub

End

Class

Class Escoja_Ubicacion Inherits System.Web.UI.UserControl Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
Volver arriba
Mostrar de en 15