>>>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 >>> >>>