Velocity Reviews - Computer Hardware Reviews

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

Reply
Thread Tools

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

 
 
=?Utf-8?B?TmV3YXNwcw==?=
Guest
Posts: n/a
 
      06-12-2004
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

Ozer

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.
InitializeComponent()
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") & "'"
DB()
'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
DA.Fill(DS)
DG.DataSource = DS
DG.PageSize = 1
DG.PagerStyle.Mode = PagerMode.NumericPages
DG.PagerStyle.PageButtonCount = 10
DG.DataBind()
Cn.Open()
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
Next
CType(DG.Items(DG.EditItemIndex).Cells(2).Controls (0), TextBox).Enabled = False
End If
Cn.Close()
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
DB()
End Sub
'Public Sub ABC(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT.Click
'Response.Write(DG.Items(0).Controls(0))
'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
DB()
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
Cn.Open()
Try
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
Response.Write(SQLCmd)
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ı.")
Response.Write("</p>")
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.")
Response.Write("</p>")
End Try
Cn.Close()
DB()
'Response.Write(e.Item.Cells.Count)
'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
DB()
End Sub
End Class

 
Reply With Quote
 
 
 
Reply

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



Advertisments