Skip to content
Permalink
Browse files

Issue #88: consistently use DBObject.CreateCode also for trigger expo…

…rting
  • Loading branch information
ansgarbecker committed Nov 13, 2019
1 parent 7b99bcc commit ed5a4ace8834acb8c69ea172db18cb9b40fd04c0
Showing with 1 addition and 2 deletions.
  1. +1 −2 source/tabletools.pas
@@ -1601,8 +1601,7 @@ procedure TfrmTableTools.DoExport(DBObj: TDBObject);

lntTrigger: begin
StrucResult := DBObj.Connection.GetResults('SHOW TRIGGERS FROM '+DBObj.QuotedDatabase+' WHERE `Trigger`='+esc(DBObj.Name));
Struc := 'CREATE '+UpperCase(DBObj.ObjType)+' '+Quoter.QuoteIdent(DBObj.Name)+' '+StrucResult.Col('Timing')+' '+StrucResult.Col('Event')+
' ON '+Quoter.QuoteIdent(StrucResult.Col('Table'))+' FOR EACH ROW '+StrucResult.Col('Statement');
Struc := DBObj.CreateCode;
if ToDb then
Insert(Quoter.QuoteIdent(FinalDbName)+'.', Struc, Pos('TRIGGER', Struc) + 8 );
if ToFile or ToClipboard or ToDir then begin

0 comments on commit ed5a4ac

Please sign in to comment.
You can’t perform that action at this time.