I can't figure out what I'm doing differently with this one drop-down
list control from the other two that are working just fine.
Background:
I am constructing a page that will allow a user to select style,
color, size from dropdown boxes and get a short datagrid report based
on that selection. When they select the style and hit a button, the
color (and eventually size) dropdown lists will automatically fill
based on the style selection, using a datareader class through an ADO
connection. The color and size lists work fine. You select a color
and size from the list and hit another command button and the datagrid
shows the data from a stored procedure on SQL Server 2005.
Initially, I had the style field set up as a text field for usability
testing, but I didn't want to raise the risk of a SQL Injection
attack, so I made it a dropdownlist instead by deleting the text box
and putting in a dropdown list with the same name. No problem, right?
Well, not exactly. It has a default value in it of 1250 (which would
be the first style avaialble to select, so that's right). The problem
is, regardless of the Autopostback value for the list, if you click on
another style, the dropdown list reverts back to 1250. Neither of the
other dropdown lists did this, but now I can't even click on the Load
Colors (button2) and get either of the dropdown lists to refresh.
Here's the VB code:
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Dim cn As New System.Data.SqlClient.SqlConnection
Dim cmd As New System.Data.SqlClient.SqlCommand
cn.ConnectionString = "Password=;Persist Security
Info=True;User ID=sa;Initial Catalog=BadgerBlue;Data
Source=195.1.2.222"
cn.Open()
cmd.Connection = cn
cmd.CommandType = ADODB.CommandTypeEnum.adCmdText
cmd.CommandText = "SELECT DISTINCT STYLE FROM BBHOLD"
Dim rdr As System.Data.SqlClient.SqlDataReader =
cmd.ExecuteReader()
Me.STYLE.DataSource = rdr
Me.STYLE.DataTextField = "STYLE"
Me.STYLE.DataValueField = "STYLE"
Me.STYLE.DataBind()
cn.Close()
End Sub
Private Sub DropDownList1_TextChanged(ByVal sender As Object,
ByVal e As System.EventArgs) Handles DropDownList1.TextChanged
'Response.Write((DropDownList1.SelectedValue))
Dim cn As New System.Data.SqlClient.SqlConnection
Dim cmd As New System.Data.SqlClient.SqlCommand
cn.ConnectionString = "Password=brent;Persist Security
Info=True;User ID=sa;Initial Catalog=ee8idbbd;Data Source=JOMAR"
cn.Open()
cmd.Connection = cn
cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
cmd.CommandText = "bdg_procFillSize"
Dim parm As New System.Data.SqlClient.SqlParameter
Dim parm1 As New System.Data.SqlClient.SqlParameter
'Dim parm As New System.Data.SqlClient.SqlParameter
parm.ParameterName = "@STYLE"
parm.SqlDbType = SqlDbType.VarChar
parm.Direction = ParameterDirection.Input
parm.Value = Me.STYLE.Text
cmd.Parameters.Add(parm)
parm1.ParameterName = "@COLOR"
parm1.SqlDbType = SqlDbType.VarChar
parm1.Direction = ParameterDirection.Input
'parm.Value = me.STYLE
parm1.Value = Me.DropDownList1.SelectedValue
'cmd.Parameters(0).Value = Me.STYLE.Text
cmd.Parameters.Add(parm1)
Dim rdr As System.Data.SqlClient.SqlDataReader =
cmd.ExecuteReader()
DropDownList2.DataSource = rdr
DropDownList2.DataTextField = "SIZECODE"
'DropDownList2.DataValueField = "SIZEINDEX"
DropDownList2.DataBind()
'rs = cmd.Execute
cn.Close()
'arrayvar = rs.GetRows
'cn.Close()
'cn = Nothing
'Dim i As Long
'For i = 0 To UBound(arrayvar, 2)
'Me.DropDownList1.Items.Add(New ListItem(arrayvar(0, i),
arrayvar(1, i)))
'Next
'arrayvar = rs.GetRows
'cn.Close()
'cn = Nothing
'Dim i As Long
'For i = 0 To UBound(arrayvar, 2)
'Me.DropDownList1.Items.Add(New ListItem(arrayvar(0, i),
arrayvar(1, i)))
'Next
End Sub
Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
Dim cn As New System.Data.SqlClient.SqlConnection
Dim cmd As New System.Data.SqlClient.SqlCommand
cn.ConnectionString = "Password=brent;Persist Security
Info=True;User ID=sa;Initial Catalog=ee8idbbd;Data Source=JOMAR"
cn.Open()
cmd.Connection = cn
cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
cmd.CommandText = "bdg_procTommyDixon"
Dim parm As New System.Data.SqlClient.SqlParameter
Dim parm1 As New System.Data.SqlClient.SqlParameter
Dim parm2 As New System.Data.SqlClient.SqlParameter
parm.ParameterName = "@STYLE"
parm.SqlDbType = SqlDbType.VarChar
parm.Direction = ParameterDirection.Input
parm.Value = Me.STYLE.SelectedValue
cmd.Parameters.Add(parm)
parm1.ParameterName = "@COLOR"
parm1.SqlDbType = SqlDbType.VarChar
parm1.Direction = ParameterDirection.Input
parm1.Value = Me.DropDownList1.SelectedValue
cmd.Parameters.Add(parm1)
parm2.ParameterName = "@SIZE"
parm2.SqlDbType = SqlDbType.VarChar
parm2.Direction = ParameterDirection.Input
parm2.Value = Me.DropDownList2.SelectedValue
cmd.Parameters.Add(parm2)
Dim rdr As System.Data.SqlClient.SqlDataReader =
cmd.ExecuteReader()
GridView1.DataSource = rdr
GridView1.DataBind()
cn.Close()
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim cn As New System.Data.SqlClient.SqlConnection
Dim cmd As New System.Data.SqlClient.SqlCommand
Dim rs As New ADODB.Recordset
'Dim arrayvar
cn.ConnectionString = "Password=brent;Persist Security
Info=True;User ID=sa;Initial Catalog=ee8idbbd;Data Source=JOMAR"
cn.Open()
cmd.Connection = cn
cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
cmd.CommandText = "bdg_procFillColor"
Dim parm As New System.Data.SqlClient.SqlParameter
parm.ParameterName = "@STYLE"
parm.SqlDbType = SqlDbType.VarChar
parm.Direction = ParameterDirection.Input
parm.Value = Me.STYLE.SelectedValue
'cmd.Parameters(0).Value = Me.STYLE.Text
cmd.Parameters.Add(parm)
Dim rdr As System.Data.SqlClient.SqlDataReader =
cmd.ExecuteReader()
DropDownList1.DataSource = rdr
DropDownList1.DataValueField = "CODE"
DropDownList1.DataTextField = "COLOR"
DropDownList1.DataBind()
'rs = cmd.Execute
cn.Close()
'arrayvar = rs.GetRows
'cn.Close()
'cn = Nothing
'Dim i As Long
'For i = 0 To UBound(arrayvar, 2)
'Me.DropDownList1.Items.Add(New ListItem(arrayvar(0, i),
arrayvar(1, i)))
'Next
End Sub
Protected Sub STYLE_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
STYLE.SelectedIndexChanged
End Sub
End Class
