COMO ZERAR UM GENERATOR EM TEMPO DE EXCUÇÃO
OLA
ESTOU COM UM PROBLEMA DE AUTOCREMENTO EM REDE. ESTE ENCREMENTO É ZERADO TODO DIA, COMO UM CONTADOR DIARIO MAS EM REDE É PROBLEMA.
COMO PASSAR UM COMANDO SQL PARA ZERA O GENERATOR EM TEMPO DE EXECUÇÃO ATRAVEZ DE UMA STORE PROCEDURE.
MUITO OBRIGADO PELA ATENÇÃO.
CHIKAGO@GLOBO.COM
ESTOU COM UM PROBLEMA DE AUTOCREMENTO EM REDE. ESTE ENCREMENTO É ZERADO TODO DIA, COMO UM CONTADOR DIARIO MAS EM REDE É PROBLEMA.
COMO PASSAR UM COMANDO SQL PARA ZERA O GENERATOR EM TEMPO DE EXECUÇÃO ATRAVEZ DE UMA STORE PROCEDURE.
MUITO OBRIGADO PELA ATENÇÃO.
CHIKAGO@GLOBO.COM
Chikago
Curtidas 0
Respostas
Glauco Filoco
04/08/2003
Chikago,
O comando é o ´SET GENERATOR (nome_do_seu_generator) TO 0´
Em tempo de execução, você pode utilizar uma Query (ou IBQuery caso
você esteja usando os componentes da pelheta IBX). Como eu uso essa
palheta, costumo utilizar o objeto IBSQL que é mais prático. Veja uma
pequena rotina que zera o generator em tempo de execucao:
IBSQL.Close;
IBSQL.SQL.Clear;
IBSQL.SQL.Add(´SET GENERATOR GEN_PRODUTOS TO 0´);
IBSQL.ExecQuery;
Claro que no seu Form, o objeto IBSQL deve estar ´linkado´ para um obje-
to IBDatabase e, este por sua vez, a um objeto IBTransaction.
Se quiser usar uma Query comum, faça:
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(´SET GENERATOR GEN_PRODUTOS TO 0´);
Query.ExecSQL;
Espero tê-lo ajudado.
[]
O comando é o ´SET GENERATOR (nome_do_seu_generator) TO 0´
Em tempo de execução, você pode utilizar uma Query (ou IBQuery caso
você esteja usando os componentes da pelheta IBX). Como eu uso essa
palheta, costumo utilizar o objeto IBSQL que é mais prático. Veja uma
pequena rotina que zera o generator em tempo de execucao:
IBSQL.Close;
IBSQL.SQL.Clear;
IBSQL.SQL.Add(´SET GENERATOR GEN_PRODUTOS TO 0´);
IBSQL.ExecQuery;
Claro que no seu Form, o objeto IBSQL deve estar ´linkado´ para um obje-
to IBDatabase e, este por sua vez, a um objeto IBTransaction.
Se quiser usar uma Query comum, faça:
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(´SET GENERATOR GEN_PRODUTOS TO 0´);
Query.ExecSQL;
Espero tê-lo ajudado.
[]
GOSTEI 0