manipulating data without binding it + general hel

sarkar · Apr 28, 2012

I have a drop down list, if the person wants to add another company to the list, I hide the drop down list panel and show the text field panel, the user then adds the company and it re-binds the data and then shows the drop down list again. My problem now is to get the SelectedIndex equal to the entry they just added (in other words, find the last primary key ID and then set it equal to the SelectedIndex property so it can select the entry they just added without them having to go through the whole list) Normally I would just do a rs.movelast and say mylist.selectedindex = rs("id") but with this new programming language and wya of doing things I have no idea how to do that..... ANY ideas would be welcome, I am including my code so you may understand it better. (if you see anything that needs a tweak you could post as well, thanks) <% @Import Namespace="System.Data" %> <% @Import Namespace="System.Data.OleDb" %> <html> <head> <title> </title> </head> <script language="VB" runat="server"> Sub Page_Load(Sender As Object, E As EventArgs) lblCompany.Text = "Company:" lblStartDate.Text = "Start Date:" lblEndDate.Text = "End Date:" lblName.Text = "Name:" txtStartDate.Text = "" panelDropDown.Visible = True panelAddCompany.Visible = False BindData() End Sub Sub SubmitBtn_Click(Sender As Object, E As EventArgs) If (Page.IsValid) Then End if End Sub Sub ShowAddCompany_Click(Sender As Object, E As EventArgs) panelDropDown.Visible = False panelAddCompany.Visible = True End Sub Sub AddCompany_Click(Sender As Object, E As EventArgs) Dim sConnstr As String sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbmca01.mdb") 'Open connection before populating the DataReader Dim objConn as New OleDbConnection(sConnStr) Dim objDs As DataSet Dim objCmd As OleDbCommand Dim strInsertCommand As String = "INSERT INTO Company (Com_Name) VALUES (@CompanyName)" objCmd = New OleDbCommand(strInsertCommand, objConn) objCmd.Parameters.Add(New OleDbParameter("@CompanyName", OleDbType.VarChar, 255)) objCmd.Parameters("@CompanyName").Value = addcompany.text objCmd.Connection.Open() Try objCmd.ExecuteNonQuery() Catch Exp As OleDbException Response.Write("Error Occured: " & Exp.Source) End Try objCmd.Connection.Close() BindData() panelDropDown.Visible = true panelAddCompany.Visible = false End Sub Sub BindData() 'Create a connection Dim sConnstr As String sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbmca01.mdb") 'Open connection before populating the DataReader Dim objConn as New OleDbConnection(sConnStr) objConn.Open() 'Create a command object for the query Dim strSQL As String strSQL = "SELECT * FROM Company ORDER BY Com_Name" 'Create/Populate the DataReader Dim objCmd as New OleDbCommand(strSQL, objConn) Dim objDR as OleDbDataReader objDR = objCmd.ExecuteReader() lstCompanies.SelectedIndex = 1 lstCompanies.DataSource = objDR lstCompanies.DataBind() objConn.Close() End Sub Sub ServerValidate (sender As Object, value As ServerValidateEventArgs) Try If IsDate(cdate(txtStartDate.Text)) And IsDate(cdate(txtEndDate.Text)) Then If cdate(txtStartDate.Text) <= cdate(txtEndDate.Text) Then value.IsValid = True Exit Sub End If End If Catch E As Exception ' Do Nothing End Try value.IsValid = False End Sub </script> <body> <form name="frmMain" id="frmMain" method="post" action="addedit.aspx" runat="server"> <table border=0> <tr> <td> <asp:label id="lblCompany" runat="server"/> </td> <asp

anel id="panelDropDown" runat="server"> <td> <asp:dropdownlist id="lstCompanies" runat="server" Rows="1" DataTextField="Com_Name" DataValueField="ID" /> <asp:button text="Add Company" OnClick="ShowAddCompany_Click" runat="server"/></td> </asp

anel> <asp

anel id="panelAddCompany" runat="server"> <td> <asp:textbox id="addcompany" runat="server"/> <asp:button text="Add Company" OnClick="AddCompany_Click" runat="server"/></td> </asp

anel> </tr> <tr> <td> <asp:label id="lblStartDate" runat="server"/> </td> <td> <asp:textbox id="txtStartDate" runat="server"/> <a href="javascript:window.open('datelookup.aspx?formname=f rmMain.txtStartDate','calendar_window','width=200, height=188');calendar_window.focus()"> <img src="lookup.gif" border="0"></a> </td> <td> <asp:CustomValidator id="CustomValidator1" ControlToValidate="txtStartDate" OnServerValidate="ServerValidate" Display="Dynamic" Font-Name="verdana" Font-Size="10pt" errormessage="Invalid date selection!" runat="server"/> </td> </tr> <tr> <td> <asp:label id="lblEndDate" runat="server"/> </td> <td><asp:textbox id="txtEndDate" runat="server"/> <a href="javascript:window.open('datelookup.aspx?formname=f rmMain.txtEndDate','calendar_window','width=200,he ight=188');calendar_window.focus()"> <img src="lookup.gif" border="0"></a> </td> <td> <asp:CustomValidator id="CustomValidator2" ControlToValidate="txtEndDate" OnServerValidate="ServerValidate" Display="Dynamic" Font-Name="verdana" Font-Size="10pt" errormessage="Invalid date selection!" runat="server"/> </td> </tr> <tr> <td> <asp:label id="lblName" runat="server"/> </td> <td> <asp:textbox id="txtName" runat="server"/> </td> <td> <asp:RequiredFieldValidator ControlToValidate="txtName" Display="Dynamic" Font-Name="verdana" Font-Size="10pt" errormessage="You must enter your name!" runat=server/> </td> </tr> <tr> <td> <asp:button text="Submit" OnClick="SubmitBtn_Click" runat="server"/> </td> </tr> </table> </form> </body> </html> Here is a way to do it. It doesn't use the last ID so its kind of a hack: within AddCompany_Click: ...insert your data... binddata() lstCompanies.ClearSelection lstCompanies.items.findbytext(addcompany.text).sel ected = true So what it does is just find the new item within the list after it has been populated, and make it the selected item. I haven't tested this, but it should work.

manipulating data without binding it + general hel

sarkar

New Member