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 GOVB.NET CODE
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