Hi,
I am having this BIG problem....Any help will be
greatly appreciated. Please find all my code attached
below.
The problem is within a DataGrid I have a "EDIT" link
which changes certain items into TextBox control. I
would like them to be changed into a Database bound
DropDownList control once "Edit" is clicked. how can i
do that.
Any help will be greatly appreciated.
Thanks,
<%@ Page debug="true" %>
<%@ Import namespace="System.Data.OleDb" %>
<%@ Import namespace="System.Data" %>
<HTML>
<HEAD>
<title>Updating Requests</title>
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<P>
<TABLE id="Table1" cellSpacing="1" cellPadding="1"
width="664" border="0">
<TR>
<TD width="289" bgColor="tan"><IMG
src="http://www.vanderbilt.edu/vhimages/vanlogo.gif";></TD>
<TD bgColor="tan"><FONT
face="Arial"><STRONG>Inflow Disaster Recovery-
Grant/Modify Access</STRONG></FONT></TD>
</TR>
</TABLE>
</P>
<P><asp:datagrid id="dgInflow" runat="server"
CellPadding="1" AutoGenerateColumns="False"
OnEditCommand="EditRecord"
OnCancelCommand="CancelEdit"
OnUpdateCommand="Updaterecord" Font-Names="Arial"
Font-Size="XX-Small"
Width="664px">
<HeaderStyle BackColor="Tan"></HeaderStyle>
<AlternatingItemStyle
BackColor="Khaki"></AlternatingItemStyle>
<ItemStyle Font-Size="XX-Small"
Font-Names="Arial"></ItemStyle>
<Columns>
<asp:BoundColumn Visible="False"
DataField="ID"
ReadOnly="True"></asp:BoundColumn>
<asp:BoundColumn
DataField="RequestTimeStamp"
ReadOnly="True" HeaderText="Request Time
Stamp"></asp:BoundColumn>
<asp:BoundColumn
DataField="RequestorName"
ReadOnly="True" HeaderText="Requestor
Name"></asp:BoundColumn>
<asp:BoundColumn
DataField="RequesteeName"
ReadOnly="True" HeaderText="Requestee
Name"></asp:BoundColumn>
<asp:BoundColumn
DataField="RackAccessAuthority"
ReadOnly="True" HeaderText="Rack Access
Authority"></asp:BoundColumn>
<asp:BoundColumn
DataField="AccessStatus"
HeaderText="Access Status"></asp:BoundColumn>
<asp:BoundColumn
DataField="AdministrativeDecision"
HeaderText="Administrative
Decision"></asp:BoundColumn>
<asp:BoundColumn
DataField="AdministrativeReason"
HeaderText="Administrative Reason"></asp:BoundColumn>
<asp:EditCommandColumn
ButtonType="LinkButton"
UpdateText="Save" CancelText="Cancel"
EditText="Edit"></asp:EditCommandColumn>
</Columns>
</asp:datagrid></P>
</form>
<script language="VB" runat="server">
'Private strConnection As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("ic.mdb")
Private strSQLSelect As String = "SELECT i.ID,
i.RequestTimeStamp, tt1.RequestorName,
tt2.RequesteeName, i.RackAccessAuthority,
i.AccessStatus, i.AdministrativeDecision,
i.AdministrativeReason FROM Inflow AS i, [SELECT
i1.id,p1.ITSM_PERSONS_PER_NAME as RequestorName from
Inflow i1 left join persons p1 on
p1.ITSM_PERSONS_PER_OID = i1.RequestorperOID]. AS tt1,
[SELECT i2.id,p2.ITSM_PERSONS_PER_NAME as
RequesteeName from Inflow i2 left join persons p2 on
p2.ITSM_PERSONS_PER_OID = i2.RequesteeperOID]. AS tt2
WHERE (((i.ID)=[tt1].[id] And (i.ID)=[tt2].[id]))"
Private InflowTableName As String = "InflowTable"
Private objConnection As OleDbConnection
Private Sub Page_Load(ByVal Sender As Object, ByVal E
As EventArgs)
If Not IsPostBack Then
LoadGrid()
End If
End Sub
Private Sub LoadGrid()
Connect()
Dim adapter As New OleDbDataAdapter(strSQLSelect,
objConnection)
Dim ds As New DataSet()
adapter.Fill(ds, InflowTableName)
Disconnect()
dgInflow.DataSource = ds.Tables(InflowTableName)
dgInflow.DataBind()
End Sub
Private Sub Connect()
If objConnection Is Nothing Then
objConnection = New
OleDbConnection(ConfigurationSettings.AppSettings("strConnection"))
End If
If objConnection.State = ConnectionState.Closed Then
objConnection.Open()
End If
End Sub
Private Sub Disconnect()
objConnection.Close()
End Sub
Public Sub EditRecord(ByVal Sender As Object, _
ByVal E As
DataGridCommandEventArgs)
dgInflow.EditItemIndex = E.Item.ItemIndex
LoadGrid()
End Sub
Public Sub CancelEdit(ByVal Sender As Object, _
ByVal E As
DataGridCommandEventArgs)
dgInflow.EditItemIndex = -1
LoadGrid()
End Sub
Public Sub UpdateRecord(ByVal Sender As Object, _
ByVal E As
DataGridCommandEventArgs)
'Retrieve the field values in the edited row
Dim ID As Int32 =
Convert.ToInt32(E.Item.Cells(0).Text)
Dim AccessStatusTextBox As TextBox =
CType(E.Item.Cells(5).Controls(0), TextBox)
Dim AccessStatus As String =
Convert.ToString(AccessStatusTextBox.Text)
Dim AdministrativeDecisionTextBox As TextBox =
CType(E.Item.Cells(6).Controls(0), TextBox)
Dim AdministrativeDecision As String =
Convert.ToString(AdministrativeDecisionTextBox.Text)
Dim AdministrativeReasonTextBox As TextBox =
CType(E.Item.Cells(7).Controls(0), TextBox)
Dim AdministrativeReason As String =
Convert.ToString(AdministrativeReasonTextBox.Text)
dgInflow.EditItemIndex = -1
UpdateProduct(ID, AccessStatus,
AdministrativeDecision, AdministrativeReason)
End Sub
Private Sub UpdateProduct(ByVal ID As Long, ByVal
AccessStatus As String, AdministrativeDecision As
String, AdministrativeReason As String)
'Create and load a DataSet with records from Inflow
table
Connect()
Dim adapter As New OleDbDataAdapter(strSQLSelect,
objConnection)
Dim ds As New DataSet()
adapter.Fill(ds, InflowTableName)
Disconnect()
'Modify the in-memory records in the DataSet
Dim tbl As DataTable = ds.Tables(InflowTableName)
tbl.PrimaryKey = New DataColumn() _
{ _
tbl.Columns("ID") _
}
Dim row As DataRow = tbl.Rows.Find(ID)
row.Item("AccessStatus") = AccessStatus
row.Item("AdministrativeDecision") =
AdministrativeDecision
row.Item("AdministrativeReason") =
AdministrativeReason
'Reconnect the DataSet and update the database
Dim cb As New OleDbCommandBuilder(adapter)
Connect()
Dim strSQLUpdate As String = "UPDATE Inflow SET
AccessStatus = '" & row.Item("AccessStatus") & "',
AdministrativeDecision = '" &
row.Item("AdministrativeDecision") & "',
AdministrativeReason = '" &
row.Item("AdministrativeReason") & "' WHERE ID=" &
row.Item("ID") & ""
Dim dbComm As OleDbCommand = New
OleDbCommand(strSQLUpdate, objConnection)
'Response.Write(strSQLUpdate)
Try
dbComm.ExecuteNonQuery()
Catch ex As Exception
Response.Write(ex.Message)
Response.End
Finally
Disconnect()
End Try
dgInflow.DataSource = ds.Tables(InflowTableName)
dgInflow.DataBind()
End Sub
</script>
</body>
</HTML>
__________________________________
Do you Yahoo!?
Yahoo! Domains � Claim yours for only $14.70/year
http://smallbusiness.promotions.yahoo.com/offer
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Make a clean sweep of pop-up ads. Yahoo! Companion Toolbar.
Now with Pop-Up Blocker. Get it for free!
http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/saFolB/TM
---------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspNetAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
![http://www.vanderbilt.edu/vhimages/vanlogo.gif"](http://www.vanderbilt.edu/vhimages/vanlogo.gif"){kind=link}