XCmd "EXEC sp_Update @pk = " & Me.txtpk & ", @Value = " & Me.txtVal .. below is my function in MS Access Public Function XCmd(sSQL as String) as Boolean Dim Comm As ADODB.Command Dim lngRecordsAffected As Long If con.State = adStateClosed Then con.ConnectionString = conConnection con.Open End If Set Comm = New ADODB.Command With Comm .ActiveConnection = con .CommandText = sSQL .Execute lngRecordsAffected End With ExecuteMyCommand = True End Function and updae SP.. CREATE PROCEDURE [dbo].[sp_Update] ( @pk int ,@Value varchar(30) ) BEGIN TRY SET NOCOUNT ON; BEGIN TRANSACTION UPDATE [dbo].[Simpletbl] SET [FldValue] = @Value WHERE PKId = @pk IF @@ROWCOUNT = 0 BEGIN RAISERROR('Cannot update!',16,1); END COMMIT TRANSACTION; END TRY BEGIN CATCH BEGIN IF @@TRANCOUNT > 0 BEGIN ROLLBACK TRANSACTION; END END; END CATCH
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)