SQL PROCEDURE
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
VB.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