J
jason
Perhaps this is the wrong group - but having no luck. My source is
below . I am able to add and delete with similar code. I get no errors
messages. Displays look good. thank you for any help or information.
<code>
Public Sub UserGrid_Update (Source As Object, E As
DataGridCommandEventArgs)
Dim objConn as new
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db.mdb")
Dim cmd As OleDbCommand = new OleDbCommand ("UPDATE tbl SET
responsible=@responsible,status=@status,waitingon=@waitingon,comments=@comments
WHERE chain=@chain", objConn)
Dim schain As String = e.Item.Cells(2).Text
Dim sresponsible As String = CType(e.Item.Cells(3).Controls (0),
TextBox).Text
Dim sstatus As String = CType(e.Item.Cells(4).Controls (0),
TextBox).Text
Dim swaitingon As String = CType(e.Item.Cells(5).Controls (0),
TextBox).Text
Dim scomments As String = CType(e.Item.Cells(6).Controls (0),
TextBox).Text
response.write(schain+"-"+sresponsible+"-"+sstatus+"-"+swaitingon+"-"+scomments)
cmd.Parameters.Add(new OleDbParameter("@chain", schain))
cmd.Parameters.Add(new OleDbParameter("@responsible",
sresponsible))
cmd.Parameters.Add(new OleDbParameter("@status", sstatus))
cmd.Parameters.Add(new OleDbParameter("@waitingon", swaitingon))
cmd.Parameters.Add(new OleDbParameter("@comments", scomments))
Try
objConn.Open()
cmd.ExecuteNonQuery()
objConn.Close
Catch ex As Exception
response.write(ex.Message & ex.stacktrace)
End Try
</end code>
below . I am able to add and delete with similar code. I get no errors
messages. Displays look good. thank you for any help or information.
<code>
Public Sub UserGrid_Update (Source As Object, E As
DataGridCommandEventArgs)
Dim objConn as new
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db.mdb")
Dim cmd As OleDbCommand = new OleDbCommand ("UPDATE tbl SET
responsible=@responsible,status=@status,waitingon=@waitingon,comments=@comments
WHERE chain=@chain", objConn)
Dim schain As String = e.Item.Cells(2).Text
Dim sresponsible As String = CType(e.Item.Cells(3).Controls (0),
TextBox).Text
Dim sstatus As String = CType(e.Item.Cells(4).Controls (0),
TextBox).Text
Dim swaitingon As String = CType(e.Item.Cells(5).Controls (0),
TextBox).Text
Dim scomments As String = CType(e.Item.Cells(6).Controls (0),
TextBox).Text
response.write(schain+"-"+sresponsible+"-"+sstatus+"-"+swaitingon+"-"+scomments)
cmd.Parameters.Add(new OleDbParameter("@chain", schain))
cmd.Parameters.Add(new OleDbParameter("@responsible",
sresponsible))
cmd.Parameters.Add(new OleDbParameter("@status", sstatus))
cmd.Parameters.Add(new OleDbParameter("@waitingon", swaitingon))
cmd.Parameters.Add(new OleDbParameter("@comments", scomments))
Try
objConn.Open()
cmd.ExecuteNonQuery()
objConn.Close
Catch ex As Exception
response.write(ex.Message & ex.stacktrace)
End Try
</end code>