Fórum problema ao criar trigger pelo delphi #388736
18/10/2010
0
código:
qryAux.sql.clear;
qryAux.SQL.Text:=' CREATE OR ALTER TRIGGER TRG_LANTEMP_CLI_INSERT FOR CADCLIENTES'
+' ACTIVE BEFORE INSERT POSITION 0 '
+' AS '
+' declare variable wnrfil varchar(3); '
+' declare variable wFilialLocal varchar(3); '
+' declare variable wnrfilial integer; '
+' declare variable wcodigo integer; '
+' declare variable nextFil integer; '
+' declare variable wnrctrFil integer; '
+' declare variable wnome varchar(50); '
+' declare variable wDsoper varchar(2000); '
+' begin '
+' select nrfilial from cadconfig into :wfiliallocal; '
+' if (new.nrfilialori = :wfiliallocal ) '
+' then begin '
+' select count(NRCTRFILIAL) from cadfiliais '
+' where ENVIARCADCLIENTES = '+QuotedStr('S')+' into :wnrfilial ; '
+' wDsoper = '+#39+#39+';'
+' end '
+' end';
qryAux.ExecSQL;
ibtInd.CommitRetaining;
O erro ocorre no momento do "ExecSQL"
Não esta conseguindo interpretar o ":" .
As instruções passadas para a Query são normalmente "Comitadas" pelo IBOconsole.
Obrigado.
Mais Dominio
Curtir tópico
+ 0Posts
18/10/2010
Wesley Yamazack
Haveria possibilidade de você enviar o teu exemplo do banco de dados e também do código fonte ?
Para ficar mais fácil de analisar teu problema.
Um abraço
Wesley Y
Gostei + 0
19/10/2010
Mais Dominio
http://www.4shared.com/file/3D9t2tG3/FONTES_E_BD.html
Obrigado Pela Atenção
Gostei + 0
19/10/2010
Wesley Yamazack
Pelo que andei vendo realmente você não vai consegui, a um tempo atras tive o mesmo problema que você, até tentei com DBExpress, mas não consegui, hoje utilizo uma palheta de componente de terceiro free, que faz exatamente isso, veja o link para download da palheta
http://video.devmedia.com.br/discovirtual/192388/MDO-0.8.8.rar
Um abraço
Wesley Y
Gostei + 0
26/10/2010
Devmedia
Gostei + 0
27/10/2010
Mais Dominio
Gostei + 0
27/10/2010
Wesley Yamazack
Um abraço
Wesley Y
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)