This is a migrated thread and some comments may be shown as answers.

No Update and No Error using ObjectDataSource

4 Answers 90 Views

Grid

This is a migrated thread and some comments may be shown as answers.

L asked on 03 Jan 2009, 08:37 AM

Hi

I have been trying to figure out what went wrong. I followed the example on th code library Automatic insert/update/delete using ObjectDataSource.

please help. Thanks a million.

ALTER PROCEDURE [dbo].[spUpdPerInfo]
@ID as nvarchar(100),
@ContactNo as nvarchar(20),
@Email as nvarchar(100),
@ModDate as datetime,

UPDATE [tblPerInfo] SET [ContactNo] = @ContactNo, [Email] = @Email, [ModDate] = @ModDate WHERE [ID] = @ID

--------------------------------------------------------------------------------------------------------------------------------------------------

Public Sub PerInfo_Update(ByVal ID As String, ByVal ContactNo As String, ByVal Email As String)

        Dim sqlcmd As New SqlCommand("spUpdPerInfo", getConn)
        sqlcmd.CommandType = CommandType.StoredProcedure

        sqlcmd.Parameters.Add(New SqlParameter("@ID", SqlDbType.NVarChar, 50))
        sqlcmd.Parameters("@ID").Value = ID
        sqlcmd.Parameters.Add(New SqlParameter("@ContactNo", SqlDbType.NVarChar, 50))
        sqlcmd.Parameters("@ContactNo").Value = ContactNo

sqlcmd.Parameters.Add(New SqlParameter("@Email", SqlDbType.NVarChar, 500))
sqlcmd.Parameters("@Email").Value = Email

sqlcmd.Parameters.Add(New SqlParameter("@ModDate", SqlDbType.DateTime))
sqlcmd.Parameters("@ModDate").Value = DateTime.Now

sqlcmd.ExecuteNonQuery()

getConn.Close()

End Sub

-------------------------------------------------------------------------------------------------------------
<telerik:RadGrid ID="RadGrid1" runat="server" AllowSorting="True"
DataSourceID="ObjectDataSource1" GridLines="None"
AutoGenerateColumns="False" AllowAutomaticUpdates="True">
<MasterTableView DataKeyNames="ID" DataSourceID="ObjectDataSource1">
<RowIndicatorColumn Visible="False">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>

4 Answers, 1 is accepted

answered on 03 Jan 2009, 08:54 AM

hi

There is an error that says "Exception has been thrown by the target of an invocation"

My Code behind:

Imports

System.Data

Imports

System.Data.SqlClient

Imports

Telerik.Web.UI

Partial

Class PerInfo_Default

Inherits System.Web.UI.Page

Dim x As New DAL

Protected Sub RadMenu3_ItemClick(ByVal sender As Object, ByVal e As Telerik.Web.UI.RadMenuEventArgs)

Select Case e.Item.Value

Case "All"

Session(

"choice") = "All"

Session(

"value") = e.Item.Value

Case Else

Session(

"choice") = "alpha"

Session(

"value") = e.Item.Value

End Select

End Sub

Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

Dim ctrl As alphalist = CType(Me.Master.FindControl("alphalist1"), alphalist)

AddHandler ctrl.RadmemuEvent, AddressOf Me.RadMenu3_ItemClick

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not IsPostBack Then

Session(

"choice") = "alpha"

Session(

"value") = "A"

End If

End Sub

Protected Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSearch.Click

Session(

"choice") = "search"

Session(

"value") = txtSearch.Text

End Sub

End

Class