用SQL Server直接就可以做了 爲什麽還要用VB哪 CREATE TRIGGER SameData ON TableName FOR Insert,Update,Delete AS If Exists(Select * From Deleted) Begin Delete From TableName Where ID IN(Select Distinct ID From Deleted) End If Exists(Select * From Inserted) Begin Insert Into TableName Select * From Inserted End If @@Error<>0 Begin Raiserror('出现未知错误,请于管理员联系!',11,1) Rollback Tran Return End GO
CREATE TRIGGER SameData ON TableName
FOR Insert,Update,Delete
AS
If Exists(Select * From Deleted)
Begin
Delete From TableName Where ID IN(Select Distinct ID From Deleted)
End
If Exists(Select * From Inserted)
Begin
Insert Into TableName Select * From Inserted
End
If @@Error<>0
Begin
Raiserror('出现未知错误,请于管理员联系!',11,1)
Rollback Tran
Return
End
GO