Hola que tal, soy nuevo en el foro y solicito la ayuda de alguna persona que se compadezca de mi y que sepa programar en ASP.Net para desarrollos móviles
Soy prodragamador en ASP utilizando Dreamweaver 8, pero en la empresa en la que laboro, me han solicitado que les desarrolle un CRM en ASP.Net Móvil y he tenido algunos problemas en adaptarme.
Bueno al grano!!! Estoy diseñando y programando utilizando el
Visual Web Developer 2005 Express, agregué un sitio Web utilizando un formulario
Mobile Web Form. En el
ASP.Net estoy utilizando código en
Visual Basic. Por ahora mi problema es con la herramienta
SelectionList.
En una página necesito dos Selections List, utilizándolos como
DropDown. En el primero, denominado
SL1, se cargan unos valores tomados de una tabla de una base de datos creada en
SQL Server 2005 Express, en el segundo,
SL2, necesito que se carguen unos datos también de una tabla en SQL, pero para esa consulta, necesito que se utilice el valor que el usuario seleccione en el
SL1, y ahí es donde me he quedado atorado. Aquí les pongo el código que tengo hasta ahora.
Protected Sub Agenda_Activate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Dim cn As New SqlConnection
cn.ConnectionString = "Server=TI-MAVA\SQLExpress; AttachDbFilename=C:\Archivos de programa\Microsoft SQL Server\MSSQL.1\MSSQL\Data\HERMOS-CRM.mdf; Database=HERMOS-CRM;Trusted_Connection=Yes;"
cn.Open()
Dim cmd As New SqlCommand
Dim qry As String
qry = "SELECT DIVISION FROM CLIENTES GROUP BY DIVISION ORDER BY DIVISION"
cmd.Connection = cn
cmd.CommandText = qry
Dim oDA As SqlDataAdapter
Dim oDS As New Data.DataSet()
Dim iCnt As Int32
Dim sDiv As String
Dim oItem As ListItem
oDA = New Data.SqlClient.SqlDataAdapter(cmd)
oDA.Fill(oDS)
SL1.Items.Clear()
With oDS.Tables(0)
For iCnt = 0 To .Rows.Count - 1
sDiv = .Rows(iCnt).Item("DIVISION").ToString()
oItem = New ListItem(sDiv)
SL1.Items.Add(oItem.ToString)
Next
End With
End If
End Sub Protected Sub SL1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SL1.SelectedIndexChanged
If Not IsPostBack Then
Dim cn As New SqlConnection
cn.ConnectionString = "Server=TI-MAVA\SQLExpress; AttachDbFilename=C:\Archivos de programa\Microsoft SQL Server\MSSQL.1\MSSQL\Data\HERMOS-CRM.mdf; Database=HERMOS-CRM;Trusted_Connection=Yes;"
cn.Open()
Dim cmd As New SqlCommand
Dim qry As String
qry = "SELECT NOMBRE, CTEPRO FROM CLIENTES WHERE DIVISION= '" & SL1.Selection.Text & "' "
' TAMBIÉN HE UTILIZADO LA SIGUIENTE CONSULTA qry = "SELECT NOMBRE, CTEPRO FROM CLIENTES WHERE DIVISION= '" & SL1.Items(SL1.SelectedIndex).Value & "' "
cmd.Connection = cn
cmd.CommandText = qry
Dim oDA As SqlDataAdapter
Dim oDS As New Data.DataSet()
Dim iCnt As Int32
Dim sName As String
Dim oItem As ListItem
Dim sKey As String
oDA = New Data.SqlClient.SqlDataAdapter(cmd)
oDA.Fill(oDS)
SL2.Items.Clear()
With oDS.Tables(0)
For iCnt = 0 To .Rows.Count - 1
sName = .Rows(iCnt).Item("NOMBRE").ToString()
sKey = .Rows(iCnt).Item("CTEPRO").ToString()
oItem = New ListItem(sName, sKey)
SL2.Items.Add(oItem.ToString)
Next
End With
cn.Close()
End If
End Sub
Y esto no funciona. No hay errores, pero sólo me aparece bien el SL1 y me carga sin problemas los datos, pero el SL2 nunca aparece. Espero exista alguien que conozca de programación móvil y me pueda ayudar. Gracias de antemano.