adoquery.Close;
adoquery.SQL.Clear;
adoquery.SQL.Add('select name from '+DatabaseName+'.dbo.sysobjects where xtype=''TR'' and name=''sp_Archive''');
adoquery.Open;
ShowHint('初始化系统数据....',240);
if adoquery.RecordCount>0 then
begin
adoQuery.Close ;
adoQuery.SQL.Text:='drop trigger sp_Archive';
adoQuery.ExecSQL;
end;
adoquery.SQL.Clear;
adoquery.SQL.Add('select name from '+DatabaseName+'.dbo.sysobjects where xtype=''TR'' and name=''sp_Archive''');
adoquery.Open;
ShowHint('初始化系统数据....',240);
if adoquery.RecordCount>0 then
begin
adoQuery.Close ;
adoQuery.SQL.Text:='drop trigger sp_Archive';
adoQuery.ExecSQL;
end;
解决方案 »
- 怎样知道windows "正要" 打开 .WAV 文件
- 高分求教怎么进行delphi双线程编程了,谢谢~~~
- 关于浮点数的运算,delphi是否真让人不放心
- 怎么在程序里获得自身在Project Options->Version Info里设的信息!如我想获得FileVersion!
- 怎样使messagedlg(#13'光标',mtinformation,[mbyes,mbno],0)提示框的焦点放在“No”上?
- Borland 一些特定的规则和Object Pascal 的通用规则并不相同,欢迎踊跃发言
- 如何得到系统是星期几的时间?
- 请帮我看看这段代码
- 请问怎样动态声明多个变量!
- 如何获得屏幕Z轴最前端的窗体句柄?
- IdHttp问题
- IdHttp控件的问题(急)
adoQuery.SQL.Clear;
adoQuery.SQL.Add('Create Trigger XXX As.....')
AdoQuery.Execute