web datagrid update

[Delphin]

I have been trying to figure this out for days and nothing seems to work. I have a web form that whenever I specifiy a textbox on the update command, it states that it is ambiguous. What I have done was fully declared it. It now works in the compiler, but will not run in IE. It gives a specified cast is not valid error.



Here is the aspx.vb file:
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()
Me.Offtime = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
'
'Offtime
'
Me.Offtime.DeleteCommand = Me.OleDbDeleteCommand1
Me.Offtime.InsertCommand = Me.OleDbInsertCommand1
Me.Offtime.SelectCommand = Me.OleDbSelectCommand1
Me.Offtime.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping(&quot;Table&quot;, &quot;TblComCenter&quot;, New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping(&quot;PermitNo&quot;, &quot;PermitNo&quot, New System.Data.Common.DataColumnMapping(&quot;Trackid&quot;, &quot;Trackid&quot, New System.Data.Common.DataColumnMapping(&quot;StartDate&quot;, &quot;StartDate&quot, New System.Data.Common.DataColumnMapping(&quot;StartTime&quot;, &quot;StartTime&quot, New System.Data.Common.DataColumnMapping(&quot;EndDate&quot;, &quot;EndDate&quot, New System.Data.Common.DataColumnMapping(&quot;EndTime&quot;, &quot;EndTime&quot, New System.Data.Common.DataColumnMapping(&quot;OutOfSvcTime&quot;, &quot;OutOfSvcTime&quot, New System.Data.Common.DataColumnMapping(&quot;HoursWorked&quot;, &quot;HoursWorked&quot})})
Me.Offtime.UpdateCommand = Me.OleDbUpdateCommand1
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = &quot;[NewDeleteCommand]&quot;
Me.OleDbDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@RETURN_VALUE&quot;, System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), &quot;&quot;, System.Data.DataRowVersion.Current, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_Trackid&quot;, System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;Trackid&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_EndDate&quot;, System.Data.OleDb.OleDbType.DBTimeStamp, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;EndDate&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_EndTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;EndTime&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_HoursWorked&quot;, System.Data.OleDb.OleDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(2, Byte), &quot;HoursWorked&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_OutOfSvcTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;OutOfSvcTime&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_PermitNo&quot;, System.Data.OleDb.OleDbType.VarWChar, 11, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;PermitNo&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_StartDate&quot;, System.Data.OleDb.OleDbType.DBTimeStamp, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;StartDate&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_StartTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;StartTime&quot;, System.Data.DataRowVersion.Original, Nothing))
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = &quot;Integrated Security=SSPI;Packet Size=4096;Data Source=&quot;&quot;DELPHINIDAE\DEVELOPMENT&quot;&quot;;T&quot; & _
&quot;ag with column collation when possible=False;Initial Catalog=OFFDUTY;Use Procedu&quot; & _
&quot;re for Prepare=1;Auto Translate=True;Persist Security Info=False;Provider=&quot;&quot;SQLOL&quot; & _
&quot;EDB.1&quot;&quot;;Workstation ID=DELPHINIDAE;Use Encryption for Data=False&quot;
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = &quot;[NewInsertCommand]&quot;
Me.OleDbInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@RETURN_VALUE&quot;, System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), &quot;&quot;, System.Data.DataRowVersion.Current, Nothing))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@PermitNo&quot;, System.Data.OleDb.OleDbType.VarWChar, 11, &quot;PermitNo&quot)
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@StartDate&quot;, System.Data.OleDb.OleDbType.DBTimeStamp, 4, &quot;StartDate&quot)
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@StartTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 50, &quot;StartTime&quot)
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@EndDate&quot;, System.Data.OleDb.OleDbType.DBTimeStamp, 4, &quot;EndDate&quot)
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@EndTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 50, &quot;EndTime&quot)
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@OutOfSvcTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 255, &quot;OutOfSvcTime&quot)
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@HoursWorked&quot;, System.Data.OleDb.OleDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(2, Byte), &quot;HoursWorked&quot;, System.Data.DataRowVersion.Current, Nothing))
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = &quot;[Ten7Select]&quot;
Me.OleDbSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
Me.OleDbSelectCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@RETURN_VALUE&quot;, System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), &quot;&quot;, System.Data.DataRowVersion.Current, Nothing))
Me.OleDbSelectCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@NameKey&quot;, System.Data.OleDb.OleDbType.VarWChar, 50, &quot;NameKey&quot)
Me.OleDbSelectCommand1.UpdatedRowSource = System.Data.UpdateRowSource.OutputParameters
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = &quot;[ten7Update]&quot;
Me.OleDbUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@RETURN_VALUE&quot;, System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), &quot;&quot;, System.Data.DataRowVersion.Current, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@PermitNo&quot;, System.Data.OleDb.OleDbType.VarWChar, 11, &quot;PermitNo&quot)
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@StartDate&quot;, System.Data.OleDb.OleDbType.DBTimeStamp, 4, &quot;StartDate&quot)
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@StartTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 50, &quot;StartTime&quot)
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@EndDate&quot;, System.Data.OleDb.OleDbType.DBTimeStamp, 4, &quot;EndDate&quot)
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@EndTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 50, &quot;EndTime&quot)
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@OutOfSvcTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 255, &quot;OutOfSvcTime&quot)
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@HoursWorked&quot;, System.Data.OleDb.OleDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(2, Byte), &quot;HoursWorked&quot;, System.Data.DataRowVersion.Current, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_Trackid&quot;, System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;Trackid&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_EndDate&quot;, System.Data.OleDb.OleDbType.DBTimeStamp, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;EndDate&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_EndTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;EndTime&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_HoursWorked&quot;, System.Data.OleDb.OleDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(2, Byte), &quot;HoursWorked&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_OutOfSvcTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;OutOfSvcTime&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_PermitNo&quot;, System.Data.OleDb.OleDbType.VarWChar, 11, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;PermitNo&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_StartDate&quot;, System.Data.OleDb.OleDbType.DBTimeStamp, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;StartDate&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Original_StartTime&quot;, System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), &quot;StartTime&quot;, System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter(&quot;@Trackid&quot;, System.Data.OleDb.OleDbType.Integer, 4, &quot;Trackid&quot)
Me.OleDbUpdateCommand1.UpdatedRowSource = System.Data.UpdateRowSource.OutputParameters

End Sub
Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
Protected WithEvents Offtime As System.Data.OleDb.OleDbDataAdapter
Protected WithEvents Ten7 As System.Web.UI.WebControls.DataGrid
Protected WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
Public WithEvents UpHours As System.Web.UI.WebControls.TextBox

'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
Protected Const SQL_CONNECTION_STRING As String = _
&quot;Server=(local)\development;&quot; & _
&quot;DataBase=offduty;&quot; & _
&quot;Integrated Security=SSPI; Connect Timeout=30&quot;
Dim ds As New DataSet
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 IsPostBack = False Then
' Offtime.SelectCommand.Parameters(&quot;@namekey&quot.Value = CType(Session.Item(&quot;userid&quot, String)

Offtime.SelectCommand.Parameters(&quot;@namekey&quot.Value = &quot;20&quot; 'CType(Session.Item(&quot;userid&quot, String)
Offtime.Fill(ds, (&quot;Etime&quot)
Session(&quot;etime&quot = ds
SelectOfficer()
Else
ds = CType(Session(&quot;etime&quot, DataSet)
End If

End Sub

Private Sub SelectOfficer()

Dim dv As New DataView(ds.Tables(&quot;etime&quot)
dv.Sort = viewstate(&quot;sortorder&quot
Ten7.DataSource = dv
Me.DataBind()
End Sub

Private Sub Ten7_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles Ten7.EditCommand
Ten7.EditItemIndex = e.Item.ItemIndex

SelectOfficer()
End Sub


Private Sub Ten7_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles Ten7.UpdateCommand

Dim CN As New SqlClient.SqlConnection
CN.ConnectionString = SQL_CONNECTION_STRING
Dim CMD As New SqlClient.SqlCommand
CMD.Connection = CN
CMD.CommandText = &quot;ten7update&quot;
CMD.CommandType = CommandType.StoredProcedure

Dim upoff As System.Web.UI.WebControls.TextBox = e.Item.Cells(6).Controls(0)
Dim firstTextBoxValue As String = upoff.Text


Dim trackid As Integer = e.Item.Cells(0).Text
Dim userID As String = Session.Item(&quot;userid&quot
Dim Onshift As String = e.Item.Cells(3).Text
Dim Permit As String = e.Item.Cells(1).Text
Dim offshift As String = e.Item.Cells(5).Text

Dim enddate As Date
Dim Bshift As Integer = CInt(Onshift), EShift As Integer = CInt(offshift)
If EShift - Bshift < 0 Then
enddate = DateAdd(DateInterval.Day, 1, CDate(e.Item.Cells(2).Text))
Else
enddate = DateAdd(DateInterval.Day, 0, CDate(e.Item.Cells(2).Text))
End If

'******************************************************************************
Dim Tstart As String, Tstop As String
Tstart = Onshift
Tstop = offshift

Tstart = Format(Microsoft.VisualBasic.Val(Tstart), &quot;00:00&quot
Tstop = Format(Microsoft.VisualBasic.Val(offshift), &quot;00:00&quot
Dim dtr, dtl, jml As Long
Dim time
dtl = (Hour(Tstart) * 3600) + (Minute(Tstart) * 60)
dtr = (Hour(Tstop) * 3600) + (Minute(Tstop) * 60)
If Tstop < Tstart Then
jml = 86400
Else
jml = 0
End If
jml = jml + (dtr - dtl)
time = Format(Microsoft.VisualBasic.Val(Str(Int((Int((jml / 60)) Mod 60)))), &quot;00&quot
time = time / 60
time = Format(time, &quot;.00&quot
Dim ElapsedTime As Single = Format(Microsoft.VisualBasic.Val(Str(Int((Int((jml / 3600)) Mod 24)))), &quot;00&quot + time

'************************************************************************


CMD.Parameters.Add(New SqlClient.SqlParameter(&quot;@permit&quot;, Permit))
CMD.Parameters.Add(New SqlClient.SqlParameter(&quot;@namekey&quot;, userID))
CMD.Parameters.Add(New SqlClient.SqlParameter(&quot;@starttime&quot;, Onshift))
CMD.Parameters.Add(New SqlClient.SqlParameter(&quot;@startdate&quot;, CDate(e.Item.Cells(3).Text)))
CMD.Parameters.Add(New SqlClient.SqlParameter(&quot;@endtime&quot;, offshift))
CMD.Parameters.Add(New SqlClient.SqlParameter(&quot;@enddate&quot;, enddate))
CMD.Parameters.Add(New SqlClient.SqlParameter(&quot;@uid&quot;, userID))
CMD.Parameters.Add(New SqlClient.SqlParameter(&quot;@HoursWorked&quot;, ElapsedTime))
CMD.Parameters.Add(New SqlClient.SqlParameter(&quot;@OutOfSvcTime&quot;, e.Item.Cells(7).Text))
CMD.Parameters.Add(New SqlClient.SqlParameter(&quot;@trackid&quot;, trackid))
Dim SQLIn As SqlClient.SqlDataReader
CN.Open()
SQLIn = CMD.ExecuteReader
While SQLIn.Read

End While


SelectOfficer()
End Sub
End Class


Billy Ballard

For in the past, Lies the future.

 

[Delphin]

Here is the line that kills the whole project:


Dim upoff As System.Web.UI.WebControls.TextBox = e.Item.Cells(6).Controls(0)
Dim firstTextBoxValue As String = upoff.Text


Billy Ballard

For in the past, Lies the future.