>SET QUOTED_IDENTIFIER ON >GO >SET ANSI_NULLS ON >GO > >ALTER Proc UpGpFilter >@Finame varchar(25)= null, >@Finameid int >AS >Update GpFilter > >Set Finame = @Finame >Where >Finameid = @Finameid > >GO >SET QUOTED_IDENTIFIER OFF >GO >SET ANSI_NULLS ON >GO >>
>Private Sub UpdateRecord() > Try > Dim mycnn As New SqlConnection(ConnectionString) > dap1.UpdateCommand = New SqlCommand("UpGpFilter", mycnn) > With dap1.UpdateCommand > .CommandType = CommandType.StoredProcedure > .Parameters.Add("@Finame", SqlDbType.VarChar, 25, "Finame") > Dim prm1 As SqlParameter = dap1.UpdateCommand.Parameters.Add("@Finameid", SqlDbType.Int) > prm1.SourceColumn = "Finameid" > prm1.SourceVersion = DataRowVersion.Original > End With > > mycnn.Open() > myds.GpFilter.GetChanges(DataRowState.Modified) > dap1.Update(myds, "GpFilter") > mycnn.Close() > > Catch ex As SqlException > MsgBox(ex.Message, MsgBoxStyle.Critical, "SQL ERROR") > > Catch ex As Exception > MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error") > > End Try > > End Sub > >