469,621 Members | 1,865 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,621 developers. It's quick & easy.

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

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

Nov 18 '05 #1
0 1657

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

2 posts views Thread by VIJAY KUMAR | last post: by
13 posts views Thread by abdoly | last post: by
1 post views Thread by MrMike | last post: by
9 posts views Thread by rn5a | last post: by
2 posts views Thread by slinky | last post: by
reply views Thread by gheharukoh7 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.