Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > ASP .Net > DataGrid.UpdateCommand Can't Get Updated Values From Textbox Contr

Thread Tools

DataGrid.UpdateCommand Can't Get Updated Values From Textbox Contr

Posts: n/a
Hi guys,
I have a problem with UpdateCommand Event. In tihs event İ'm creating required controls to get that controls' values and also get them. But when I try to get updated values I'm getting the first values for each control. Please help me. Thanks for any help. Bye


And here's my code:

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.UI.WebControls

Public Class PassengerProcesses
Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents DG As System.Web.UI.WebControls.DataGrid

'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
End Sub

#End Region
Dim Cn As New OleDbConnection

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
'If Not IsPostBack Then
Cn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source='" & Server.MapPath("db/db.mdb") & "'"
'End If
End Sub

Private Sub DB()
Dim DA As New OleDbDataAdapter
Dim DS As New System.Data.DataSet
Dim Cmd As New OleDbCommand("Select * from Yolcu", Cn)
DA.SelectCommand = Cmd
DG.DataSource = DS
DG.PageSize = 1
DG.PagerStyle.Mode = PagerMode.NumericPages
DG.PagerStyle.PageButtonCount = 10
If DG.EditItemIndex > -1 Then
Dim ColumnCounter As Byte
For ColumnCounter = 2 To DG.Items(DG.EditItemIndex).Cells.Count - 1
If DG.Items(DG.EditItemIndex).Cells(ColumnCounter).Ha sControls Then
'Response.Write(CType(DG.Items(DG.EditItemIndex).C ells(4).Controls(0), TextBox).Text)
CType(DG.Items(DG.EditItemIndex).Cells(ColumnCount er).Controls(0), TextBox).CssClass = "input_normal"
End If
CType(DG.Items(DG.EditItemIndex).Cells(2).Controls (0), TextBox).Enabled = False
End If
End Sub

'Private Sub DG_ItemDataBound(ByVal sender As Object, ByVal e As DataGridItemEventArgs) Handles DG.ItemDataBound
' If e.Item.DataSetIndex > -1 Then
' e.Item.Cells(2).Text = DataBinder.Eval(e.Item.DataItem, "ProPhoto", "<img src=""data\Products\PictureMovie\{0}"">")
' End If
'End Sub

Private Sub DG_PageIndexChanged(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEvent Args) Handles DG.PageIndexChanged
DG.CurrentPageIndex = e.NewPageIndex
End Sub
'Public Sub ABC(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT.Click
'Dim TB1 As TextBox = CType(DG.Items(0).Controls(0), TextBox)
'End Sub

Private Sub DG_Edit(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles DG.EditCommand
DG.EditItemIndex = e.Item.ItemIndex
End Sub

Private Sub DG_Update(ByVal sender As System.Object, ByVal E As System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles DG.UpdateCommand
Dim ID As TextBox = CType(e.Item.Cells(2).Controls(0), TextBox)
Dim Ad As TextBox = CType(e.Item.Cells(3).Controls(0), TextBox)
Dim Soyad As TextBox = CType(e.Item.Cells(4).Controls(0), TextBox)
Dim Adres As TextBox = CType(e.Item.Cells(5).Controls(0), TextBox)
Dim Tel As TextBox = CType(e.Item.Cells(6).Controls(0), TextBox)
Dim Email As TextBox = CType(e.Item.Cells(7).Controls(0), TextBox)
Dim AffectedRows As Int32
Dim SQLCmd As String = "UPDATE Yolcu SET Adi='" & Ad.Text & "',Soyadi='" & Soyad.Text & "',Adresi='" & Adres.Text & "',Telefon='" & Tel.Text & "',Email='" & Email.Text & "' WHERE YolcuID=" & ID.Text
Dim CmdUD As New OleDbCommand(SQLCmd, Cn)
AffectedRows = CmdUD.ExecuteNonQuery()
DG.EditItemIndex = -1
Response.Write("<p class=""genelyazi"" align=""center"">")
Response.Write("Kayıt işlemi başarıyla tamamlandı.")
Catch ex As Exception
Response.Write(ex.Source & " " & ex.Message)
Response.Write("<p class=""genelyazi"" align=""center"">")
Response.Write("Hata oluştu. Kayıt işlemi başarısız.")
End Try
'Dim TB As TextBox = CType(e.Item.Cells(0).Controls(0), TextBox)
'TB.TextMode = TextBoxMode.MultiLine
'TB.Rows = 3
End Sub

Private Sub DG_Cancel(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) Handles DG.CancelCommand
DG.EditItemIndex = -1
End Sub
End Class

Reply With Quote

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
Why doesn't TextBox control get updated Tuomo ASP .Net Datagrid Control 3 01-02-2006 11:02 AM
Pitfalls of creating a base class for a webpage including UI contr Me ASP .Net Web Controls 1 11-28-2005 02:45 PM
How to make datagrid headders non Scrollable in a multi page contr Ashok ASP .Net Web Controls 2 05-10-2005 07:08 PM
Looping thru a controls collection to get properties of that contr JoeG ASP .Net Web Controls 1 02-15-2005 11:16 PM
How does DataList Itemcommand handler knows the value of its contr =?Utf-8?B?RWQgQ2hpdQ==?= ASP .Net 1 11-30-2004 06:09 PM