如何用delphi执行SQL语句，创建触发器，我曾用ADOCommond，但他无法识别‘go’

Posted 2023-03-19

如何在delphi中执行如下代码
if exists(select name from sysobjects where name='tri_delete')
begin
drop trigger tri_delete
end
go
create trigger tri_delete
on PatientHistory
for delete
as
declare @PatientName varchar(20)
select @PatientName=PatientName from deleted
if @PatientName = 'test'
begin
raiserror('错误',16,8)
rollback tran
end
谢谢~没有财富了，不好意思，求大神帮忙！

参考技术A 1：ADO组件属性：ParamCheck := False;
2：上面的语句逐行加载到组件的SQL语句属性里，如果是“GO”，则不加载，执行。追问

可不可以使用DLL实现触发器？在delphi主窗体中调用呢？

追答

什么意思？
SQL触发你的dll？

参考技术B 可以使用adoquery来执行,不用go
SaveSql:='insert into table(fields ...) values (fieldvalue....)';
ADOQ_Save.Close;
ADOQ_Save.SQL.Clear;
ADOQ_Save.SQL.Add(SaveSql);
ADOQ_Save.ExecSQL; 执行追问

如果不用go，那
if exists(select name from sysobjects where name='tri_delete')
begin
drop trigger tri_delete
end
这个处理怎么做啊？
还有
'CREATE TRIGGER' 必须是批查询中的第一条语句。
这些怎么处理，谢谢

追答

你是不是想查询数据库中一个表是否存在，如果存在就删除它呢。

参考技术C 这种只执行一次的，为何不在sqlserver里面做？
分开多个ado操作，使用事务追问

可不可以详细一点啊

本回答被提问者采纳