Input string incorrect format

[Big E]

Here is my code below. I recieve this error when I run

MyCommand.Selec tCommand.Execut eNonQuery()

Thanks. Big E

Sub MyDataGrid_Upda te(ByVal Sender As Object, ByVal E As
DataGridCommand EventArgs)

Dim DS As DataSet

Dim Portal As String =
ConfigurationSe ttings.AppSetti ngs("Portal.Con nectionString")

Dim cnPortal As SqlConnection = New SqlConnection(P ortal)

Dim MyCommand As SqlDataAdapter = New SqlDataAdapter( "spDGAnswer_Upd ate",
cnPortal)

MyCommand.Selec tCommand.Comman dType = CommandType.Sto redProcedure

MyCommand.Selec tCommand.Parame ters.Add(New SqlParameter("@ AnswerId",
SqlDbType.Int))

MyCommand.Selec tCommand.Parame ters.Add(New SqlParameter("@ AnswerDesc",
SqlDbType.VarCh ar, 50))

MyCommand.Selec tCommand.Parame ters.Add(New SqlParameter("@ SortOrder",
SqlDbType.TinyI nt))

MyCommand.Selec tCommand.Parame ters("@AnswerId ").Value =
MyDataGrid.Data Keys(CInt(E.Ite m.ItemIndex))

Dim Cols As String() = {"@AnswerId" , "@AnswerDes c", "@SortOrder "}

Dim NumCols As Integer = E.Item.Cells.Co unt

Dim I As Integer

For I = 1 To NumCols - 1 'skip first, second and last column

Dim CurrentTextBox As TextBox

CurrentTextBox = E.Item.Cells(I) .Controls(0)

Dim ColValue As String = CurrentTextBox. Text

MyCommand.Selec tCommand.Parame ters(Cols(I - 1)).Value =
Server.HtmlEnco de(ColValue)

Next

MyCommand.Selec tCommand.Connec tion.Open()

Try

MyCommand.Selec tCommand.Execut eNonQuery()

MyDataGrid.Edit ItemIndex = -1

Catch Exp As SqlException

If Exp.Number = 2627 Then

Message.InnerHt ml = "ERROR: A record already exists with the same primary
key"

' Else

' Message.InnerHt ml = "ERROR: Could not update record, please ensure the
fields are correctly filled out"

End If

Message.Style(" color") = "red"

End Try

MyCommand.Selec tCommand.Connec tion.Close()

BindGrid()

End Sub

[Curt_C [MVP]]

look at the SelectCommand, what's it's SQL statement look like? the SPROC if
it's using.
Are the params you are passing in the right TYPE?

--
Curt Christianson
Owner/Lead Developer, DF-Software
Site: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Big E" <no****@nospam. com> wrote in message
news:OF******** ******@TK2MSFTN GP12.phx.gbl...

Here is my code below. I recieve this error when I run

MyCommand.Selec tCommand.Execut eNonQuery()

Thanks. Big E

Sub MyDataGrid_Upda te(ByVal Sender As Object, ByVal E As
DataGridCommand EventArgs)

Dim DS As DataSet

Dim Portal As String =
ConfigurationSe ttings.AppSetti ngs("Portal.Con nectionString")

Dim cnPortal As SqlConnection = New SqlConnection(P ortal)

Dim MyCommand As SqlDataAdapter = New SqlDataAdapter( "spDGAnswer_Upd ate",
cnPortal)

MyCommand.Selec tCommand.Comman dType = CommandType.Sto redProcedure

MyCommand.Selec tCommand.Parame ters.Add(New SqlParameter("@ AnswerId",
SqlDbType.Int))

MyCommand.Selec tCommand.Parame ters.Add(New SqlParameter("@ AnswerDesc",
SqlDbType.VarCh ar, 50))

MyCommand.Selec tCommand.Parame ters.Add(New SqlParameter("@ SortOrder",
SqlDbType.TinyI nt))

MyCommand.Selec tCommand.Parame ters("@AnswerId ").Value =
MyDataGrid.Data Keys(CInt(E.Ite m.ItemIndex))

Dim Cols As String() = {"@AnswerId" , "@AnswerDes c", "@SortOrder "}

Dim NumCols As Integer = E.Item.Cells.Co unt

Dim I As Integer

For I = 1 To NumCols - 1 'skip first, second and last column

Dim CurrentTextBox As TextBox

CurrentTextBox = E.Item.Cells(I) .Controls(0)

Dim ColValue As String = CurrentTextBox. Text

MyCommand.Selec tCommand.Parame ters(Cols(I - 1)).Value =
Server.HtmlEnco de(ColValue)

Next

MyCommand.Selec tCommand.Connec tion.Open()

Try

MyCommand.Selec tCommand.Execut eNonQuery()

MyDataGrid.Edit ItemIndex = -1

Catch Exp As SqlException

If Exp.Number = 2627 Then

Message.InnerHt ml = "ERROR: A record already exists with the same primary
key"

' Else

' Message.InnerHt ml = "ERROR: Could not update record, please ensure the
fields are correctly filled out"

End If

Message.Style(" color") = "red"

End Try

MyCommand.Selec tCommand.Connec tion.Close()

BindGrid()

End Sub